Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»
TMonth=1..12;
TMyColors=green .. yellow;
При задании типа-диапазона следует иметь ввиду , что символы “..” нельзя разделять пробелами и что левая граница диапазона не должна превышать правую границу.
Вещественные типы
Для представления вещественных чисел используются следующие типы приведенные в таблице 5.
Таблица 5 – Вещественные типы Object Pascal |
|
||
Наименование |
Длина, |
Точность |
Диапазон значений |
|
байт |
(число значащих |
|
|
|
чисел) |
|
real* |
6 |
11…12 |
2,9 10-39 … 1,7 1038 |
single |
4 |
7…8 |
1,5 10-45 … 3,4 1038 |
double |
8 |
15…16 |
5,0 10-324 … 1,7 10308 |
extended |
10 |
19…20 |
3,4 10-4951 … 1,1 104932 |
comp |
8 |
19…20 |
-263 … 263-1 |
currency |
8 |
19…20 |
±922 337 203 685 477,5907 |
Совет: Не рекомендуется использовать устаревший тип real48 в программах, т.к. он разработан для программной эмуляции вещественных чисел и в Object Pascal они сначала конвертируются в extended, затем выполняются необходимые операции с вещественными числами после чего происходит обратная конвертация, что приводит к замедлению программы. Для большинства программ наиболее оптимально применение типа double (real).
Тип дата-время
Тип дата-время определяется идентификатором TDataTime и предназначен для одновременного хранения даты и времени. Во внутреннем представлении переменная этого типа занимает 8 байт. Для работы с данным типом используются функции приведенные в таблице 6**.
Таблица 6 – Подпрограммы для работы с типом TDateTime
Подпрограмма |
Назначение |
function Date:TDateTime; |
Возвращает текущую дату |
function DateToStr(D: TDateTime):string |
Преобразует дату в строку символов |
function DateTimeToStr(D: TDateTime):string; |
Преобразует дату и время в строку |
|
символов |
*Начиная с версии Delphi 5.0 тип real соответствует типу double, а для совместимости со старыми программами введен тип real48 соответствующий типу real из таблицы 5. При использовании директивы компилятора {$REALCOMPATIBILITY ON} компилятор под типом real будет подразумевать именно тип real48.
**Для использования функций из таблицы 6 необходимо подключить модуль SysUtils. (uses SysUtils;)