Паскаль. Основы программирования


Глава Подпрограммы на паскале Процедуры и функции Рекурсия - часть 2


Для облегчения такой работы и созданы подпрограммы.

Использование подпрограмм позволяет:

1) сделать основную программу более наглядной и компактной;

2) уменьшить объем используемой памяти ЭВМ;

3) сократить время отладки программы.

На языке Паскаль подпрограммы бывают двух видов, - это процедуры и функции.

2. Процедуры

Рассмотрим следующий простой пример, с помощью которого попробуем разобраться в конструкции процедур на Паскале.

Пример 1. Составить программу, которая бы проверяла, являются ли три числа взаимно простыми.

Мы знаем, что числа называются взаимно простыми, если их наибольший общий делитель (НОД) равен 1. Значит, для решения этой задачи нам придется дважды находить НОД чисел. Если заданы три числа: a, b, c, то найти НОД(a, b), а затем найти НОД(НОД(a, b), c).

Дважды писать операторы для нахождения НОД нам не хочется, поэтому оформим операторы для НОД в виде процедуры.

Посмотрите, как это будет выглядеть в программе:

Program Problem1;

    uses WinCrt;

    var

        a, b, c, k : integer;

{----------------------------------------------------------------------------------------}

    Procedure nod(a, b : integer; var n : integer);

        var

            r : integer;

      begin

         repeat

           r := a mod b;

           a := b; b := r

         until b = 0;

         n := a

      end;

{---------------------------------------------------------------------------------------}

   begin

      write('Введите три натуральных числа '); readln(a, b, c);

      nod(a, b, k);

      a := k; b := c;

      nod(a, b, k);

        if k = 1 then writeln('Числа взаимно простые')

                     else writeln('Числа не взаимно простые')

   end.

В разделе описаний, после описания переменных, записывается заголовок процедуры:  Procedure

Это слово является служебным и зарезервировано в Паскале. В одной строке с ним, через пробел, записывается имя процедуры, которое должно удовлетворять всем требованиям, предъявляемым к именам, основными из которых являются: начинаться с буквы и не иметь пробелов, т.


Начало  Назад  Вперед



Книжный магазин