Question

20111noip pascal普及组杨辉三角那道题怎么做?

要跟踪的！！！！详细啊

Answer 1

这个很简单，你把杨辉三角存在数组里，，，然后进行转移 f[i][j]:=f[i-1][j]+f[i-1][j+1];;;就好了

Answer 2

var a:array[0..30,0..30] of integer;
b,c,d,i,s:longint;
begin
read(d);

a[1,1]:=1;
writeln(a[1,1]:5);
for i:=2 to d do
begin
for b:=1 to i do
begin
a[i,b]:=a[i-1,b-1]+a[i-1,b];

write(a[i,b]:5);
end;

writeln;
end;
end.

Free pascal的；
n是杨辉三角的行数

Answer 3

1+3+6+10=20