Current File : /www/varak.cloud/img.varak.cloud/img/foto-old/KOKOS04/Další/Dokumenty/oko farba a klamy/INVERSE.PAS
program seda;
uses Graph,crt;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
i:integer;
value:string;
begin
value:=paramstr(1);
grDriver := Detect;
InitGraph(grDriver, grMode,' ');
ErrCode := GraphResult;
if ErrCode = grOk then begin { Do graphics }
cleardevice; {vykreslime povodny obrazok}
if value='1' then setcolor(red) else setcolor(cyan);
for i:=1 to trunc(getmaxx/3) do begin
line(i,0,i,getmaxy);
end;
if value='1' then setcolor(green) else setcolor(magenta);
for i:=trunc(getmaxx/3) to trunc(2/3*getmaxx) do begin
line(i,0,i,getmaxy);
end;
if value='1' then setcolor(blue) else setcolor(yellow);
for i:=trunc(2/3*getmaxx) to getmaxx do begin
line(i,0,i,getmaxy);
end;
readkey;
setbkcolor(white);
cleardevice;
readkey;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.
Mini Shell