Решение задачи связанной с построением геометрических фигур

[назад]

Итак, Вашему вниманию предлагается условие задачи взятой из перечня заданий районной олимпиады. 

Задача. Построить семейство концентрических окружностей, удовлетворяющих следующим условиям:

1. Центр окружностей расположен в точке с координатами (315, 125);

2. Радиус исходной окружности равен 50 единицам;

3. Радиус каждой следующей окружности меньше предыдущей на 5 единиц;

4. Радиус последней построенной окружности не должен быть меньше 5 единиц;

Решение.

uses

  graph;

var

  x,gd,gm:integer;

begin

  gd:=detect;

  initgraph(gd,gm,'');

  x:=50;

  while x>4 to

    begin

      circle(315,125,x);

      x:=x-5;

    end;

readln;

end.

[назад]