fVal1 := 10;
     fVal2 := 3.3;
     if (fVal1 <> 0 ) And (fVal2 <> 0) then begin
        while fVal1>=fVal2 do fVal1 := fVal1 - fVal2;
     end else begin
        fVal1 := 0;
     end;

arrow
arrow
    文章標籤
    delphi 浮點數 求餘數
    全站熱搜

    Jerry 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