StringToReal

[GRAY_WOLF]

Почему

function StringToReal(str:string; base:integer):real; 


обрезает в конце строчной переменой если имеется ".0" до целого?
Т.е. если строка имеет значение "78.0" остается только "78"

[cherepets]

попробуй 78.1
78.0 - целое число

[GRAY_WOLF]

Сообщение от cherepets

попробуй 78.1
78.0 - целое число

78.1 норм без обрезов,но мне для калькулятора имено надо что бы было ".0"

[ViNT]

Только если вручную добавлять ноль, поскольку при занесении в память действительного числа с нулевой дробной частью эта дробная часть теряется.

[GRAY_WOLF]

Сообщение от ViNT

Только если вручную добавлять ноль...

Как его можно добавить в ручную? Или подскажите как правильно пользоваться Real.class из MidletPascal 3 betta с примерами.

[ViNT]

Так, перечитал еще раз, возможно я не так понял, что нужно сделать.
Как я понимю, нужно ввести число в строковом виде, преобразовать в real, провести вычисления и вывести результат в виде X.YZ, так?

[GRAY_WOLF]

Сообщение от ViNT

Так, перечитал еще раз, возможно я не так понял, что нужно сделать.
Как я понимю, нужно ввести число в строковом виде, преобразовать в real, провести вычисления и вывести результат в виде X.YZ, так?

С клавиатуры вводим строку, преобразуем ее в реал, делаем вычисления, преобразуем в строку, из строки выводим на дисплей в виде графики. Вот именно в такой последовательности .

[ViNT]

Ну значит примерно так:

var
 s:string;
 r:real;
 b:integer;

begin
 s:=...//ввод
 r:=StringToReal(s,b);
 r:=... //вычисление

 //форматирование и вывод
 if trunc(r)=r then
  s:=''+r+'.00'
 else
  s:=''+r;
 ...//вывод s 


компилить не пробовал, но примерно так.

[Igor]

Насколько я помню, во freepascal можно было написать что-нибудь вроде
Writeln(a:5:3);
Т. е. , при а=34.6 он выводил на экран 34.600,
а как тут - не знаю:
dontknow: