В качестве имен переменных (и других объектов программы) нельзя использовать зарезервированные слова языка программирования, а также имена встроенных процедур и функций.
Константы
Числовые константы записываются обычным образом.
Примеры целых констант:
123
–45
0
Примеры вещественных констант:
5.0
27542.15
25.7
–34.05
0.0
Строковая константа представляет собой заключенную в одинарные кавычки последовательность любых символов.
Примеры строковых констант:
'Hello, World!'
'Bart Simpson'
'(C) Nikita Kultin, 2021'
' '
''
'100'
'99.5'
И
менованные константы
Именованные константы должны быть объявлены в разделе const программы, процедуры или функции, в которой они используются.
Объявление именованной константы выглядит так:
Пример:
const
Copyright ='(c) Nikita Kultin, 2021'; // строковая именованная константа
PI = 3.1415925; // вещественная именованная константа
HB = 7; // целая именованная константа
NL = 25; // целая именованная константа
После объявления именованная константа может использоваться в программе как обычная константа, в том числе в разделе объявления переменных.
Пример использования именованных констант при объявлении переменных:
matrix array
[1..HB,1..HB] of float; // HB – именованная константаstudents array
[1..HB] of string[NL]; // HB, NL – именованные константыname: string[NL]; // NL – именованная константа
Пример использования именованных констант в коде:
sq := PI*r*r; // PI – именованная константа
for
i:=1 to HB do // HB – именованная константаfor
j:=1 to HB domatrix[i,j]:=0;
end
;end
;Л
огический тип
В Pascal Next нет логического (boolean) типа данных, однако, его легко можно смоделировать, определив в программе целые именованные константы TRUE (истина) и FALSE (ложь) со значениями 1 и 0 соответственно. После этого, вместо переменных логического типа можно использовать переменные целого типа, трактуя их как логические.
Пример
// псевдо-логический тип
program
pconst
// "логические" константы
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 doa[i] := Random(HB);
end
;write('Number list: ');
for
i:= 1 to HB-1 doa[i] := Random(HB);
write(a[i]:3,',');
end
;write(a[HB]:3);
r:= Random(HB);
writeln('Search: ',r);
found := FALSE; // пусть число не найдено
i:= 1;
repeat
if
a[i] = r thenfound := TRUE; // число найдено
else
i:=i+1;
end
;until
( found = TRUE) OR (i > HB);writeln('i=',i);
if
found = TRUE thenwriteln('Found!');
else
writeln('Not found!');
end
;write('Press
readln;
end
.В
ывод в окно консоли
Вывод информации на экран (в окно консоли) выполняют инструкции write и writeln.
В общем виде инструкции вывода информации в окно консоли записываются так:
write(список_вывода);
writeln(список_вывода);
где:
список_вывода – разделенные запятыми имена переменных, строковые константы или выражения.
Примеры:
write(sum);
write('Press
writeln('x1=', x1, ' x2=', x2);
writeln(pound,' фунтов =', pound*0.453, ' кг.');
Ф
орматированный вывод
В строке вывода после имени переменной или выражения через двоеточие можно задать формат вывода значения.
Для целых и строковых значений формат задает ширину поля вывода – количество позиций на экране, которое резервируется для вывода значения переменной.
В общем виде форматированный вывод целых и строковых значений задается так:
где:
Форматированный вывод вещественных значений в общем виде задается так:
где:
Примеры:
writeln('x1=', x1:9:3, 'x2=', x2:9:3); // переменные x1 и x2 – вещественного типа
writeln(name:15, salary:12:3); // переменная name строковая, salary – вещественная
writeln(pound:5:2,' фунтов =', pound*0.453:6:3, ' кг.'); // выражение pound*0.453 вещественного типа
В
вод данных
Ввод данных с клавиатуры обеспечивает инструкция readln, которая в общем виде записывается так:
readln(
где:
Примеры:
readln(name);
readln(salary);
ВНИМАНИЕ! При вводе вещественных значений в качестве десятичного разделителя следует использовать точку
. Если при вводе вещественного значения вместо точки будет введена запятая, ошибка (исключение) не возникает, но дробная часть будет отброшена.Инструкция присваивания
Инструкция присваивания выглядит так:
Где: