Логический тип
В 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, ' кг.');
Форматированный вывод
В строке вывода после имени переменной или выражения через двоеточие можно задать формат вывода значения.
Для целых и строковых значений формат задает ширину поля вывода – количество позиций на экране, которое резервируется для вывода значения переменной.
В общем виде форматированный вывод целых и строковых значений задается так:
имя:n
Где:
имя – имя переменной , значение которой надо вывести на экран;
n – ширина поля вывода (целая константа).
Форматированный вывод вещественных значений в общем виде задается так:
имя:n:m
Где:
имя – имя переменной;
n – ширина поля вывода (целая константа);
m – количество цифр дробной части.
Примеры:
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(имя);
Где:
имя – имя переменной, значение которой надо получить от пользователя во время работы программы.
