| Delphi. Pascal
Материалы
Урок 12. Функции
Объявление функции
function ИмяФункции(var Параметр1: Тип 1; var Параметр2: Тип2;
var ПараметрJ: TиnJ ) : Тип;
const
{ описание констант }
var
{ описание переменных }
begin
{ инструкции функции }
Result:=Значение;
end;
Функция
Функция |
Пример функции для вычисления натуральной степени (n) целого числа (m) |
program имя-программы; |
program primer; var x,y: integer; |
function имя(параметры): тип-результата; |
function power(m,n:integer):integer; |
описания локальных величин |
var s,i: integer; |
begin |
begin |
операторы функции |
s:=1; for i:=1 to n do s:=s*m; power:=s |
end; |
end; |
BEGIN |
BEGIN |
операторы программы |
read(x,y); writeln(power(x,y)) |
END. |
END. |
Пример объявления и использования функции:
...
//Объявление функции.
function max(X, Y: Integer): Integer;
begin
if X>Y then
max:=X
else
max:=Y;
end;
var
r: Integer;
begin
//Вызов функции.
r:=max(3, 5);
Writeln(r);
Readln;
end.
...
function max(X, Y: Integer): Integer;
...
...
max:=X
...
max:=Y;
...
| |