16,748
社区成员
发帖
与我相关
我的任务
分享
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
a = array[1..10, 1..10] of Integer;
var
i, j: Integer;
x: a;
begin
for i := low(x) to high(x) do
begin
x[i, 1] := 1;
x[i, i] := 1;
end;
for i := 1 to 10 do
for j := 1 to 10 do
begin
x[i, j] := x[i - 1, j - 1] + x[i - 1, j];
end;
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(x[i, j], ' ');
writeln;
end;
readln;
end.
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
a=array[1..10,1..10] of Integer;
var
i,j:Integer;
x:a;
begin
for i := low(x) to high(x) do
begin
x[i,1]:=1;
x[i,i]:=1;
end;
for i := 1 to 10 do
for j := 1 to 10 do
begin
x[i,j]:=x[i-1,j-1]+x[i-1,j];
end;
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(x[i,j],' ');
writeln;
end;
readln;
end.