blob: 2266406d9c40c2827ca9c30bedb1c8e413b0ff30 (
plain)
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
|
program Example110;
{ Program to demonstrate the Real2Double function. }
Var
i : integer;
R : Real48;
D : Double;
E : Extended;
F : File of Real48;
begin
Assign(F,'reals.dat');
Reset(f);
For I:=1 to 10 do
begin
Read(F,R);
D:=Real2Double(R);
Writeln('Real ',i,' : ',D);
D:=R;
Writeln('Real (direct to double) ',i,' : ',D);
E:=R;
Writeln('Real (direct to Extended) ',i,' : ',E);
end;
Close(f);
end.
|
