Free Pascal中的平方和运算这个程序中当j加到四万多时就爆掉了,为什么,他不是longint 吗varn,nn:qword;s:array[1..255] of integer;lens:integer;j:longint;procedure jia(nn:longint);var strnn:string; lennn:integer; nnar:array[1..2

来源：学生作业帮助网编辑：作业帮时间：2024/05/14 13:33:52

Free Pascal中的平方和运算这个程序中当j加到四万多时就爆掉了,为什么,他不是longint 吗varn,nn:qword;s:array[1..255] of integer;lens:integer;j:longint;procedure jia(nn:longint);var strnn:string; lennn:integer; nnar:array[1..2
Free Pascal中的平方和运算
这个程序中当j加到四万多时就爆掉了,为什么,他不是longint 吗varn,nn:qword;s:array[1..255] of integer;lens:integer;j:longint;procedure jia(nn:longint);var strnn:string; lennn:integer; nnar:array[1..255] of integer; x:longint; i:integer; max:integer;begin max:=0; lens:=255; while (s[lens]=0) and (lens>1) do lens:=lens-1; str(nn,strnn); lennn:=length(strnn); for i:=1 to lennn do nnar[i]:=ord(strnn[lennn-i+1])-ord('0'); if lennn>lens then max:=lennn else max:=lens; x:=0; for i:=1 to max do begin s[i]:=s[i]+x+nnar[i]; x:=s[i] div 10; s[i]:=s[i] mod 10; end; s[i+1]:=x; for i:=1 to 255 do nnar[i]:=0;end;begin read(n); for j:=1 to n do begin nn:=j*j; jia(nn); write(j,' '); end; lens:=255; while s[lens]=0 do lens:=lens-1; for j:=lens downto 1 do write(s[j]);end.

Free Pascal中的平方和运算这个程序中当j加到四万多时就爆掉了,为什么,他不是longint 吗varn,nn:qword;s:array[1..255] of integer;lens:integer;j:longint;procedure jia(nn:longint);var strnn:string; lennn:integer; nnar:array[1..2 free pascal 圆锥体积运算源码 pascal语言编程问题（free pascal求1—N中的素数的个数.(1 free pascal常见语句求几道初学 free pascal free pascal 黑洞6174 free pascal怎样产生随机数 Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal? Free pascal 求连续数字的平方和Description 编程求1平方+2平方+...+n平方 Input 输入一行,只有一个整数n(1 free pascal 求最大公约数与最小公倍数 FREE PASCAL,输入两个数,求最小公倍数 free pascal 求最大公约数与最小公倍数 free pascal怎样算集合元素个数 variables 中文含义free pascal 版本急求free pascal错误表本人急需要free pascal错误表,一定是要带中文的,所用的free pascal版本为1.0.6,一定要是free pascal,而不是turbo pascal或者其他的 pascal 输入30个正整数,计算它们的和,平方和数字平方和 pascal给出一个自然数N（1 编一个随机产生一个100以内的四则运算题,要求先输出这个四则运算的式子,这个四则用free Pascal