Pascal Next. Руководство программиста

Объявление именованной константы выглядит так:

Имя = Значение;

Пример:

const

Copyright ='(c) Nikita Kultin, 2021'; // строковая именованная

PI = 3.1415925; // вещественная константа

HB = 7; // целая именованная константа

После объявления именованная константа может использоваться в программе как обычная константа, в том числе в разделе объявления переменных.

Пример использования именованных констант при объявлении переменных:

const

HB = 7;

NL = 25;

var

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;

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

if found = TRUE then

writeln('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, ' кг.