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

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

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

Question

Информатика

Ростислава

22 июля, 22:20

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

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

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

+5

Ответы (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.