Delphi倒金字塔算法代碼

Delphi倒金字塔算法，有的人稱為“數字斜塔”，將一系列數字按一定規則排列下來，整體形成“倒金字塔”形狀，在數字中，這是一種算法，今天用Delphi代碼來演示其具體實現，截圖如下：

Delphi倒金字塔算法代碼：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs, StdCtrls, ExtCtrls; 06 type 07   TForm1 = class(TForm) 08     Timer1: TTimer; 09     procedure Timer1Timer(Sender: TObject); 10   private 11     { Private declarations } 12   public 13     { Public declarations } 14   end; 15 var 16   Form1: TForm1; 17 implementation 18 {$R *.dfm} 19 procedure TForm1.Timer1Timer(Sender: TObject); 20 var 21   num : Array[0..10] of Array[0..10] of Integer; 22   i,j,x,y : integer; 23   s : string; 24 begin 25   num[0][0] := 1; 26   Form1.Canvas.Font.Name := '黑體';    //設置字體 27   for i:=0 to 10 do 28   begin 29     if i>0 then 30       num[i][0] := num[i-1][0] + i; 31     for j:=0 to 10 do 32     begin 33       if j>0 then 34         num[i][j] := num[i][j-1]+i+j+1; 35       if j+1=9 then 36         break; 37     end 38   end; 39   x:=0;y:=0; 40   for i:=0 to 9 do 41   begin 42     for j:=0 to 9 do 43     begin 44       if (j+i = 9) then 45         break; 46       s := IntToStr(num[i,j]); 47       Form1.canvas.TextOut(20+x*25,20+y*25,s); 48       x := x+1; 49     end; 50     y := y+1; 51     x := 0; 52   end; 53 end; 54 end.