interface
procedure factorial(fCHISLO: real);
var
i: integer;
res: integer;
begin
res := 1;
for i := 2 to Round(fCHISLO) do
begin
res := res * i;
end;
factorial := res;
end;
Подключение Unit'a
Здравствуйте, я только начал изучать Delphi (уже знаю VB), так вот, как подключить в первый юнит второй, который с функциями. Я прописал его в uses (просто добавил Unit4), но функции из него не работают...:confused:
необходимо сделать описание функций в секции interface, тогда они будут "видимы" извне
Спасибо большое! Буду пробовать!
Этот код почему-то не работает, ошибка на присваивании значения к res. Когда он выполнен в виде функции тоже не работает. Не можете помочь?
Код:
Этот код почему-то не работает, ошибка на присваивании значения к res. Когда он выполнен в виде функции тоже не работает. Не можете помочь?
А факториал какого числа ты пытаешься посчитать? Может оно малость великовато?
Кстати, процедура значения не возвращает, так что factorial := res; по идее компилироваться не должно.
Кстати, процедура значения не возвращает, так что factorial := res; по идее компилироваться не должно.
Код:
interface
[color=red]function[/color] factorial(fCHISLO: real)[color=red]: real[/color];
implementation
[color=red]function[/color] factorial(fCHISLO: real)[color=red]: real[/color];
var
i: integer;
//res: integer; нет необходимости, любая функция содержит
//неявное объявление переменной result, с типом функции
begin
result := 1;
for i := 2 to Round(fCHISLO) do
begin
result := result * i;
end;
end;
[color=red]function[/color] factorial(fCHISLO: real)[color=red]: real[/color];
implementation
[color=red]function[/color] factorial(fCHISLO: real)[color=red]: real[/color];
var
i: integer;
//res: integer; нет необходимости, любая функция содержит
//неявное объявление переменной result, с типом функции
begin
result := 1;
for i := 2 to Round(fCHISLO) do
begin
result := result * i;
end;
end;
Да нет, у меня функция, это я привёл чотбы показать, что процедуры тоже не работают из второго юнита. А так у меня с этой функцией всё отлично. Кстати, сегодня один друг подсказал как сделать то, что я хочу, буду пробовать.
----------------
Всем спасибо, всё работает!!! Я только понять не могу, зачем возвращать значение real?
----------------
Всем спасибо, всё работает!!! Я только понять не могу, зачем возвращать значение real?
[QUOTE=Ha Emmid] ... зачем возвращать значение real?...[/QUOTE]
-встречный вопрос, а зачем передавать в функцию real, если на входе один хрен должно быть целое число, факториал все-таки ?! -соответственно, что пришло, то и ушло. а вообще real поболее в разрядности чисел, вот )))
-встречный вопрос, а зачем передавать в функцию real, если на входе один хрен должно быть целое число, факториал все-таки ?! -соответственно, что пришло, то и ушло. а вообще real поболее в разрядности чисел, вот )))
Real передаётся потому-что это каьлкулятор и там две переменных real, для чисел, так как он считает дробные, воть.
да вобщем-то ничто не мешает тебе переменную конвертить в целочисленный тип