🧠 Алгоритмы на Pascal: как за 7 дней прокачать мозг и начать решать задачи быстрее, чем на Python

Pascal считают «мёртвым языком»? Возможно. Но именно его строгость и минимализм делают его идеальным тренажёром для алгоритмического мышления. Здесь нет магических однострочников — только ты и чистая логика. За 7 дней ты пройдёшь путь от базовых сортировок до рекурсии и графов.

Почему именно Pascal, а не Python?

Python прощает многое: динамическая типизация, встроенные функции сортировки, генераторы списков. Это удобно для продакшена, но губительно для обучения. Ты не понимаешь, что происходит «под капотом», и мозг не строит нейронные связи для решения задач.

Pascal заставляет тебя думать: объявлять типы, управлять памятью, писать каждый цикл руками. Это как тренировка со штангой — тяжело, но мышцы растут быстро.

📅 План на 7 дней

День 1

Базовые конструкции и линейный поиск

Вспоминаем синтаксис Pascal: переменные, циклы for, while, repeat, условия. Реализуем линейный поиск элемента в массиве.

program LinearSearch;
var
  arr: array[1..10] of integer;
  i, target, idx: integer;
begin{ Заполняем массив }for i := 1 to 10 do
    arr[i] := i * 3;

  target := 15;
  idx := -1;

  for i := 1 to 10 dobegin
    if arr[i] = target then
    begin
      idx := i;
      break;
    end;
  end;

  if idx <> -1 then
    writeln('Найден на позиции: ', idx)
  else
    writeln('Элемент не найден');
end.

🎯 Задача: Найди максимальный и минимальный элементы массива за один проход. Подсчитай количество сравнений.

День 2

Сортировка пузырьком и выбором

Два классических алгоритма сортировки. Пузырёк — для понимания обменов, сортировка выбором — для понимания поиска минимума.

procedure BubbleSort(var a: array of integer; n: integer);
var
  i, j, tmp: integer;
beginfor i := 0 to n - 2 do
    for j := 0 to n - 2 - i do
      if a[j] > a[j + 1] then
      begin
        tmp := a[j];
        a[j] := a[j + 1];
        a[j + 1] := tmp;
      end;
end;

🎯 Задача: Добавь счётчик обменов и сравнений. Сравни пузырёк и сортировку выбором на массиве из 100 случайных элементов.

День 3

Бинарный поиск

Мощнейший алгоритм поиска в отсортированном массиве. Сложность O(log n) — это значит, что в массиве из миллиона элементов нужно всего ~20 шагов.

function BinarySearch(arr: array of integer;
  n, target: integer): integer;
var
  lo, hi, mid: integer;
begin
  lo := 0;
  hi := n - 1;
  BinarySearch := -1;

  while lo <= hi dobegin
    mid := (lo + hi) div 2;
    if arr[mid] = target then
    begin
      BinarySearch := mid;
      exit;
    end
    else if arr[mid] < target then
      lo := mid + 1
    else
      hi := mid - 1;
  end;
end;

💡 Совет: Попробуй реализовать бинарный поиск рекурсивно. Это подготовит тебя ко Дню 4.

День 4

Рекурсия: факториал, Фибоначчи, Ханойские башни

Рекурсия — это когда функция вызывает сама себя. Звучит просто, но ломает мозг на практике. Сегодня мы это исправим.

function Factorial(n: integer): longint;
beginif n <= 1 then
    Factorial := 1
  else
    Factorial := n * Factorial(n - 1);
end;

procedure Hanoi(n: integer; src, dst, aux: char);
beginif n = 1 then
    writeln(src, ' -> ', dst)
  elsebegin
    Hanoi(n - 1, src, aux, dst);
    writeln(src, ' -> ', dst);
    Hanoi(n - 1, aux, dst, src);
  end;
end;

🎯 Задача: Реализуй числа Фибоначчи рекурсивно, а потом итеративно. Замерь время на n = 35 и почувствуй разницу.

