Чтение онлайн

Например, если в разделе const объявлена целая именованная константа LN, то объявление переменных firstName и lastName может быть таким:

firstName, lastName: string[LN]; // LN – целая именованная константа

Имя переменной

В качестве имени переменной можно использовать любую, начинающуюся с буквы и состоящую из букв и чисел последовательность символов. Помимо букв и чисел имя переменной может содержать символы “подчеркивание”.

Пример:

amount: integer;

x1: float;

month_salary: float;

annual_income: float;

first_name: string[20];

Компилятор Pascal Next не различает прописные и строчные буквы, т.е. нечувствителен к регистру записи идентификаторов. Таким образом, например, идентификаторы first_name, FIRST_NAME и First_Name обозначают один и тот же объект (переменную).

В качестве имен переменных (и других объектов программы) нельзя использовать зарезервированные слова языка программирования, а также имена встроенных процедур и функций.

Константы

Числовые константы записываются обычным образом.

Примеры целых констант:

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 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: ');

for i:= 1 to HB-1 do

a[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 then

found := TRUE; // число найдено

else

i:=i+1;

end;

until( found = TRUE) OR (i > HB);

writeln('i=',i);

if found = TRUE then

writeln('Found!');

else

writeln('Not found!');

end;

write('Press <Enter>');

readln;

end.