引言:各位GG、JJ： 請問如何求出余數： 例如：10除以3等3余1 EDIT1 10 EDIT2 3 EDIT3 3----結果 EDIT4 1----余數

procedure TForm1.Button1Click(Sender: TObject);
  var x,y : integer;
begin
    if edit1.Text <> '' then
      begin
        x:= strToint(edit1.Text) div strtoint(edit2.Text); //求商
        y:= strToint(edit1.Text) mod strtoint(edit2.Text); //求余
        edit3.Text := intToStr(x);
        edit4.Text := intToStr(y);
      end;
end;    procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if Not (Key in ['0'..'9',#8]) then
    Key := #0;
end;    

引言: 各位GG、JJ： 請問如何求出余數： 例如：10除以3等3余1 EDIT1 10 EDIT2 3 EDIT3 3----結果 EDIT4 1----余數 我的則是這樣你參考看看 procedure TForm1.Button1Click(Sender: TObject); begin edit3.text:=floattostr(strtoint(edit1.text)/strtoint(edit2.text)); edit4.text:=floattostr(strtoint(edit1.text)mod strtoint(edit2.text)); end; end. 1.放四個edit和一個按鈕 2edit1.text=是被除數 3edit2.text=是除數 4edit3.text=商數 5edit4.text=餘數請用mod函數即可 快又省時

引言: 我的則是這樣你參考看看

procedure TForm1.Button1Click(Sender: TObject);
 begin
    edit3.text:=floattostr(strtoint(edit1.text) < >{<>/} >
>>>< >
>< face="Verdana, Arial, Helvetica">
╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆
║聖│║誕│║快│║樂│ ╰☆╮ 
╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . 
﹒☆‧☆∴．：☆﹒‧∴ ☆..．..     發表人 - leo2568 於 2003/12/20  23:29:38
        

引言:

引言: 我的則是這樣你參考看看

procedure TForm1.Button1Click(Sender: TObject);
 begin
    edit3.text:=floattostr(strtoint(edit1.text) < >{<>/} >
>>>< >
>< face="Verdana, Arial, Helvetica">
╭╧╮╭╧╮╭╧╮╭╧╮╭╮☆
║聖│║誕│║快│║樂│ ╰☆╮ 
╘∞╛╘∞╛╘∞╛╘∞╛☆╰☆ . 
﹒☆‧☆∴．：☆﹒‧∴ ☆..．.. 
leo2568兄教訓的是但有一點想問的是為何要用div是不是因為它不會把商數的小數點表達出來呢???^^呵    發表人 - leo2568 於 2003/12/20  23:29:38

各位好ㄚ

引言: leo2568兄教訓的是但有一點想問的是為何要用div是不是因為它不會把商數的小數點表達出來呢???^^呵

就是求商而已，小數自有餘數求。而且要貼心地限制使用者輸入整數避免程式當掉，使用者不一定懂你的明白啊! <>> < src="http://myweb.hinet.net/home1/leo2568/leo2568_17.jpg">< >< > 發表人 -

引言:

引言: leo2568兄教訓的是但有一點想問的是為何要用div是不是因為它不會把商數的小數點表達出來呢???^^呵

就是求商而已，小數自有餘數求。而且要貼心地限制使用者輸入整數避免程式當掉，使用者不一定懂你的明白啊! <>> < src="http://myweb.hinet.net/home1/leo2568/leo2568_17.jpg">< >< > >< face="Verdana, Arial, Helvetica"> 各位好ㄚ