День 5

Быстрая сортировка (QuickSort)

Один из самых эффективных алгоритмов сортировки со средней сложностью O(n log n). Используется повсеместно — от баз данных до игровых движков.

procedure QuickSort(var a: array of integer;
  lo, hi: integer);
var
  i, j, pivot, tmp: integer;
beginif lo >= hi then exit;

  pivot := a[(lo + hi) div 2];
  i := lo;
  j := hi;

  while i <= j dobegin
    while a[i] < pivot do i := i + 1;
    while a[j] > pivot do j := j - 1;

    if i <= j then
    begin
      tmp := a[i];
      a[i] := a[j];
      a[j] := tmp;
      i := i + 1;
      j := j - 1;
    end;
  end;

  QuickSort(a, lo, j);
  QuickSort(a, i, hi);
end;

⚠️ Важно: QuickSort в худшем случае деградирует до O(n²) — когда массив уже отсортирован, а опорный элемент выбирается неудачно. Подумай, как этого избежать.

День 6

Стек, очередь и связный список

Структуры данных — фундамент любого алгоритма. Сегодня реализуем стек на массиве и очередь на связном списке.

{ Стек на массиве }const MAX = 100;
var
  stack: array[1..MAX] of integer;
  top: integer = 0;

procedure Push(val: integer);
beginif top < MAX thenbegin
    top := top + 1;
    stack[top] := val;
  endelse
    writeln('Stack overflow!');
end;

function Pop: integer;
beginif top > 0 thenbegin
    Pop := stack[top];
    top := top - 1;
  endelse
    writeln('Stack is empty!');
end;

🎯 Задача: Реализуй проверку сбалансированности скобок ()[]{}​ с помощью стека. Это классика собеседований.

День 7

Графы: обход в глубину (DFS)

Финальный босс недели. Графы — это вершины и рёбра. Обход в глубину (DFS) — базовый алгоритм для работы с ними. Реализуем на матрице смежности.

const N = 6;
var
  graph: array[1..N, 1..N] of boolean;
  visited: array[1..N] of boolean;

procedure DFS(v: integer);
var
  i: integer;
begin
  visited[v] := true;
  write(v, ' ');

  for i := 1 to N do
    if graph[v][i] and not visited[i] then
      DFS(i);
end;

🎯 Задача: Добавь обход в ширину (BFS) с использованием очереди из Дня 6. Сравни порядок обхода вершин.

📊 Что ты получишь за 7 дней?

После прохождения этого плана ты будешь уверенно ориентироваться в базовых алгоритмах и структурах данных. Вот конкретные навыки, которые ты прокачаешь:

Во-первых, ты научишься реализовывать алгоритмы поиска и сортировки с нуля, без использования готовых библиотек. Во-вторых, освоишь рекурсию — один из самых сложных концептов для начинающих. В-третьих, разберёшься в структурах данных: стек, очередь, связный список. И наконец, получишь базу для работы с графами — а это уже серьёзный уровень.

💡 Главный инсайт: Навыки, полученные в Pascal, переносятся на любой язык. Когда ты вернёшься к Python, JavaScript или C++ — задачи будут казаться проще, потому что ты понимаешь механику, а не просто вызываешь функции.

🚀 Готов начать?

Не откладывай на понедельник. Открывай компилятор, бери задачу из Дня 1 и начинай прямо сейчас. Через неделю ты будешь думать алгоритмами.

Кодик — это не просто приложение, а твой личный наставник в мире программирования. Он объясняет всё простыми словами, помогает закреплять знания на практике и даёт крутые ачивки за успехи 🏅

А ещё у нас тёплое и дружеское комьюнити в telegram, где каждый может задать вопрос и получить ответ — без осуждения и лишней теории. Мы вместе решаем задачи, разбираем ошибки и поддерживаем друг друга на пути к цели.