If A=True then y:=1 else y:=1/x;
Пример использования логических переменных:
| Составить программу, которая выдает на экран True, если заданная своими координатами точка лежит внутри выделенной области: | Результат работы программы: | ||||
 | Uses crt;
Var x,y:integer; L:Boolean; Begin Write(‘введите Х и У ->’); Readln(x,y); L:=((x<=0) and (Sqr(x)+Sqr(y)<=9) and (y>=-x-3)) or ((Sqr(x)+Sqr(y)<=25) and (x>0)); Writeln(‘Точка лежит в задвнной области? - ’,L); readkey; end. | введите Х и У ->1 1
Точка лежит в задвнной области? - True | |||
Перечисляемый тип – это описание упорядоченного множества значений, задаваемых идентификаторами в круглых скобках. Переменные перечисляемого типа могут использоваться в логических выражениях или операторах присваивания и не могут использоваться в операторах ввода или вывода. Например, программа определения дня недели может выглядеть так:
PROGRAM DEMO1;
USES CRT;
TYPE WEEK=(MONDAY, TEUSDAY, WEDNESDAY, THURSDAY, FRIDAY, SATYRDAY, SUNDAY);
VAR DAY: WEEK;
BEGIN
DAY:=THURSDAY;
IF (DAY=SUNDAY) OR (DAY=SATYRDAY) THEN WRITELN(‘УИКЕНД’)
ELSE WRITELN(‘РАБОЧИЕ ДНИ’);
{или - IF (DAY<SATYRDAY) THEN WRITELN( ‘РАБОЧИЕ ДНИ’) ELSE WRITELN (‘УИКЕНД’);}
READLN;
END.
Применение перечисляемых типовделает программы нагляднее.
Тип – диапазон (интервальный тип) – этот тип получается путем введения ограничения на уже определенный некоторый простой тип. Ограничения определяются заданием диапазона – минимального и максимального значений констант в этом диапазоне. Тип, из которого выбирается диапазон (отрезок), называется базовым типом. Левая граница диапозона на должна превышать правую. Диапазоны для вещественных типов не допускаются. Например, рассмотрим типы:
TYPE A=10..100;
WEEK=(MONDAY, TEUSDAY, WEDNESDAY, THURSDAY, FRIDAY, SATYRDAY, SUNDAY);
WORKDAY=MONDAY..FRIDAY;
WEEKEND= SATYRDAY.. SUNDAY;
Базовый тип для диапазона А – тип INTEGER; для диапазонов WORKDAY и WEEKEND – перечисляемый тип WEEK.
Использование диапазонов позволяет более экономично распределять память, особенно в случае данных типа INTEGER. Декларация интервального типа указывает компилятору, что для переменных возможны только значения в заданном интервале, тем самым в программе автоматически организуется проверка корректности операций присвоения (см. приложение 1, СТРУКТУРА ТИПОВ ДАННЫХ).
2. Функции, используемые для работы с порядковыми переменными.
|
Название функция |
Назначение |
Тип аргумента |
Тип функции |
|
Readkey |
Ввод данных без «Эхо», т.е. программа передает значение нажатого символа без нажатия на клавишу Enter и вывода на экран вводимого символа. Пример записи: A:=readkey; |
Нет |
CHAR |
|
Pred(x) |
Определение предшественника взятого символа х |
Порядковый |
Порядковый |
|
Succ(x) |
Определение последующего символа за взятым символом х |
Порядковый |
Порядковый |
|
Ord(x) |
определяет код символа. Например, Ord(‘A’) - 65 |
Порядковый |
Целочисленный |
|
Chr(x) |
определяет символ по коду. Например, Chr(65) - ’A’ |
