绘制Pascal';PASCAL编程中的s三角形像钻石一样
如何在Pascal编程中画一个Pascal三角形,就像从n个数中得到的钻石一样,我们从输入中得到它 编辑: 我试过的这个程序:绘制Pascal';PASCAL编程中的s三角形像钻石一样,pascal,pascals-triangle,Pascal,Pascals Triangle,如何在Pascal编程中画一个Pascal三角形,就像从n个数中得到的钻石一样,我们从输入中得到它 编辑: 我试过的这个程序: program Pascal_triangle; var i,j,n : integer; A : Array[1..6,1..6] of Integer; begin n := 6; for i:=1 to n do begin for j:=1 to i do begin if (j=1) or (i=j)
program Pascal_triangle;
var
i,j,n : integer;
A : Array[1..6,1..6] of Integer;
begin
n := 6;
for i:=1 to n do
begin
for j:=1 to i do
begin
if (j=1) or (i=j) then
begin
A[i,j]:=1;
end
else
begin
A[i,j] := A[i-1,j] + A[i-1,j-1];
end;
end;
end;
for i:=1 to n do
begin
Gotoxy(41-i,i);
for j:=1 to i do
write(A[i,j])
end;
readln;
end.
但是我在gotoxy线路上出错了,我需要它是diamond。2011年12月31日21:22:谢谢,我写了这封信并成功了
program Pascal_triangle;
var d,c,y,x,n : integer;
begin
readln(n);
writeln;
for y:=0 to n do
begin
c:=1;
for d:=0 to n - y do
begin
write(' ');
end;
for x:=0 to y do
begin
write(c);
write(' ');
c := c * (y - x) DIV (x + 1);
end;
writeln;
end;
for y:=n-1 downto 0 do
begin
c:=1;
for d:=0 to n - y do
begin
write(' ');
end;
for x:=0 to y do
begin
write(c);
write(' ');
c := c * (y - x) DIV (x + 1);
end;
writeln;
end;
readln;
end.
修正你的代码缩进,代码是不可读的,就像这样…见我上次编辑添加的程序我试过。