[решено] Паскаль - Форма вывода вещественных переменных

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

Паскаль - Форма вывода вещественных переменных

Здравствуйте!
Надо:
Делаю программу для расчета корней квадратного уравнения и нужна помощь:
Данные выводятся так:

Код:

Корни уравнения: 1.0000 и -2.5000

А надо так:

Код:

Корни уравнения: 1 и -2.5

Переменные real.

Надеюсь на Вашу помощь. Заранее спасибо.

Решение:

Всем спасибо за помощь.

Цитата:

Цитата vlad309523

А надо так: »

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

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

opel431, Error: Identifier not found OUTTEXTXY

Цитата:

Цитата vlad309523

Error: Identifier not found OUTTEXTXY »

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

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

Цитата:

Цитата vlad309523

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

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

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

Код:

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

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