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

natusestfons natusestfons    2   22.05.2019 10:10    0

Ответы
Йошино1 Йошино1  17.06.2020 16:36

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика