двадцати пяти значный калькулятор целых чисел

[GydZu]

задали курсовую Двадцати пяти значный калькулятор целых чисел. но максимум что можно выжать из int64 это где то 20 знаков. mod и div поддерживает тока integer. Div я решил рассчитать таким путем

c:=(b / a);
   s:=Floattostr(c);
   Delete(s,Pos(',',s),Length(s))
   panel3.Caption:=s

т.е. деление и удаление после запятой всех цифр.

с mod сложнее.

c:=(b / a);
   s:=Floattostr(c);
   Delete(s,Pos(',',s),Length(s));
   panel3.Caption:=FloatToStr(b-(a*StrToFloat(s)))

все работает. но при очень больших числас с mod проблемы.возникают погрешности. Ответы типа:2,2222222222222Е22 и тп.

есть какие советы как решить данную проблему.
и как можно округлить число, допустим 22221,9999 а надо 22222.

[S@fer]

Округление дробного числа до N знаков после запятой
--------------------------------------------------------------------------------


Автор: Perceptron

function RoundEx(chislo: double; Precision: Integer): string;
var
ChisloInStr: string;
ChisloInCurr: currency;
begin
ChisloInCurr := chislo;
Str(ChisloInCurr: 20: Precision, ChisloInStr);
ChisloInStr[Pos('.', ChisloInStr)] := ',';
RoundEx := Trim(ChisloInStr);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := RoundEx(StrToFloat(Edit1.Text), 25);
end;

DelphiWorld

[GydZu]

Спасибо сафер

[Stilet]

Вообще-то для округления есть либо RoundTo либо можно использовать format дабы привести к строке и округлить.

[GydZu]

Стилет, как осуществить это форматом?

[evg_m]

вообще-то говоря количество ЗНАЧАЩИХ цифр в переменной с плавающей запятой будет даже меньше чем в соответствующего размера целочисленном формате, так как часть разрядов занимает мантисса(порядок) числа.
F1 +real types
Fundamental real types
Type Range Significant digits Size in bytes
Real48 2.9 x 10^-39 .. 1.7 x 10^38 11-12 6
Single 1.5 x 10^-45 .. 3.4 x 10^38 7-8 4
Double 5.0 x 10^-324 .. 1.7 x 10^308 15-16 8

Extended 3.6 x 10^-4951 .. 1.1 x 10^4932 19-20 10

Comp -2^63+1 .. 2^63 -1 19-20 8
Currency -922337203685477.5808.. 922337203685477.5807 19-20 8

[evg_m]

смотрите темы длинная арифметика

[Utkin]

В принципе в курсовой по калькулятору с длинной арифметикой он просто не уложится по числу страниц .