REAL (восьмибайтное вещественное со знаком)
метка REAL(initial value)[,DIM()][,OVER()][,NAME()][,EXTERNAL]
| Формат: | знак____порядок____мантисса |
| Биты: | 63____________52__________0 |
| Диапазон: | 0,+/-2.22507385850720le-308..+/1.79769313496231e+308 (15 значащих цифр) |
| initial value | Числовая константа. Если опущена, то подразумевается ноль. |
| DIM | Размерность(и) переменной как массива. |
| OVER | Разделяет один и тот же участок памяти с другой переменной |
| NAME | Задает внешнее имя для переменной. |
| EXTERNAL | Указывает, что переменная описана и память под нее выделяется во внешней библиотеке. НЕ разрешено для описаний FILE, QUEUE и GROUP. |
REAL описывает восмибайтное вещественное число со знаком в формате длинного вещественного Intel 8087 (двойной точности. Присвоение числа, выходящего за пределы диапазона REAL приводит к непредсказуемым результатам.
Пример:
Countl REAL !Declare eight-byte signed floating point
Count2 REAL,OVER(Countl) !Declare OVER the eight-byte signed floating point
Count3 REAL,DIM(4) !Declare it an array of 4 rlelals
Count4 REAL(5) !Declare with initial value
Count5 REAL,EXTERNAL !Declare as external
Count6 REAL,NAME('SixCount') !Declare with external name
ExampleFile FILE,DRIVER('Clarion') !Declare a file
Record RECORD
Count5 REAL,NAME('Counter')!Declare with external name
. .
