Question

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

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.