Delphi 求前100 的和
阿新 • • 發佈:2018-11-17
while 迴圈
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; procedure Label1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Label1Click(Sender: TObject); var sum,i:Integer; begin sum:=0; i:=0; while i<=100 do begin sum:=sum+i; i:=i+1; end; Label1.Caption:=inttostr(sum); end; end.
Repeat ...until之和
procedure TForm1.Label1Click(Sender: TObject);
var
sum,i:Integer;
begin
sum:=0;
i:=0;
repeat
sum:=sum+i;
i:=i+1;
Until(i>100);
Label1.Caption:=inttostr(sum);
end;
end.
for 迴圈:
procedure TForm1.Label1Click(Sender: TObject); var sum,i:Integer; begin sum:=0; i:=0; for i:=1 to 100 do sum:=sum+i; Label1.Caption:=inttostr(sum); end; end.