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);
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 – количество цифр дробной части (целая константа).
Примеры:
// переменные x1 и x2 – вещественного типа
writeln (́ x1=́, x1:9:3, ́ x2=́, x2:9:3);
// переменная name строковая, salary – вещественная
writeln (name:15, salary:12:3);
// выражение pound*0.453 вещественного типа
writeln (pound:5:2,́ фунтов =́, pound*0.453:6:3, ́ кг.́);
Ввод данных с клавиатуры
Ввод данных с клавиатуры обеспечивает инструкция readln, которая в общем виде записывается так:
readln (имя);
где:
имя – имя переменной, значение которой надо получить от пользователя во время работы программы.
Примеры:
readln (name);
readln (salary);
ВНИМАНИЕ! При вводе вещественных значений в качестве десятичного разделителя следует использовать точку. Если при вводе вещественного значения вместо точки будет введена запятая, ошибка ввода (исключение) не возникает, но дробная часть будет отброшена.
