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

Question

Информатика

Зинуля

10 марта, 07:14

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

+2

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