Используя оператор цикла и графики составьте программу - вопрос №1719633 от uraalekseev1234 31.12.2021 06:52

Question

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

uraalekseev1234 · Answer

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;

readln;

end.