округление

[govorun1]

Совсем уже запутался
Имеется запись:

v0:=v1-(v1*1/100);

Как округлить выражение (v1*1/100) до двух знаков после запятой по правилам математики

[-Jack-]

Сообщение от govorun1

Совсем уже запутался
Имеется запись:

v0:=v1-(v1*1/100);

Как округлить выражение (v1*1/100) до двух знаков после запятой по правилам математики

RoundTo(v1*1/100, -2)

Хотя переменную v1 умножать на единицу смысла нет ...

uses System.Math;
...
var
  v1: Integer;
  v0:Extended;
begin
  v1:= 55;
  v0:= v1-RoundTo(v1/100, -2);
  ShowMessage (FloatToStr(v0));

[govorun1]

Сообщение от -Jack-

RoundTo(v1*1/100, -2)

Хотя переменную v1 умножать на единицу смысла нет ...

uses System.Math;
...
var
  v1: Integer;
  v0:Extended;
begin
  v1:= 55;
  v0:= v1-RoundTo(v1/100, -2);
  ShowMessage (FloatToStr(v0));

Сделал так

v0:=v1-simpleroundto((v1*1/100), -2);

roundto - это похоже банковкое округление

[doktor255]

Написали же, умножать на единицу смысла нет

v0:=v1-simpleroundto((v1/100), -2);