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

> ВНИМАНИЕ!

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

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

> Hugeobj, что с ним сделать?
сообщение
Сообщение #1


Профи
****

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

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


Как я и обещала, очередной вопрос...
Мне нужно вычислить факториалы (до 100 хватит), как это сделать уже нашла (спасибо volvo (модуль для работы с длинной арифметикой)). Но я не знаю куда деть hugeobj.pas? без нее ведь не работает...

Объясните пожалуйста! rolleyes.gif

p.s. sorry, но таже проблема со скачанной библиотекой Crt... wink.gif

p.s.2 в Delphi ведь можно все это реализовать...

Сообщение отредактировано: Айра -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Гость






Добавить в объект TLargeInt еще один метод (в описание типа тоже, не забудь):
Function TLargeInt.HugeToStr: String;
Var
i: Index; k: Digit; s: String;
begin
result := '';

Str(Base - 1, s); k := Length(s);
result := result + IntToStr(GetLast);
For i := GetLen - 1 DownTo 1 Do Begin
Str(Get(i), s);
While Length(s) < k Do s := '0' + s;
result := result + DigitSep + s;
End
end;
, естественно в Uses у модуля HugeObj прописывается SysUtils (чтобы IntToStr могла работать), и вызывать так:
procedure TForm1.Button4Click(Sender: TObject);
var f: TLargeInt; n: longint;
begin
n:=StrToInt(edit1.Text);
fact(f, n);
edit2.Text:=f.HugeToStr; // Это работает, проверено...
end;
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 





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