Question

Delphi程序设计，使用二维数组打印7行杨辉三角在memo1备注框中

Answer 1

这方面的，我有经验。

Answer 2

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a:array[1..10,1..10] of integer;
  i,j:integer;
  s:string;
begin
  a[1,1]:=1;
  for i:=2 to 7 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;
  s:='';
  for i:=1 to 7 do begin
     //s:='';
     for j:=1 to i do s:=s+' '+inttostr(a[i,j]);
     //memo1.Lines.Add(s);
     s:=s+chr(13)+chr(10);
  end;
  memo1.Lines.Add(s);
end;

end.