Microsoft Word Лаб практ инф

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). 

---

88
II. 
Использование пользовательской подпрограммы
-процедуры 
 
Процедуры 
используются 
в 
тех 
случаях, 
когда 
необходимо 
в 
подпрограмме получить несколько результатов. Описание процедуры включает 
в себя заголовок процедуры, разделы описаний, тело процедуры. В заголовке 
после ключевого слова Procedure указывается имя процедуры, в скобках – 
список формальных параметров со своими описаниями, причем перед 
выходными параметрами должен стоять описатель var. Обращение к процедуре 
осуществляется оператором процедуры, в котором записываются имя 
процедуры и ее фактические параметры. 
Задание. Составить программу для вычисления полярных координат 
x
y
f
y
x
r
arctan
и
2
2



по прямоугольным координатам (x,y), x>0. 
Перевод координат из прямоугольных в полярные оформить в виде 
процедуры Polar. 
Набрать и отладить программу для перевода координат n точек.