שאלה בפסקל על שימוש במספרים גדולים

[ISmile4U]

???איך את התוכנית הזאת אני מעביר לשימוש במשתנים מסוג LongInteger ואיך אני פותר את הבעיות במספרים הגדולים?

program find;

{$N+}

uses wincrt;

var

d,m,n:double;

begin

n:=1;

while(n<=maxlongint)do

begin

d:=((n*(n+1))/2);

m:=sqrt(d);

if round(m)=m then

writeln(n:2:0,' ',m:2:0);

n:=n+1;

end;

end.

1 1

6 8

35 49

204 288

1189 1681

6930 9800

40391 57121

====המספרים הגדולים איליהם אני לא מצליח להגיע===

7997214 11309768

46611179 65918161

271669860 384199200

1583407981 2239277041

9228778026 13051463048

53789260175 76069501249

??? ??? ??? ??? ??? ???

[Holy]

השאלה שלך הועברה לתראד חדש

להבא עדיף שתפתח שאלות בתראד חדש משלך ולא תשאל אותם בתראדים של אנשים אחאים

בכל מקרה אם אתה רוצה לעבוד עם int/longint אתה צריך לעשות את השנינוי הבא

if m*m=d then

במקןם

if round(m)=m then

מכייון שאתה עובד עם מספרים שלמים השורש גם יהיה מספר שלם, ככה שבשביל לבדוק אם באמת היה לך מספר ריבועי אתה בודק אם

sqrt(d)^2 = d

[ISmile4U]

טוב אחר מאמצים רבים הצלחתי לפתור את הבעיה ו Holy תודה על ניסיונך לעזור.

{

Triangular Square Numbers

===========================

D(m)=(m*(m+1))/2

D(m)=n*n

n,m,D(m) are part of the natural numbers;

Recursion relation

------------------

Let us write this relation in terms of n and m where

n^2=m(m+1)/2.

That is, replace x_j by 2*m_j + 1 and y_j by 2*n_j to get:

Initial values (x=3, y=2): m_1=1, n_1=1

Recursion: m_(j+1) = 3*m_j + 4*n_j + 1

n_(j+1) = 3*n_j + 2*m_j + 1

}

program findmn;

uses crt;

var

counter,m,n,a,b,u,v:longint;

begin

clrscr;

m:=1;

n:=1;

u:=1;

counter:=1;

writeln(counter,') ',n,' ',m);

while(u<=maxlongint)and(counter<=11)do

begin

v:=m*n;

u:=((m*(m+1)) div 2);

if (u <> v) then

begin

inc(counter);

writeln(counter,') ',n,' ',m);

end;

a:=(3*m)+(4*n)+1;

b:=(3*n)+(2*m)+1;

m:=a;

n:=b;

end;

readln;

end.