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

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

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

Question

Информатика

Таюта

4 января, 19:03

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

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Сергиян · 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.