Osnovy_informatiki_-_6_Podprogrammy

Синтаксис описания функции

11

function <имя >

[(<посл-ть спецификаций форм. пар-ров>)] : <тип>;

<раздел локальных описаний> begin

<операторы> end;

Оператор, возвращающий результат

<имя>:=<результат>

или

result :=<результат>

	Чердынцева М.И. Мехмат ЮФУ	27.10.2012

Пример

12

function sign(x: real): integer; begin

if x<0 then sign:=-1 else

if x>0 then sign:=1 else sign:=0

end;

var s, a: real;

begin s:=sign(-3); writeln(s); read(a);

writeln(sign(a)+sign(1)); end.

	Чердынцева М.И. Мехмат ЮФУ	27.10.2012

Пример

13

procedure CalcSign (x: real; var sign: integer); begin

if x<0 then sign:=-1 else

if x>0 then sign:=1 else sign:=0

end;

var a: real;

s,s1,s2: integer;

begin

Calcsign (-3, s); writeln (s); read (a); Calcsign (a, s1); Calcsign (1, s2); writeln (s1+s2);

end.

	Чердынцева М.И. Мехмат ЮФУ	27.10.2012