Mail

В этот день много лет назад...
26 ноября. В 1920 году (104 года назад) - После отказа Нестора Махно слиться с Красной армией в Крыму, его войска окружаются и разбиваются.

Turbo Pascal Examples

Графика:
Построение графика функции
Прыгающий по экрану мячик.
Качание маятника.
Вложенные цветные круги.
Броуновское движение. Использование объектов.
Матрицы и массивы:
Сортировка элементов массива.
Удаление одинаковых элементов.
Простой пример на поворот матрицы.
Сортировка методом Шелла. +функции измерения временных интервалов.
Проверка выпуклости многоугольника.
Перемоножение матриц
Вычисление определителя матрицы. Рекурсия.
Нахождение обратной матрицы.
Задача об автостоянке.
Рекурсия. Подземелье сокровищ.
Численные методы:
Задачка на определение угла между стрелками часов.
Проверка на принадлежность точки многоугольнику.
Нахождение точки пересечения двух отрезков на плоскости.
Сортировка методом Шелла. +функции измерения временных интервалов.
Сортировка методом "пузырька". Пример на динамические структуры данных. Связанные списки.
Нахождение корня функции методом половинного деления.
Вычисление арккосинуса
Нахождение суммы цифр натурального числа.
Работа с фалами:
Рекурсивное сканирование директорий.
Работа со строками:
Работа со словами в предложении с разделителями.
Простейший синтаксический анализатор для распознавания и вычисления многчлена.
Синтаксический анализатор для распознавания и вычисления многчлена.
Работа со строками: смена кодировки, удаление тегов из HTML текста, обработка
Переименование файлов из кириллицы в латиницу.
Выдача контекстной подсказки.
Частотный словарь символов.
Подсчет повторяющихся символов в строке.
Ссылочные переменные:
Моделирование стека.
Пасьянс "Косынка".
Игры:
Пасьянс "Косынка".
Игра "Питон"
Игра "Анацефал". Пример использования объектов.
Игра "Минное поле"
Большие проекты:
Электронная картотека (без исходника)

Вложенные круги.

Построение заполненных цветом вложенных кругов. Задача проста и написана по просьбе посетителей этого сайта. Основная проблема, как я понимаю, была в заполнении круга цветом, для чего пришлось обращаться к нескольким процедурам.

Обсуждение данного вопроса в форуме здесь:

uses graph;
var
  Gd, Gm, R : Integer;
  OldPattern : FillPatternType;
begin
  Gd := Detect; InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then Halt(1);
  GetFillPattern(OldPattern);
  r:=5;

  SetColor(Blue);
  SetFillPattern(OldPattern, Blue);
  Circle(100, 100, R*10);
  FloodFill(100,100,Blue);

  SetColor(Green);
  SetFillPattern(OldPattern, Green);
  Circle(100, 100, R*8);
  FloodFill(100,100,Green);

  ReadLn;
  CloseGraph;
end.