如何在Pascal中缩短"real“数据类型

Question

我的程序将毫米转换为米和厘米。它正在工作，但答案是1,394900000000000000……如何让它变得更短？

Program radiuss;
var 

mill : real;
metr : real;
cent : real;

Begin
Writeln('Сколько миллиметов надо перевести?');
Readln(mill);

metr := mill * 0.001;
cent := mill * 0.1;

Writeln('Метры:', metr);
Writeln('Сантиметры:', cent);

End.

Answer 1

您可以指定要在writeln中打印的分数部分的位数。以下是如何分别打印3位和1位的示例：

Writeln('Метры:', metr:0:3);
Writeln('Сантиметры:', cent:0:1);