mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-25 10:41:52 +02:00
39 lines
872 B
ObjectPascal
39 lines
872 B
ObjectPascal
Program Example68;
|
|
|
|
{ This program demonstrates the FloatToStrF function }
|
|
|
|
Uses sysutils;
|
|
|
|
Const Fmt : Array [TFloatFormat] of string[10] =
|
|
('general','exponent','fixed','number','Currency');
|
|
|
|
Procedure Testit (Value : Extended);
|
|
|
|
Var I,J : longint;
|
|
FF : TFloatFormat;
|
|
|
|
begin
|
|
For I:=5 to 15 do
|
|
For J:=1 to 4 do
|
|
For FF:=ffgeneral to ffcurrency do
|
|
begin
|
|
Write (Value,'(Prec: ',I:2,', Dig: ',J,', fmt : ',Fmt[ff],') : ');
|
|
Writeln (FloatToStrf(Value,FF,I,J));
|
|
Write (-Value,'(Prec: ',I:2,', Dig: ',J,', fmt : ',Fmt[ff],') : ');
|
|
Writeln (FloatToStrf(-Value,FF,I,J));
|
|
end;
|
|
end;
|
|
|
|
Begin
|
|
Testit (1.1);
|
|
Testit (1.1E1);
|
|
Testit (1.1E-1);
|
|
Testit (1.1E5);
|
|
Testit (1.1E-5);
|
|
Testit (1.1E10);
|
|
Testit (1.1E-10);
|
|
Testit (1.1E15);
|
|
Testit (1.1E-15);
|
|
Testit (1.1E100);
|
|
Testit (1.1E-100);
|
|
End. |