модули, Провести вычисления. Необходимые для вычислений функции (факториал, во Опции

[Lis]

Провести вычисления. Необходимые для вычислений функции (факториал, возведение в степень и т.д.) описать в модуле.

Вот есть пример кода из учебного пособия:
Описать модуль, содержащий функцию вычисления n!.

Код

unit MyUnit;
interface {раздел объявлений}
function f(n:Integer):Longint;
implementation {раздел реализации}
function f(n: Word): Longint;
var
   i: Integer; {параметр для организации цикла}
   Result: Longint; {вспомогательная переменная используемая как резуль-тат вычислений}
begin
   Result:=1; {0!=1}
   for i:= 1 to n do
   Result:=  Result*i;
   f:= Result; {формирование результата выполнения функции}
end;
begin {раздел инициализации}
…
end.{конец модуля}

Тут моя программа, условие прикреплено ниже картинкой.

Код

Unit MyUnit1;
interface function f(a,b,c:real):real;
implementation
function f(a,b,c:real):real;
begin
f:=(2*a-b-sin(c))/(5+abs(c));
end;
begin
end.

Подскажите пожалуйста что нужно сделать чтоб ее запустить, чтоб она работала, до меня так и не доходит.. Нужно еще вроде какой то файл создать.
Пишет ошибку при запуске Ctrl + F9
Error: Cannot run a unit
нажимаю Ок и ничего не происходит.

Сообщение отредактировано: Lis - 2.07.2010 0:27

[Lis]

вот что то мне сделали к 5 задаче, я в математике вообще не шарю(

unit myunit;

function min (x,y:real):real;
function max (x,y:real):real;

var a,b: real;
    n: integer;
    result: real;

function min (x,y:real):real
begin
  if x<=y then min:=x
          else min:=y;
end;

function max(x,y:real):real;
begin
  if x>=y then max:=x
               else max:=y;
end;

begin
  write ('a= ');
  readln (a);
  write ('b= ');
  readln (b);
  write ('n= ');
  readln (n);
  result:=0;
x := a;
y := b*n;
result := result+min(x;y) 
x := (a-b)^n;
y := (a+b)^n;
result := result-min(x;y)
x := a^(n-1);
y := b^n+1;
result := result+max(x;y);
writeln (result);
end. 

Сообщение отредактировано: Lis - 2.07.2010 12:52