В данном уроке будет рассмотрено применение логических и символных констант. Логическая константа может принимать только 2 значения, либо True, либо False. В качестве значения символьной константы могут использоваться любые символы, которые есть в ПК. Эти символы заключаются в апострофы.

Program number23;
Uses Crt;
Const t = true;
var f, r: boolean;
Begin
ClrScr;
f:=false;
r:=f and t;
Write(r);
ReadLn
End.

В строке №3 записываем раздел для описания констант. Раздел для описания констант начинается с зарезервированного слова Const. Далее, после слова Const записываем имя константы, которое придумываем сами. Например, назовем константу «t» и присвоим ей логическое значение true (правда). Соответственно, тип данных для этой константы определится автоматически как Boolean.

В строке №4 запишем 2 логические переменные «f» и «r».

В строке №7 логической переменной «f» присвоим логическое значение False (ложь).

В строке №8 запишем переменную «r» и присвоим ей значение f and t. Слово «and» между переменной «f» и константой «t» обозначает операцию, которая называется логическое умножение (конъюнкция). Согласно законам булевской алгебры, комбинация 2-х логических переменных (в нашем случае одной логической переменной и одной логической константы), связанных между собой союзом «and» (и) является истиной, если обе переменные истинны. У нас переменная «f» не является истинной, поэтому результат будет False.

Использование символьной константы.

Program number24;
Uses Crt;
Const hello = ‘&’;
Begin
ClrScr;
Write(hello);
ReadLn
End.

В строке №3 записываем константу с именем «hello» и присваиваем ей значение «&». Здесь необходимо запомнить, что значение символьной константы всегда заключается в апострофы.

В строке №6 выводим значение константы «hello» на экран.

Дополнение к материалу.

Символ можно указать, записав его числовой код после знака #. Например, амперсанд & можно записать так: #38(по кодовой таблице ASCII амперсанд имеет код 38.

Program number24;
Uses Crt;
Const hello = #38;
Begin
ClrScr;
Write(hello);
ReadLn
End.