Percent

[Janilabo]

Percent

[scar]function Percent(position, source: Extended): Extended;

begin

if (position = 0) then

Result := 0

else

Result := (100 * (position / source));

end;

 

var

i: Integer;

 

begin

ClearDebug;

for i := -10 to 10 do

WriteLn(IntToStr(i) + ' = ' + FloatToStr(Percent(i, 5)) + '% of 5.');

end.[/scar]

[Wanted]

Old post but would be useful to add significant figures and/or decimal places.