1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
Program Example89;
{ This program demonstrates the FormatFloat function }
Uses sysutils;
Const
NrFormat=9;
FormatStrings : Array[1..NrFormat] of string = (
'',
'0',
'0.00',
'#.##',
'#,##0.00',
'#,##0.00;(#,##0.00)',
'#,##0.00;;Zero',
'0.000E+00',
'#.###E-0');
NrValue = 5;
FormatValues : Array[1..NrValue] of Double =
(1234,-1234,0.5,0,-0.5);
Width = 12;
FWidth = 20;
Var
I,J : Integer;
S : String;
begin
Write('Format':FWidth);
For I:=1 to NrValue do
Write(FormatValues[i]:Width:2);
Writeln;
For I:=1 to NrFormat do
begin
Write(FormatStrings[i]:FWidth);
For J:=1 to NrValue do
begin
S:=FormatFloat(FormatStrings[I],FormatValues[j]);
Write(S:Width);
end;
Writeln;
end;
End.
|
