Delphi累加過程顯示 |
|
mystery1014
一般會員 發表:3 回覆:2 積分:1 註冊:2006-10-17 發送簡訊給我 |
|
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text:='6'; Memo1.Clear; Memo1.WordWrap := False; end; procedure TForm1.Button1Click(Sender: TObject); var i,j,k: Integer; s : String; ss : Integer; begin Memo1.Clear; k:=2; for i:=1 to StrToInt(Edit1.Text) do begin s := '1'; ss := 1; for j:=2 to k do begin S := S ' ' IntToStr(j); ss := ss j; end; k:= k 1; s := s ' = ' IntToStr(ss); Memo1.Lines.Add(s); end; end; end.
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Sorry !! pcboy2 大大!
PROCEDURE TFORM1.BUTTON1CLICK(SENDER: TOBJECT); VAR I,X,SM : INTEGER; ST : STRING; BEGIN X := STRTOINT(EDIT1.TEXT); MEMO1.LINES.CLEAR; ST := '1'; SM := 1; FOR I := 2 TO X DO BEGIN ST := ST ' ' INTTOSTR(I); SM := SM I; MEMO1.LINES.ADD(ST '=' INTTOSTR(SM)); END; END; Fishman
------
Fishman |
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |