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

1. Сложение двух чисел:
   Давайте начнем с простой процедуры сложения двух чисел в Паскале. Мы определим процедуру под названием «AddNumbers», которая принимает два целочисленных параметра и отображает сумму.

procedure AddNumbers(a, b: Integer);
begin
  writeln('The sum is: ', a + b);
end;

1. Нахождение максимума.
   Далее давайте создадим процедуру под названием «FindMax», которая принимает на вход два целых числа и возвращает максимальное значение.

procedure FindMax(a, b: Integer): Integer;
begin
  if a > b then
    FindMax := a
  else
    FindMax := b;
end;

1. Вычисление факториала.
   Вот процедура под названием «CalculateFactorial», которая вычисляет факториал заданного числа с помощью рекурсии.

procedure CalculateFactorial(n: Integer): Integer;
begin
  if n = 0 then
    CalculateFactorial := 1
  else
    CalculateFactorial := n * CalculateFactorial(n - 1);
end;

1. Реверс строки.
   Давайте создадим процедуру под названием «ReverseString», которая принимает строку в качестве входных данных и печатает ее обратную версию.

procedure ReverseString(str: String);
var
  i: Integer;
begin
  for i := length(str) downto 1 do
    write(str[i]);
end;

1. Проверка простых чисел.
   Вот процедура под названием «IsPrime», которая проверяет, является ли данное число простым или нет.

procedure IsPrime(n: Integer);
var
  i: Integer;
  prime: Boolean;
begin
  prime := True;
  for i := 2 to n div 2 do
  begin
    if n mod i = 0 then
    begin
      prime := False;
      break;
    end;
  end;
  if prime then
    writeln(n, ' is a prime number.')
  else
    writeln(n, ' is not a prime number.');
end;

1. Сортировка массива.
   Давайте создадим процедуру под названием «SortArray», которая сортирует массив целых чисел в порядке возрастания, используя алгоритм пузырьковой сортировки.

procedure SortArray(var arr: array of Integer);
var
  i, j, temp: Integer;
begin
  for i := 0 to length(arr) - 2 do
  begin
    for j := 0 to length(arr) - 2 - i do
    begin
      if arr[j] > arr[j + 1] then
      begin
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;
    end;
  end;
end;

1. Нахождение ряда Фибоначчи.
   Вот процедура под названием «FibonacciSeries», которая генерирует ряд Фибоначчи до заданного числа.

procedure FibonacciSeries(n: Integer);
var
  first, second, next, i: Integer;
begin
  first := 0;
  second := 1;
  writeln('Fibonacci Series:');
  writeln(first);
  writeln(second);
  for i := 3 to n do
  begin
    next := first + second;
    writeln(next);
    first := second;
    second := next;
  end;
end;

1. Поиск элемента в массиве.
   Давайте создадим процедуру под названием «SearchArray», которая ищет заданный элемент в массиве целых чисел и возвращает его индекс.

procedure SearchArray(arr: array of Integer; target: Integer);
var
  i: Integer;
begin
  for i := 0 to length(arr) - 1 do
  begin
    if arr[i] = target then
    begin
      writeln('Element found at index ', i);
      exit;
    end;
  end;
  writeln('Element not found.');
end;

1. Подсчет слов в строке.
   Вот процедура под названием «CountWords», которая подсчитывает количество слов в заданной строке.

procedure CountWords(str: String);
var
  count, i: Integer;
begin
  count := 1;
  for i := 1 to length(str) do
  begin
    if (str[i] = '') or (str[i] = #32) then
      count := count + 1;
  end;
  writeln('Number of words: ', count);
end;

1. Преобразование градусов Цельсия в градусы Фаренгейта.
   Давайте создадим процедуру под названием «CelsiusToFahrenheit», которая преобразует температуру в градусах Цельсия в градусы Фаренгейта.

procedure CelsiusToFahrenheit(celsius: Real);
var
  fahrenheit: Real;
begin
  fahrenheit := (celsius * 9 / 5) + 32;
  writeln(celsius, ' degrees Celsius is equal to ', fahrenheit, ' degrees Fahrenheit.');
end;

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