題目是: _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.

 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;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

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;
左边是扫描出的符合条件的右边是扫描出所有的。

浮点也可以，可能是他的控件有限制。

謝謝兩位大大的說明哦......
問題我已經找出來了....是屬性的問題沒有把名稱改好...
好像不是^^""哪裡寫錯了...
對了至於位什麼要用浮點數...是因為我那個柿子最要的代號是boolean值所以必須用float而不能用int...
謝謝兩位大大馬上就回答我了..真的很感謝餒>"<...謝謝!!!謝謝!!!