Творческое задание. Составьте программу движения какого-либо объекта с использованием процедур рисования этого объекта по переданным в процедуру координатам, смещающихся с помощью цикла в основной программе.
Примечание. Если у Вас появилась идея применения процедуры в графическом режиме для решения задачи другого типа, то - дерзайте!
Занятие 5. Функции.
Другой вид подпрограммы–функция–оформляется аналогично процедуре. Отличительные особенности функции: она имеет только один результат выполнения (но может иметь несколько входных параметров); результат обозначается именем функции и передаётся в основную программу.
Функция оформляется в следующем виде:
Function <имя функции>(формальные параметры: тип): тип значения функции;
Var
. . .
Begin
. . .
End ;
Вызывается функция по её имени с указанием фактических параметров.
Вызов функции можно делать непосредственно внутри выражения. При вызове функции тип не указывается.
Пример. Пусть требуется найти (x!-y!)*d!.
Напомним, что х! представляет собой произведение n чисел натурального ряда : х! = 1*2*3*......*х
Function fac(n:integer): integer;
Var
p,i: integer;
Begin
p:=1;
for i:=2 to n do
p:=p*i;
fac:=p;
End ;
Вызвать можно так: f:=(fac(x)-fac(y))*fac(d).
Внимание! В теле функции обязательно должен быть хотя бы один оператор присваивания, где в левой части стоит имя функции, а в правой – ее значение. Иначе, значение не будет определено.
