Question

Задачи в паскале

Составьте программу, которая рисует по вертикали вдоль левого края графического окна ряд красных кругов радиуса R, находящихся на расстоянии 10 пикселей друг от друга.

Составьте программу, которая рисует 5 окружностей голубого цвета с центром в точке (200,200) и радиусами 30,40,50,60,70

Answer 1

 program krug;
 uses graphabc;
 var x,y,r,i:integer;
 begin
 setwindowsize (640,480);
 setwindowtitle ('Êðóã');
 setpencolor (clred);
 setpenwidth (4);
 x:=50;
 y:=50;
 r:=40;
 for i:=1 to 10 do
 begin
 circle(x,y,r);
 x:=x+80;
 end;
 end.