Алгоритмы и программы. Афанасьева Т. В - 192 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

192
line(x1,y1,x2,y2);
until y2<=1;
x1:=1;
y1:=1;
x2:=639;
y2:=479;
repeat
setcolor(c);
line(x1,y1,x2,y2);
y2:=y2–d;
until y2<=1;
x1:=639;
y1:=1;
x2:=1;
y2:=479;
repeat
setcolor(c);{ задание цвета линий }
line(x1,y1,x2,y2);
y2:=y2–d;
until y2<=1;
x1:=1;
y1:=479;
x2:=639;
y2:=1;
repeat
setcolor(c);{ задание цвета линий }
line(x1,y1,x2,y2);
x2:=x2–d;
until x2<=1;
end;{l}
{***********************MAIN*********}
var
driver,mode:integer;
begin
driver:=vga; {драйвер}
mode:=vgahi; {режим графики}
initgraph(driver,mode,''); {инициализация графики}
if graphresult<>0 then {проверка на ошибку инициализации
графики }
halt(1); {прекращение выполнения программы}
l(8,2);
l(15,14);

Страницы