Turbo Pascal: String To Extended

← →
Alral © (2008-04-20 01:28) [0]

У меня вопрос:
в приложении, написанном на Turbo pascal (используя компилятор FreePascal) пользователь вводит определённый текст. Если это определённая буква, то выполняется одно действие, если число-другое. При этом с числом должна производится математическая операция. Каким образом можно перевести данные типа String, содержащие число, в данные Extended (аналог функции Delphi StrToFloat)?
Спасибо.
С уважением, Александр.

← →
Германн © (2008-04-20 01:30) [1]

> Alral © (20.04.08 01:28)
>
> У меня вопрос:
> в приложении, написанном на Turbo pascal (используя компилятор
> FreePascal)

Переведи.

← →
Alral © (2008-04-20 01:55) [2]

Есть код, написанный на Pascal.
Использую для компиляции компилятор FreePascal.
Turbo Pascal имею ввиду как диалект языка Pascal.
Компилятор FreePascal совместим с вышеупомянутым диалектом.
Меня в данный момент интересует другое, есть ли стандартные функции языка Pascal, аналогичные функции StrToFloat в Delphi.

← →
Германн © (2008-04-20 02:01) [3]

> Меня в данный момент интересует другое, есть ли стандартные
> функции языка Pascal, аналогичные функции StrToFloat в Delphi.
>
>

Функций нет. Но есть процедура Val.

← →
Германн © (2008-04-20 02:23) [4]

> Alral © (20.04.08 01:55) [2]
>
> Есть код, написанный на Pascal.
> Использую для компиляции компилятор FreePascal.
> Turbo Pascal имею ввиду как диалект языка Pascal.
>

Но в TP был только тип real. Типа extended в нём не было.

← →
MBo © (2008-04-20 07:42) [5]

>Но в TP был только тип real. Типа extended в нём не было.
Были и Single, и Double, и Extended

← →
Anatoly Podgoretsky © (2008-04-20 12:07) [6]

> MBo (20.04.2008 07:42:05) [5]

ТП они разные бывают.

← →
Германн © (2008-04-20 18:32) [7]

> MBo © (20.04.08 07:42) [5]

Да, точно. Вот ведь склероз.

← →
Alral © (2008-04-20 21:24) [8]

> Германн © (20.04.08 02:01) [3]
>
>
> > Меня в данный момент интересует другое, есть ли стандартные
> > функции языка Pascal, аналогичные функции StrToFloat в
> Delphi.
> >
> >
>
> Функций нет. Но есть процедура Val.

Спасибо.
Ещё вопрос такой: как результат математической операции, записываемый в переменную типа Extended (или любую другую вещественного типа) отображать с фиксированной точкой (1.5) вместо плавающей (1.50000Е+0000)?
Спасибо

← →
palva © (2008-04-20 22:16) [9]

> Alral © (20.04.08 21:24) [8]
Насколько я помню, как-то так: Str(x:4:1)

← →
Alral © (2008-04-20 23:07) [10]

> palva © (20.04.08 22:16) [9]
>
> > Alral © (20.04.08 21:24) [8]
> Насколько я помню, как-то так: Str(x:4:1)

Str(x: Extended, str: String) не помогает. Ответ всё равно в стиле 1.5000E+0000

← →
DrPass © (2008-04-20 23:39) [11]

> Alral © (20.04.08 23:07) [10]

Написали же, x:4:1
4 - количество знаков в числе, 1 - количество после запятой

> DrPass © (20.04.08 23:39) [11]
>
>
> > Alral © (20.04.08 23:07) [10]
>
> Написали же, x:4:1
> 4 - количество знаков в числе, 1 - количество после запятой
>

Не могли бы вы привести пример использования (одной строкой)?
Спасибо.

или, если сразу на экран, то writeln(x:4:1)

Хм.
А "Компилятор FreePascal" поддерживает "Compiler Magic"?

Turbo Pascal: String To Extended Найти похожие ветки