mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 03:49:05 +02:00
13 lines
201 B
ObjectPascal
13 lines
201 B
ObjectPascal
uses sysutils;
|
|
|
|
var
|
|
x: double;
|
|
begin
|
|
DecimalSeparator:='.';
|
|
x := 0.099991;
|
|
if (Format('%5.2f', [x]) <> ' 0.10') then
|
|
halt(1);
|
|
if (Format('%6.3f', [x]) <> ' 0.100') then
|
|
halt(2);
|
|
end.
|