Question

Используя оператор цикла и графики составьте программу для рисования на экране следующего : OOOO    (P/S Это овалы в доль экрана, как сделать что бы не все их рисовать, а нарисовать одни овал и потом его просто продлить? что бы они были в ряд)

Answer 1

uses graph;

var

gd,gm,i,x:integer;

begin

gd:=vga;

gm:=vgahi; 

initgraph (gd,gm,' ');

if graphresult = 0 then begin

x:=30; 

for i:=1 to 6 do begin

ellipse (x,200,0,360,30,70);

x:=x+60;

end;

end;

readln; 

end.