[opel431]

А надо так: »

Можно перевести число в строку с форматированием (округление до десятых)

var a:real;
s:string;
..........
str(a:0:1,s);
outtextXY(20,20,s);

[vlad309523]

opel431, Error: Identifier not found OUTTEXTXY

[opel431]

Error: Identifier not found OUTTEXTXY »

Да ведь я, вам дал просто пример вывода результата в графическом режиме, а у вас вывод через writeln

[vlad309523]

opel431, вывел в текстовом - те же 1.0000

[opel431]

вывел в текстовом - те же 1.0000 »

В целом:
если нужно просто вывести число, то
WriteLn(r:n:m)
где r (real), n - общее количество знаков в строке, включая десятичную точку, m - количество знаков после запятой (дробная часть),
а если нужна именно строка, то через STR.
var
R:real;
S:string;
...
Str(R:n:m,S);

[vlad309523]

Все! Проблему решил при помощи процедуры

Код:

procedure xn;
 begin
  str(x[n]:0:4,tx[n]);
  tx[n]:=copy(tx[n],pos('.',tx[n])+1,4);
  if tx[n]='0000' then
   s[n]:=0 else
   begin
    tx[n]:=copy(tx[n],2,3);
    if tx[n]='000' then
     s[n]:=1 else
     begin
      tx[n]:=copy(tx[n],2,2);
      if tx[n]='00' then
       s[n]:=2 else
       begin
        tx[n]:=copy(tx[n],2,1);
        if tx[n]='0' then
         s[n]:=3 else
         s[n]:=4
       end
     end
   end
 end

Код залил в шапку.