mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 06:49:34 +01:00
26 lines
531 B
ObjectPascal
26 lines
531 B
ObjectPascal
Program Wrong_Output;
|
|
{}
|
|
Var r,rr:Extended; s:String;
|
|
code : word;
|
|
{}
|
|
Begin
|
|
Writeln('Size of Extended type (r)=',SizeOf(r),' bytes');
|
|
r:=0.000058184639;
|
|
Writeln('r=',r);
|
|
Writeln('r=',r:16:13);
|
|
Writeln('r=',r:15:12);
|
|
Writeln('r=',r:14:11);
|
|
Writeln('r=',r:13:10);
|
|
Writeln('r=',r:12:9);
|
|
Writeln('r=',r:11:8);
|
|
Writeln('r=',r:10:7);
|
|
Writeln('r=',r:9:6);
|
|
Writeln('r=',r:8:5);
|
|
Writeln('r=',r:7:4);
|
|
Str(r:7:4,s);
|
|
Writeln('r=',s,' (as string)');
|
|
str(r,s);
|
|
val(s,rr,code);
|
|
if r<>rr then halt(1);
|
|
End.
|