Question

Pascal杨辉三角 帮我看一下我的程序错在哪里

描述 Description
杨辉三角
【问题描述】
Input
输入一个整数N(N不大于34)。
Output
输出一个N行的杨辉三角
【样例输入】
6
【样例输出】
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1

VAR
A:ARRAY[1..34,1..34] OF LONGINT;
I,J,K,L,M,N:LONGINT;
BEGIN
READLN(N);
A[1,1]:=1;
FOR I:=2 TO N DO
A[I,1]:=1;
A[I,I]:=1;
FOR J:=2 TO I-1 DO
A[I,J]:=A[I-1,J-1]+A[I-1,J];
FOR I:=1 TO N DO
BEGIN
FOR J:=1 TO I DO WRITE(A[I,J],' ');
WRITELN;
END;
END.

Answer 1

VAR
A:ARRAY[1..34,1..34] OF LONGINT;
I,J,K,L,M,N:LONGINT;
BEGIN
READLN(N);
A[1,1]:=1;
FOR I:=2 TO N DO
begin
A[I,1]:=1;
A[I,I]:=1;
FOR J:=2 TO I-1 DO
A[I,J]:=A[I-1,J-1]+A[I-1,J];
end;
FOR I:=1 TO N DO
BEGIN
FOR J:=1 TO I DO WRITE(A[I,J],' ');
WRITELN;
END;
END.加两个begin、end就好了。

Answer 2

VAR
A:ARRAY[1..34,1..34] OF LONGINT;
I,J,K,L,M,N:LONGINT;
BEGIN
READLN(N);
A[1,1]:=1;
FOR I:=2 TO N DO
A[I,1]:=1;
A[I,I]:=1;
FOR J:=2 TO I-1 DO
A[I,J]:=A[abs（I-1,J-1）]+A[abs（I-1）,J];
FOR I:=1 TO N DO
BEGIN
FOR J:=1 TO I DO WRITE(A[I,J],' ');
WRITELN;
END;
END.

Answer 3

var
a:array[1..10,1..10]of integer;
i,j:integer;
begin
for i:=1to 10do
for j:=1to 10do
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 i:=1to 10do
begin
write('':40-3*i);
for j:=1to i do
write(a[i,j]:6);
writeln;
end;
end.

Answer 4

别大写好不,看着头很痛.

追问

我们老师也这么说

追答

var
yh:array[1..10,1..10] of integer;
i,j:integer;
begin
yh[1,1]:=1;
for i:=2 to 10 do
begin
yh[i,1]:=1;
yh[i,i]:=1;
for j:=2 to i-1 do
yh[i,j]:=yh[i-1,j-1]+yh[i-1,j];
end;
for i:=1 to 10 do
begin
write(' ':40-3*i);
for j:=1 to i do write(yh[i,j]:6);
writeln;
end;
end.
这样就可以了。

Answer 5

缺 begin end