Название: Pascal Next. Руководство программиста
Автор: Никита Борисович Культин
Издательство: Автор
isbn:
isbn:
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.
Вывод в окно консоли
Вывод информации на экран (в окно консоли) выполняют инструкции 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, которая в общем виде записывается так:
readln(имя);
Где:
имя – имя переменной, значение которой надо получить от пользователя во время работы программы.
Примеры:
readln(name);
readln(salary);
ВНИМАНИЕ! При вводе вещественных значений в качестве десятичного разделителя следует использовать точку. Если при вводе вещественного значения вместо точки будет введена запятая, ошибка (исключение) не возникает, СКАЧАТЬ