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.

В

ывод в окно консоли

Вывод информации на экран (в окно консоли) выполняют инструкции write и writeln.

В общем виде инструкции вывода информации в окно консоли записываются так:

write(список_вывода);

writeln(список_вывода);

где:

список_вывода – разделенные запятыми имена переменных, строковые константы или выражения.

Примеры:

write(sum);

write('Press <Enter>');

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, которая в общем виде записывается так: