Pascal Next – руководство программиста. Описание языка программирования с примерами - страница 3

Шрифт
Интервал

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


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

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: ́);
    for i:= 1 to HB-1 do
        a [i]:= Random (HB);
        write (a [i]:3,́,́);
    end;
    write (a [HB]:3);
Следующая страница