11 lines
153 B
ObjectPascal
11 lines
153 B
ObjectPascal
unit u_realsingle1;
|
|
var r : real;
|
|
s : single;
|
|
|
|
begin
|
|
r := 3.14; s := 3.14;
|
|
assert(r = 3.14);
|
|
s := 3.14;
|
|
assert(s = single(3.14));
|
|
|
|
end. |