mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
1e1b36515e
since the mod/div get a different result if calculated using fewer
bits (mantis #29930)
git-svn-id: trunk@33413 -
20 lines
291 B
ObjectPascal
20 lines
291 B
ObjectPascal
program and_problem;
|
|
{$mode objfpc}{$H+}
|
|
|
|
var
|
|
a : extended;
|
|
d : longint;
|
|
begin
|
|
a := -1;
|
|
d := (round(a*512) div 180) and 1023;
|
|
writeln(d);
|
|
if d<>1022 then
|
|
halt(1);
|
|
|
|
d := (round(a*512) div 180);
|
|
while (d<0) do d := d+1024;
|
|
writeln(d);
|
|
if d<>1022 then
|
|
halt(1);
|
|
end.
|