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

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

функции передача фактических параметров производится так
же, как и при вызове подпрограммы.
Задача 5
Требуется найти разность факториалов F = т! – k! На-
помним, что факториал представляет собой произведение
n
чисел натурального ряда:
n! = 1 * 2 * 3 .. n.
Program Lab8_5;
Uses Crt;
Var m, k: Integer;
F: Integer;
{Описание функции вычисления факториала}
Funktion Fact (n: Integer): Integer;
Var p, i: Integer;
Begin
p: = 1;
For i: = 1 to n Do
p: = p * i;
Fact: = p;
End;
{Исполнимая часть головной программы}
Begin
ClrScr ;
Write ('Bведи значения m, k:');
ReadLn (m, k);
F: = Fact (m) – Fact (k);
WriteLn ('F = ', F: 5);
End.
Пояснения к программе.
Вычисление факториала мы
оформили в виде функции с именем Fact: Funktion Fact (n:
Integer): Integer;
Результат вычисления факториала обозначается ее име-
нем. Тип функции – Integer. Формальным параметром явля-
ется переменная целого типа
n. Вызывается функция по сво-
ему имени
Fact с указанием фактических параметров m и k:
F: = Fact (m) – Fact (k);
Протокол работы программы. Bведи значения m, k: 5 4
F = 96
Задача 6
87
функции передача фактических параметров производится так
же, как и при вызове подпрограммы.
     Задача 5
     Требуется найти разность факториалов F = т! – k! На-
помним, что факториал представляет собой произведение n
чисел натурального ряда: n! = 1 * 2 * 3 .. n.
     Program Lab8_5;
     Uses Crt;
     Var m, k: Integer;
     F: Integer;
     {Описание функции вычисления факториала}
     Funktion Fact (n: Integer): Integer;
     Var p, i: Integer;
     Begin
     p: = 1;
     For i: = 1 to n Do
     p: = p * i;
     Fact: = p;
     End;
     {Исполнимая часть головной программы}
     Begin
     ClrScr ;
     Write ('Bведи значения m, k:');
     ReadLn (m, k);
     F: = Fact (m) – Fact (k);
     WriteLn ('F = ', F: 5);
     End.
     Пояснения к программе. Вычисление факториала мы
оформили в виде функции с именем Fact: Funktion Fact (n:
Integer): Integer;
     Результат вычисления факториала обозначается ее име-
нем. Тип функции – Integer. Формальным параметром явля-
ется переменная целого типа n. Вызывается функция по сво-
ему имени Fact с указанием фактических параметров m и k:
F: = Fact (m) – Fact (k);
   Протокол работы программы. Bведи значения m, k: 5 4
   F = 96

   Задача 6
                             87

Страницы