Урок 14. Составление алгоритмов для работы с графикой

Цель урока: изучить использование вспомогательных алгоритмов при решении задач.

Пример 1. Программа, которая выводит вложенные друг в друга окружности.

uses graphabc;
var
  i: integer;
begin
  i := 5;
  while i <= 80 do
  begin
    Circle(150, 150, 100 - i);
    i := i + 10;
  end;
end.

Пример работы программы:

Пример 2. Программа, которая в зависимости от введенного значения 1 или 2 рисует треугольник либо эллипс.

uses graphabc;
var
  i: integer;
begin
  Writeln('Введите цифру 1 или 2: ');
  Read(i);
  if i = 1 then
  begin
    Moveto(120, 40);
    LineTo(160, 120);
    LineTo(60, 160);
    LineTo(120, 40);
  end
  else
  Ellipse(20, 40, 350, 150);
end.