Составить программу, которая рисует 5 окружностей голубого цвета с центром в пункте (200,...

Question

Составить программу, которая рисует 5 окружностей голубого цвета с центром в пункте (200, 200) и радиусами 30, 40, 50, 60, 70

помогите,пожалуйста.

Answer 1

uses
  GraphABC;

var
  i: word; //Было предпочтительнее использовать byte,
             //ведь от 3 до 7 считаем, но тип word старее,
             //а к byte могут придраться

begin
  SetBrushColor(clBlue); //Проставляем цвет кисти, я не
                                    //нашёл функции рисования круга,
                                    //где можно было бы указать цвет
  for i := 3 to 7 do
  begin
    FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
    sleep(500); //Поскольку круги в конечном счёте всё равно
                     //затираются более большими, будем выводить
                     //с задержкой
  end;
end.

Comments

у меня совсем не то выводит.

---

А что выводит?

---

Если работает, то выводит то:)
Если голубым должен быть контур, то вот:
uses
GraphABC;

var
i: word;

begin
SetPenColor(clBlue);
for i := 7 downto 3 do
begin
Circle(200, 200, 10 * i);
sleep(500);
end;
end.

---

вот спасибо,большое спасибо)
а можете помочь еще с одной?

---

Могу)