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

[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]

Если хочешь получить помощь, пиши, какая ошибка, точно. Расплывчатые "там даже путь не мой" прибереги для телепатов.

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

Спасибо, да все хорошо, с этой я разобрался, все работает.
Мне еще нужно две так же сделать, они на эту же тему. Тогда я прикреплю их сюда.

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