想破頭,為了一個很奇怪的演算法.. 目前好像都是使用十進制了. 頂多是四捨五入,或無條件進入/捨去. 不知 delphi 是否有5進制的函式呢..或如何達成. 例如: 無條件進入法. 10 -> 10 12 -> 15 15 -> 15 17 -> 20 無條件捨去法. 10 -> 10 12 -> 10 15 -> 15 17 -> 15 也就是說,尾數不是5就是0,當然是0的話還是要進位的. 感恩.. 所有看此討論文章的人.

cavy9999 您好：    底下程式碼您參考看看！其實也可以用if-else來判斷！    

.....    function addIn(value :integer) : integer;
var
   n : integer;
begin
  n := value mod 10;  // 個位數字
  if ( (n=0) or (n=5) ) then exit; // 0 or 5      value := value - n;
  if ( n>5 ) then n:=10
  else n:=5;      result := value   n;
end;    function removeOut(value :integer) : integer;
var
   n : integer;
begin
  n := value mod 10;    // 個位數字
  if ( (n=0) or (n=5) ) then exit;  // 0 or 5      value := value - n;
  if ( n>5 ) then n:=5
  else n:=0;      result := value   n;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
   value : integer;
begin
  value := StrToInt(Edit1.Text);
  value := addIn(value);
  Label1.Caption := IntToStr( value );      value := StrToInt(Edit1.Text);
  value := removeOut(value);
  Label2.Caption := IntToStr( value );
end;    .....

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

將 richtop兄的程式再簡化一點, 效能也更高一點的作法,    

function Round5In(aValue: Integer): Integer;
var
  r: Integer;
begin
  r := aValue mod 5;
  if r = 0 then
    Result := aValue
  else
    Result := aValue   5 - r;
end;    function Round5Out(aValue: Integer): Integer;
var
  r: Integer;
begin
  r := aValue mod 5;
  if r = 0 then
    Result := aValue
  else
    Result := aValue - r;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Round5In(12)));
  ShowMessage(IntToStr(Round5Out(13)));
end;

RichTop 大哥 您好. 感謝您夜深裡的一盞燈. 但假設這是個浮點數值 333.3 就不行了. 難道說 delphi 真的沒有好用的函式了.. 謝謝 !        

引言: cavy9999 您好： 底下程式碼您參考看看！其實也可以用if-else來判斷！

.....    function addIn(value :integer) : integer;
var
   n : integer;
begin
  n := value mod 10;  // 個位數字
  if ( (n=0) or (n=5) ) then exit; // 0 or 5      value := value - n;
  if ( n>5 ) then n:=10
  else n:=5;      result := value   n;
end;    function removeOut(value :integer) : integer;
var
   n : integer;
begin
  n := value mod 10;    // 個位數字
  if ( (n=0) or (n=5) ) then exit;  // 0 or 5      value := value - n;
  if ( n>5 ) then n:=5
  else n:=0;      result := value   n;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
   value : integer;
begin
  value := StrToInt(Edit1.Text);
  value := addIn(value);
  Label1.Caption := IntToStr( value );      value := StrToInt(Edit1.Text);
  value := removeOut(value);
  Label2.Caption := IntToStr( value );
end;    .....

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

timhuang 您真是太瞭解一個程式中..效率問題. 為求謹慎,我還是必須需要連浮點數值都考慮進來.    

引言: 將 richtop兄的程式再簡化一點, 效能也更高一點的作法,

function Round5In(aValue: Integer): Integer;
var
  r: Integer;
begin
  r := aValue mod 5;
  if r = 0 then
    Result := aValue
  else
    Result := aValue   5 - r;
end;    function Round5Out(aValue: Integer): Integer;
var
  r: Integer;
begin
  r := aValue mod 5;
  if r = 0 then
    Result := aValue
  else
    Result := aValue - r;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Round5In(12)));
  ShowMessage(IntToStr(Round5Out(13)));
end;

cavy9999 您好： 回答問題時，因為希望能明載程式寫作思路，所以就多了些步驟。 感謝 timhuang 的簡化與效率提昇！ 其實我當時想的解法是利用if-else-if來判斷，但又想將它寫成一個function，所以就成了上述有點怪怪的寫法！精確的說有點錯(我修改了一下)！ 如果要考慮浮點數，那必須要告知function在小數點後第幾位。 例如：333.3 * 10 = 3333 => 3335 => 3335/10 = 333.5 不過浮點數的除法有時會引進捨去誤差，所以可能在小數點後很多位處會出現無法預期的數字！ RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####

不是5 就是0 以整數無條件進位用(value 4) div 5 * 5 無條件捨去法用value div 5 * 5 就會是你想要的 夠簡單? 要用小數可以配合函數int 跟Round