杨辉三角Delphi 编程

来源：百度知道 编辑：UC知道 时间：2024/06/04 10:34:43
谁能帮我下！！！用Delphi编下杨辉三角！！带点讲解！！！（十行的）
请给我个比较详细的解释，不要光给个程序代码！谢谢！！

以下是“杨辉三角形”中“开始”按钮的OnClick事件代码，供参考
procedure TForm1.Button1Click(Sender: TObject);
var
A:array of array of Integer;/定义数组
I,J:integer;/定义两变量
T,Tempstr:ShortString;/定义两字符串
begin /为数组赋杨辉三角形值
ListBox1.Clear;
SetLength(A,10);
for I := 0 to 9 do
begin
SetLength(A[I],I+1);
a[i,0]:=1;
a[i,i]:=1;
for J := 1 to I-1 do
begin
A[I,J]:=A[i-1,j-1]+A[i-1,j];
end;
end;

for i := 0 to 9 do /在ListBox1显示数组杨辉三角形值
begin
for j := 0 to i do
begin
if Length(IntToStr(A[I,J]))=1 then
T:=' '+IntToStr(A[I,J])
else
if Length(IntToStr(A[I,J]))=2 then
T:=' '+IntToStr(A[I,J])
else T:=' '+IntToStr(A[I,J]) ;
tempstr:=Tempstr+T+' ';