Составьте программу рисования 8 окружностей радиусом 40 с координтами центров окружностей: (40,180), (120,189),(200,180)...
Составьте программу рисования 8 окружностей радиусом 40 с координтами центров окружностей: (40,180), (120,189),(200,180)...
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы