IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Калькулятор
сообщение
Сообщение #21


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


Чего-то не понимаю...где косяк? blink.gif


procedure TForm1.Button32Click(Sender: TObject); {кнопка результат} 
begin
Label8.Caption := IntToStr(SuperFactorial);
end;

Function Factorial(y: integer): Longint;
var
Edit1: TEdit;
begin
y := StrToInt(Edit1.Text);
if y = 0 then factorial := 1
else factorial := y*Factorial((y-1));
end;

Function SuperFactorial(y: integer): LongInt;
var
Edit4: TEdit;
begin
y := StrToInt(Edit4.Text);
if y = 0 then SuperFactorial := 1
else SuperFactorial := Factorial(y)*SuperFactorial((y-1));
end;


М
Теги, Наська, теги!! Lapp

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Цитата(Наська @ 27.03.2007 9:11) *

Label8.Caption := IntToStr(SuperFactorial);

А где параметр у функции SuperFactorial ? Да и сами функции надо выше процедуры 1Button32Click написать.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


В смысле параметр функции, что ты имеешь ввиду?
Чего дописать-то ё-птыч? unsure.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Цитата(Наська @ 27.03.2007 17:24) *

В смысле параметр функции, что ты имеешь ввиду?
Чего дописать-то ё-птыч? unsure.gif

Цитата
Function SuperFactorial(y: integer): LongInt; <- в функции есть

Label8.Caption := IntToStr(SuperFactorial(?)); <- а в вызове нет
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


Ой ! blink.gif
Точно-точно

спасибо
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский
Реальное имя: забыла

Репутация: -  0  +


а знаешь, не робит dry.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 23:46
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name