mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 20:48:06 +02:00
49 lines
935 B
PHP
49 lines
935 B
PHP
const
|
|
ic1 = %1001_1001;
|
|
ic2 = %101_101;
|
|
ic3 = &1201_1002;
|
|
ic4 = &121_102;
|
|
ic5 = 1_123_123;
|
|
ic6 = 1_1235_1235;
|
|
ic7 = $1_123_123;
|
|
ic8 = $1_12354;
|
|
rc1 = 1_1235_1235;
|
|
rc2 = 1_123_123.000_000;
|
|
rc3 = 1_1234_1234.0000_0000;
|
|
rc4 = 1_123_123.000_000e1_2;
|
|
rc5 = 1_1234_1234.0000_0000e1_2;
|
|
var
|
|
i : Int64;
|
|
r : Real;
|
|
begin
|
|
i:=%1001_1001;
|
|
i:=%101_101;
|
|
i:=&1201_1002;
|
|
i:=&121_102;
|
|
i:=1_123_123;
|
|
i:=1_1235_1235;
|
|
i:=$1_123_123;
|
|
i:=$1_12354;
|
|
r:=1_1235_1235;
|
|
r:=1_123_123.000_000;
|
|
r:=1_1234_1234.0000_0000;
|
|
r:=1_123_123.000_000e1_2;
|
|
r:=1_1234_1234.0000_0000e1_2;
|
|
|
|
{$if rc1=1_1235_1235}
|
|
r:=1;
|
|
{$endif r=1_1235_1235}
|
|
{$if rc2=1_123_123.000_000}
|
|
r:=1;
|
|
{$endif r=1_1235_1235}
|
|
{$if rc3=1_1234_1234.0000_0000}
|
|
r:=1;
|
|
{$endif r=1_1235_1235}
|
|
{$if rc4=1_123_123.000_000e1_2}
|
|
r:=1;
|
|
{$endif r=1_123_123.000_000e1_2}
|
|
{$if rc5=1_1234_1234.0000_0000}
|
|
r:=1;
|
|
{$endif r=1_1234_1234.0000_0000}
|
|
end.
|