Константы
Целые
Целые числовые константы записываются обычным образом.
Примеры целых констант:
123
– 45
0
Вещественные
При записи вещественных констант в качестве десятичного разделителя следует использовать точку.
Примеры вещественных констант:
5.0
25.5
– 34.05
0.0
Строковые
Строковая константа представляет собой заключенную в одинарные кавычки последовательность любых символов.
Примеры строковых констант:
́ Hello, World!́
́ Bart Simpsoń
́ (C) Nikita Kultin, 2021́
́ ́
́ ́
́ 100́
́ 99.5́
Именованные константы
Именованные константы должны быть объявлены в разделе const той процедуры или функции, в которой они используются.
Объявление именованной константы выглядит так:
Имя = Значение;
Где:
Имя – имя константы;
Значение – значение константы.
Пример объявления именованных констант:
const
Copyright =́ (c) Nikita Kultin, 2023́; // строковая константа
PI = 3.1415925; // вещественная именованная константа
HB = 7; // целая именованная константа
NL = 25; // целая именованная константа
После объявления именованная константа может использоваться в программе как обычная константа, в том числе в разделе объявления переменных.
Пример использования именованных констант при объявлении переменных:
matrix array [1..HB, 1..HB] of float;
students array [1..HB] of string [NL];
name: string [NL];
Пример использования именованных констант в коде:
sq:= PI*r*r; // PI – именованная константа
for i:=1 to HB do // HB – именованная константа
for j:=1 to HB do
matrix [i, j]:=0;
end;
end;
Логический тип
В Pascal Next нет логического (boolean) типа данных, однако, его легко можно смоделировать, определив в программе целые именованные константы TRUE (истина) и FALSE (ложь) со значениями 1 и 0 соответственно. После этого, вместо переменных логического типа можно использовать переменные целого типа, трактуя их как логические.
Пример
program p ()
const
// «логические» константы
TRUE = 1;
FALSE = 0;
HB = 10;
var
a: array [1..HB] of integer; // массив чисел
r: integer; // число, которое надо найти в массиве
found: integer; // признак, что число есть в массиве (найдено)
i: integer;
begin
for i:= 1 to HB do
a [i]:= Random (HB);
end;
write (́ Number list: ́);