Нарисуйте пару десятков концентрических окружностей - Turbo Pascal

Формулировка задачи:

Нарисуйте пару десятков концентрических окружностей, то есть окружностей разного радиуса, но имеющих общий центр.

Решение задачи: «Нарисуйте пару десятков концентрических окружностей»

Листинг программы

uses graph;
var xc,yc,r,i:integer;
begin
initgraph(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r:=20;
for i:=1 to 20 do
 begin
  circle(xc,yc,r);
  r:=r+10
 end;
readln
end.

Объяснение кода листинга программы

В данном коде используется библиотека графики Graph, которая позволяет рисовать различные фигуры на экране.

Строка uses graph; говорит о том, что в программе будет использоваться библиотека Graph.
Строки var xc,yc,r,i:integer; определяют четыре переменные типа Integer: xc, yc, r и i. Они будут использоваться для работы с координатами и радиусом окружности.
Строка initgraph(xc,yc,''); инициализирует графическую среду с помощью координат xc и yc. Значения этих переменных должны быть заданы до этого вызова.
Строки xc:=getmaxX div 2; и yc:=getmaxY div 2; устанавливают начальные координаты xc и yc, деля максимальные значения переменных getmaxX и getmaxY на 2. Это позволит окружности не выходить за пределы экрана.
Строка r:=20; задает начальный радиус окружности равным 20.
В цикле for от 1 до 20 происходит следующее:
- Строка circle(xc,yc,r); рисует окружность с координатами xc и yc и радиусом r.
- Строка r:=r+10; увеличивает значение радиуса на 10.
- Цикл выполняется 20 раз, поэтому окружности рисуются с радиусами от 20 до 10.
Строка readln; завершает программу.