Pascal Next. Руководство программиста. Никита Борисович Культин

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

      Константы

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

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

      123

      –45

      0

      Примеры вещественных констант:

      5.0

      27542.15

      25.7

      –34.05

      0.0

      Строковая константа представляет собой заключенную в одинарные кавычки последовательность любых символов.

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

      'Hello, World!'

      'Bart Simpson'

      '(C) Nikita Kultin, 2023'

      ' '

      ''

      '100'

      '99.5'

      Именованные константы

      Именованные константы должны быть объявлены в разделе const программы, процедуры или функции, в которой они используются.

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

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

      Пример:

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

      readln;

      end.

      Вывод