Функции в Паскале на примере

Свои функции в языке Паскаль описываются перед разделом Var. Вспомним общий вид . Для более интересного понимания использую пример. Допустим, нужно четыре функции (сложение, вычитание, умножение и деление).

Тогда у меня получилось:

[php]

function summ (x,y:Real): Real;
begin
result:=x+y;
end;
function diff (x,y:Real): Real;
begin
result:=x-y;
end;
function prod (x,y:Real): Real;
begin
result:=x*y;
end;
function divis (x,y:Real): Real;
begin
if (y <> 0) then result:=x/y
else
begin
write(‘can not divide by zero’);
exit;
end;
end;

[/php]

Очень яркий пример использования функций, но меня не устраивает длинна. Попробую более компактно:

[php]

function calcer (x,y:Real; sign:Char):Real;
begin
case sign of
‘+’ :  result:=x+y;
‘-‘ :  result:=x-y;
‘*’ :  result:=x*y;
‘/’ :
begin
if (y <> 0) then result:=x/y
else
begin
write(‘can not divide by zero’);
exit;
end;
end;
end;
end;

[/php]

Теперь более детально. В первом случае функции описаны отдельно. Вызов будет осуществляться, например деление, divis (4,5) или divis (47.3 , 5). Во втором случае у меня одна функция. Она вызывается в программе так: calcer(75.1 , 7, ‘+’); или calcer(75.1 , 7, ‘-‘); . Выбирайте любое действие.  Я использовал эти примеры потому, что многие пишут калькулятор на Делфи или Паскаль.

. функции в паскале примеоы Пример Функции в Паскале ФУНКЦИЯ Sign pascal примеры использования тригонометрическизх функций си шарп функции паскаль