Mail

В этот день много лет назад...
27 января. В 1593 году (433 года назад) - Джордано Бруно брошен в тюрьму инквизиции в Риме. Еще в 1575 он был обвинен в ереси и вынужден бежать, скрываясь от преследования сначала на севере Италии, а потом в европейских странах. Роковую ошибку он совершил, приняв в 1592 приглашение приехать в Венецию для обучения мнемонике и философии венецианского патриция Мочениго. Патриций, не обнаружив признаков прогресса в своем развитии, взял и выдал Джордано инквизиции. Защищаясь, Бруно почти убедил венецианских инквизиторов, что их расхождение во взглядах на природу вещей носит философский, но никак не теологический характер. Но римская инквизиция настояла на выдаче ученого и мыслителя и в течение семи лет пыталась сломить его сопротивление и вынудить отречься от своих взглядов.

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.