Что нетак?

[Xcopy]

Все, я самый тупой в мире человек.
Проблема вообще не в том, что тип переполнен (в карденале был переполнен действительно), а в самом коде. Только вот в чем проблема разобраться не могу.

[Пепел Феникса]

а мы про integer говорили
а Int64 покажи как юзаешь

[Xcopy]

var
a,b,c,d,q,nod,m,p,x,y,r:int64; //p-числитель, q-знаминатель (ответа)
t:real;
i:integer;
begin
a:=3; c:=4;
b:=2; d:=4;
for i:=1 to 23 do
begin
if button2.Tag=0 then
begin
a:=(b*c)-(d*a);
button2.Tag:=1;
end;
if button2.Tag=1 then
begin
a:=(b*c)+(d*a);
button2.Tag:=0;
end;
b:=b*d;
c:=c+1;
d:=d+2;
//nod
x:=a; y:=b;
repeat r:=x mod y; x:=y; y:=r; until
y=0; nod:=x;
//если НОД равен не 1 то упрощаем 1 дробь.
if nod<>1 then
begin
a:=a div nod; b:=b div nod;
end;
edit1.Text:=floattostr(a);
edit2.Text:=floattostr(b);
j2:=a; //запись числителя в переменную
k2:=b; //запись знаменателя в переменную
end;
end;

ответ:
3,83169077417614E17
---------------------
5057976
Но числитель какой-то фиговый получается =(

[DomiNick]

Да епрст...

Сообщение от DomiNick

Почему "кардинал"-то?:
...
Используйте Int64...

Procedure TForm1.Button1Click(Sender: TObject);
Var a, b, c: Int64;
Begin
a:=536630939;
b:=60396797;
c:=a*b;
Form1.Caption:=IntToStr(c);
Button1.Caption:=IntToStr(a*b);
End;

[Xcopy]

DomiNick,
0_о
Да я ж уже сказал, что-то в коде не-то =((

Можете закрыть тему