program FloatingPointTest;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils;
function InitA:Double;
begin
Result := 1.5;
end;
function InitB:Double;
begin
Result := 2.5;
end;
procedure TestMul;
var
a, b, c: Double;
begin
a := InitA;
b := InitB;
c := a * b;
writeln(c);
end;
begin
try
TestMul;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
Comments
0 B
|👍
/👎
0 B
|👍
/👎