Практикум по программированию на языке Turbo Pascal. Часть 2. Портнягина В.В - 81 стр.

две процедуры. Имя первой процедуры Initialize, она служит
для ввода начальных данных, имя второй процедуры – Calcu-
late, она служит для вычисления искомой суммы и вывода
результата, который определяется по известной в теории
процентов формуле «сложных процентов»: Х n = Х (1 + 0,01
р)n.
     Заголовки процедур содержат только их имена. Такие
процедуры называются процедурами без параметров. В те-
лах процедур Initialize и Calculate соответственно четыре и
три оператора. Имена процедур используются в основной
программе для вызова процедур. Во второй процедуре введе-
ны константа р и переменная Xn. Они существуют только
внутри этой процедуры, это локальные параметры. Глобаль-
ные параметры объявлены в головной программе вне проце-
дур или функций. Таковыми являются переменные X и n, ко-
торые содержатся в обеих процедурах.

      Задача 3
      Оформить в виде процедуры вычисление суммы 1 + 2 + 3
+ ... + n и произведения 1, 2, 3 ... n целых чисел.
      Program Lab8_3;
      Var n: Integer;
      Sum, Pr: Real;
      {процедура вычисления суммы и произведения}
      Procedure summa (k: Integer; Var x, y: Real);
      {k, x, y – глобальные параметры}
      Var i: Integer;
      Begin {1}
      x: = 0;
      y: = 1;
      For i: = 1 to k Do {i-локальный параметр}
      Begin {2}
      x: = x + i;
      y: = y * i;
      End; {2}
      End; {1}
      {Исполнимая часть головной программы}
      Begin {3}
                            81