mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 20:28:14 +02:00
89663e499b
* test adapted, e.g. 1 shl 63 needs now an explicit cast to qword for the one: qword(1) shl 63 git-svn-id: trunk@26295 -
29 lines
409 B
ObjectPascal
29 lines
409 B
ObjectPascal
{ %VERSION=1.1 }
|
|
|
|
{ Old file: tbs0353.pp }
|
|
{ }
|
|
|
|
Var
|
|
I : Int64;
|
|
j : longint;
|
|
K : Int64;
|
|
err : boolean;
|
|
begin
|
|
I:=2;
|
|
Writeln(i);
|
|
K:=qword(1) shl 62;
|
|
For j:=1 to 61 do
|
|
begin
|
|
I:=I*2;
|
|
If I/k*100>100 then
|
|
begin
|
|
Writeln('Error');
|
|
err:=true;
|
|
end
|
|
else
|
|
Writeln(j:2,': ',i:20,' ',i div 1024:20,' ',(i/k*100):4:1);
|
|
end;
|
|
if err then
|
|
halt(1);
|
|
end.
|