Как усечь нули в Real - Turbo Pascal
Формулировка задачи:
Допустим у меня получится 0.324574300000000000000000000000000
или 12.4575634000000000000000
или 31431.84000000000
как убрать эти нули в любом числе
не round(r1);
не write(r1:3:5);
Чтобы получилось
1. 0.3245743
2. 12.4575634
3. 31431.84
Решение задачи: «Как усечь нули в Real»
textual
Листинг программы
procedure writeln_num(x: real); var s: string; begin str(x:0:40, s); while s[length(s)] = '0' do delete(s, length(s), 1); write(s) end; var x: real; begin write('x = '); readln(x); writeln_num(x); readln end.