END;
Допускается описание функции без параметров:
FUNCTION имя : тип;
...
Найти сумму чисел ряда 1,2,3,... ,используя функцию.
Program Summa; uses crt;
var n:integer; { n -глобальная переменная }
function Sum(m: integer): integer; { m -параметр-значение функции }
var i,s: integer; { i,s - локальные переменные }
Begin
s:=0;
for i:=1 to m do s:=s+i;
Sum:=s {- присваивание имени функции значения }
end;
Begin
clrscr;
write('До какого числа суммировать? :'); readln(n);
write('Сумма чисел ряда S=',Sum(n)) { -вызов функции Sum с парам.}
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить программу так, чтобы была найдена сумма чисел от m до числа n, вводимых с клавиатуры.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 21
Ф У Н К Ц И И (продолжение)
Составить программу вычисления степени числа X с целым показателем n, используя функцию без параметров.
Program Step; uses crt;
var n:integer;
x,y:real;
function St:real;
var i: integer;
Begin
y:=1;
for i:=1 to n do y:=y*x;
St:=y
end;
Begin
clrscr;
write('Введите число :'); readln(x);
write('Введите степень :'); readln(n);
if n<0 then begin n:=-n; x:=1/x end;
Write('Число ',x,' в степени ',n,' равно ',St)
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить программу, применив функцию с параметрами.
3. Вычислить 
, при Х=3 ,используя функцию с параметрами.
