Как усечь нули в 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.

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы