[delphi]寫了一個數學題目..有錯希望大大能幫忙看一下 |
|
hotdogtome
一般會員 發表:2 回覆:5 積分:1 註冊:2006-12-18 發送簡訊給我 |
題目是: _679_ 然後填上底線這兩個數字限制都是 0到9;
最後載把能整除72的列出來....算出值...不過不知道為什麼我debug後 他說Ed_Num1,Ed_Num2,Ed_Price,Ed_Yoyal have a correction component 我在想是不是我沒有把那些屬性作什麼修改呢...直接寫完程式後..debug似乎就出現這些問題.. 希望大大能跟我說下哪裡有錯呢...不勝感激....希望能討論一下.....這算是我的一個作業... unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Ed_Num1: TEdit; Label2: TLabel; Ed_Num2: TEdit; Label3: TLabel; Ed_Price: TEdit; Button1: TButton; Label4: TLabel; Ed_Total: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var x,y,z,m:integer; begin for x:=0 to 9 do begin for y:=0 to 9 do begin z:=10000*x 6790 y; m:= z mod 72; if m=0 then begin Ed_Num1.text:=floattostr(x); Ed_Num2.text:=floattostr(y); Ed_Price.text:=floattostr(z/72); Ed_Total.text:=floattostr(z); end; end; end; end; end. |
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
var x,y,z,m:integer;
Ed_Num1.text:=floattostr(x); Ed_Num2.text:=floattostr(y); Ed_Price.text:=floattostr(z/72); Ed_Total.text:=floattostr(z); x, y, z, m 都是 整數, 為何用 浮點數轉 字串, 而不適用 IntToStr ?? 這樣改可以列出所有可行的答案 ( 不過答案居然只有唯一 ) procedure TForm1.Button1Click(Sender: TObject); var x,y,z,m:integer; begin Memo1.Clear; for x:=0 to 9 do begin for y:=0 to 9 do begin z:=10000*x 6790 y; m:= z mod 72; if m=0 then begin // Ed_Num1.text:=IntToStr(x); // Ed_Num2.text:=IntToStr(y); // Ed_Price.text:=IntToStr(z div 72); // Ed_Total.text:=IntToStr(z); Memo1.Lines.Add( IntToStr(x) '679' IntToStr(y) ' / 72 = ' IntToStr(z) ); end; end; end; end;
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
只差一步
一般會員 發表:3 回覆:8 積分:7 註冊:2006-12-14 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer; x:integer; begin for i:=0 to 9 do begin for j:=0 to 9 do begin x:=i*10000 6790 j; ListBox2.Items.Append(inttostr(x)); if x mod 72=0 then ListBox1.Items.Append(floattostr(x)); end; end; end; 左边是扫描出的符合条件的右边是扫描出所有的。 |
只差一步
一般會員 發表:3 回覆:8 積分:7 註冊:2006-12-14 發送簡訊給我 |
|
hotdogtome
一般會員 發表:2 回覆:5 積分:1 註冊:2006-12-18 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |