我有以下计划:
var
N, M, Result: Real;
begin
Readln(N);
Readln(M);
if (N > 0) and (M > 0) then
Result := N / M;
Writeln(Result:10);
Readln();
end.
我希望结果是正常形式,而不是指数形式(例如,8.29而不是8.29E + 000)
非常感谢
答案 0 :(得分:2)
答案 1 :(得分:1)
使用writLn的格式说明符,比如 Writeln(结果:10:2); 为2位小数。
此外,如果N或M <0,则结果变量将是未定义的。最好初始化它,f.e。到0