Информатика. Шевелев Г.Е. - 87 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

87
I. Использование пользовательской подпрограммы-функции
Функции представляют собой группу операторов, в результате выполнения
которых вычисляется одно значение, присваиваемое имени функции. В
заголовке функции за ключевым словом Function указывается ее имя, а в
скобках – список формальных параметров со своими описаниями. В заголовке
определяется тип значения присваиваемой функции. Обращение к функции
осуществляется в правой части оператора присваивания, при этом в выражении
записывается имя функции и фактические параметры.
Задание. Составить программу для определения числа сочетаний
)!(!
!
mnm
n
C
m
n
, используя подпрограмму-функцию при вычислении факториала.
Набрать и отладить программу.
Методика выполнения работы
1. Программа:
Program Func;
Uses crt;
Var n,m:Byte; {переменная целого типа без знака от 0 до 255}
cnm:Longint;{переменная целого типа от -2147483648 до +2147483647}
Function Fact(k:Byte):Longint; {Заголовок подпрограммы-функции}
Var p:Longint; i:Byte;
Begin {Начало тела подпрограммы-функции}
If k=0 Then p:=1
Else
Begin p:=1; For i:=2 To k Do p:=p*i End;
Fact:=p
End; {Конец тела подпрограммы-функции}
Begin
Clrscr;
Writeln(‘Введите n, m’);
Readln(m,n);
cnm:=Fact(n )Div Fact(m) div Fact(n-m);{Обращения к процедуре Fact}
Writeln(‘Число сочетаний = ’,cnm)
End.
2. Наберите, откомпилируйте и исправьте возможные ошибки. Затем
запустите программу на счет. Для n=5 и m=2 должен быть получен следующий
результат:
m
n
C 10.
3. Проведите вычисления для других значений исходных параметров.
Найдите предельные значения n и m, для которых программа будет работать
(значение факториала должно быть не более 2147483647).

Страницы