Составьте программу рисования 8 окружностей радиусом 40 с координтами центров окружностей: (40,180), (120,189), (200,180) ...

Question

Информатика

Камилла

25 ноября, 10:13

Составьте программу рисования 8 окружностей радиусом 40 с координтами центров окружностей: (40,180), (120,189), (200,180) ...

+2

Ответы (1)

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

Осип · Answer 1

Uses graphabc;

var i, s: integer;

begin

s : = 0;

pen. Width : = 2;

window. Init (0, 0, 800, 600, clwhite) ;

window. IsFixedSize : = true;

for i : = 1 to 8 do

begin

if (i. IsOdd) then DrawCircle (40 + s, 180, 40)

else DrawCircle (40 + s, 189, 40) ;

s : = s + 80;

end;

end.