Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Предназначена для вычисления какого-либо параметра. В отличие от процедуры заголовок имеет вид:
function <имя функции>(<список параметров>): <тип возвращаемого параметра>; |
Тип возвращаемого параметра может быть следующий: любой порядковый, любой вещественный, string, указатель.
В теле функции хотя бы раз имени функции должно быть присвоено значение – это и означает возврат параметра.
Пример 3:
function Factorial(N: Byte): LongInt; var Fact: LongInt; I: Byte; begin Fact:= N; for I:= N-1 downto 2 do Fact:= Fact * I; Factorial:= Fact; {возврат значения - имени функции присваивается вычисленное значение} end; |
В примере 3 реализована функция для вычисления факториала числа N.
Если имя функции внутри ее описания используется не в левой части оператора присваивания, то это означает, что функция вызывает себя рекурсивно.
Пример 4:
Program Test; var T: Byte; function Factorial(N: Byte): LongInt; var Fact: LongInt; I: Byte; begin Fact:= N; for I:= N-1 downto 2 do Fact:= Fact * I; Factorial:= Fact; end; begin write('Введите число (1..127): '); readln(T); writeln('Значение формулы:', Part:= Sqr(T)/Factorial(T);); end. |
В примере 4 вычисляется значение формулы .
Дата публикования: 2015-04-07; Прочитано: 144 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!