Question

pascal杨辉三角

我做的
var
a:array[1..10000,1..10000]of integer;
i,j:longint;
n:longint;
begin
readln(n);
for i:=1to n do
for j:=1to n do
begin
a[i,1]:=1;
if i=j then
a[i,j]:=1;
if a[i,j]<>1 then
a[i,j]:=a[i-1,j-1]+a[i-1,j];
end;

for j:=1 to n do
write(a[i,j],' ');

readln;readln;
end.

为什么是错的 输入到大的数字就会出现负数 怎么解决？

Answer 1

……输入50+的时候就会超数组数据类型范围，把数组改为a:array[1..10000,1..10000]of int64;
再大一点就要用到高精度了

Answer 2

a:array[1..10000,1..10000]of integer;
改为
a:array[1..10000,1..10000] of longint;
或
a:array[1..10000,1..10000] of int64;

integer范围为（-32768，32768）
10000层的数据显然大于integer的范围

Answer 3

建议数组开LONGINT INT64容易超时