Составьте программу рисования окружностей в точке (200,200) и радиусами 10,20,30,40,50 (примените команду for)

Question

Информатика

Алексаха

12 ноября, 08:46

Составьте программу рисования окружностей в точке (200,200) и радиусами 10,20,30,40,50 (примените команду for)

+3

Ответы (1)

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

Сашута · Answer 1

Program axaxa;

uses graphabc;

var i, a, d:integer;

begin

a:=200;

d:=50;

setwindowsize (640,480) ;

setpencolor (clbrown) ;

setpenwidth (2) ;

for i:=1 to 5 do

begin

circle (a, a, d) ;

d:=d-10;

end;

end.