VPF::Real to String - Форум программистов

uvsoft

Дата 6.3.2005, 14:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 4.2.2003

Репутация: нет
Всего: нет

Привет, есль дешевый вопросить по поводу конвертации на чистом паскале типа real в string.
Например, есть число: 2.000000000e-0001, то строка, воспользовавшись функцией STR, будет иметь точно такой же вид.... а нужно получить нечто вроде "0.2". Подскажите, плз, существуют ли встроенные средства для проделывания подобных операций, или придется самому писать алгоритм перевода?
Спасибо.

Это сообщение отредактировал(а) uvsoft - 6.3.2005, 14:07

--------------------

Старый глюк лучше новых двух.

Fedor

Дата 6.3.2005, 14:18 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

Вот пример:

Код


var
  c:real;
  s:string;
begin
  c:=0.2;
  str(c:0:1,s);
  writeln(s);
end.

Здесь :0:1 - формат числа. 0 - количество символов, которые должно занимать число. 1 - количество символов после запятой.

Это сообщение отредактировал(а) Fedor - 6.3.2005, 14:19

--------------------

Мы - Днепряне. Мы всех сильней.

Zero

Дата 6.3.2005, 14:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(Fedor @ 6.3.2005, 14:18)

количество символов, которые должно занимать число

Ни совсем верно сказано.
<Параметр1> ─ указывает минимальную длину поля, в которую будет записыватся символьное представление значения, а если пареметр будет иметь меньшую длину, то слева будут пробелы, иначе <параметр 1> игнорируется и будет нужная длина.

Fedor

Дата 6.3.2005, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

Цитата(Zero @ 6.3.2005, 13:58)

<Параметр1> ─ указывает минимальную длину поля, в которую будет записыватся символьное представление значения, а если пареметр будет иметь меньшую длину, то слева будут пробелы, иначе <параметр 1> игнорируется и будет нужная длина.

Согласен с замечанием. Спасибо.

--------------------

Мы - Днепряне. Мы всех сильней.

poor_yorik

Дата 3.4.2005, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 12.1.2005
Где: Общаги г. Киева

Репутация: нет
Всего: 8

Eсли дробь конечная, но ты сам не знаешь какой у нее размер, то подойдет такая процедура.
smile

Код


 c:=0,2;
 c:=c - int(c);
 i:=0; 
 while c<>0 do begin
   inc(i); 
   c:=c*10 - int(c*10); 
 end; 
 str(c:0:i,s); 
 writeln(s);

--------------------

Семь раз отмерь, один раз - откомпиль.... Семь раз отпей, один раз - отлей... Семь раз отъешь, один раз - не жадничай и другим дай...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »