Правила форума
Прочтите прежде чем задавать вопрос!
Вот есть пример кода из учебного пособия:
Описать модуль, содержащий функцию вычисления 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.{конец модуля}
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.
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 -
