yakostik
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
program graph1;
uses crt,graph;
var
gm,gd,gec,i,j:integer;
begin
gd:=Detect;
InitGraph(gd, gm,'с:\PROGRAM\BP\BGI\'); {сюда нужно вставить путь к каталогу с драйверами паскаля}
gec:=GraphResult;
If gec = grOk Then
Begin
{ ѓа дЁЄ }
setcolor(1);
i:=0;
j:=0;
while i<641 do
begin
Line(i, 0,i, 480);
i:=i+10;
end;
j:=0;
while j<481 do
begin
Line(0, j, 640, j);
j:=j+10;
end;
j:=5;
while j<480 do
begin
i:=5;
while i<640 do
begin
setfillstyle(solidfill,random(16));
floodfill(i,j,1);
i:=i+10;
end;
j:=j+10;
end;
ReadLn;
CloseGraph;
End
Else WriteLn('Неудалось инициализировать графику:', GraphErrorMsg(gec));
end. |
