Turbo Pascal Examples.
Turning an array.

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


 
Turning an array.
Дана целочисленная матрица размером 6 на 6. Преобразовать массив, осуществив поворот но 90 градусов по и против часовой стрелки.

program turnArray;
const n=6;
type arr = array[1..n,1..n] of integer;
var a,b:arr;
    i,j:byte;
procedure printArray(c:arr;header:String);
var i,j:byte;
  begin
  writeln;
  writeln(header);
  for i:=1 to n do
    begin
    for j:=1 to n do
      write(c[i,j]:3,',');
    writeln;
    end;
  end;
begin
randomize;
{ Init and print array }
for i:=1 to n do
for j:=1 to n do
  a[i,j]:=random(20)-5;
printArray(a,'Initial Array:');
{ set b as counterclockwise turned a }
for i:=1 to n do
for j:=1 to n do
  b[i,j]:=a[j,n-i+1];
printArray(b,'Counterclockwise turned Array:');
{ set b as clockwise turned a }
for i:=1 to n do
for j:=1 to n do
  b[i,j]:=a[n-j+1,i];
printArray(b,'Clockwise turned Array:');
end.