1. 9.
Составление диалоговых программ
Диалоговый режим работы программы
заключается в диалоге пользователя с
программой в соответствии с
запрограммированной схемой возможных
вариантов. Во время
выполнения программы происходит запрос к
пользователю ввести дополнительные данные, определяющие дальнейшую работу
программы. Приведем
пример программы угадывания случайно
выбранного числа в интервале от 5 до 16 с пяти
попыток.
PROGRAM
NUMBER;
{
угадать случайное число }
Var I,
N, N1: integer;
BEGIN
Randomize; N1:= Random(12) +
5;
for i:= 1 to 5 do begin
Write('угадайте
число от 5 до 16 N='); readln(N);
IF N<>N1
then begin Writeln('не
угадал');
Writeln('осталось ', 5-i, '
попыток') end
else begin Writeln('угадал'); Writeln('Нажмите Enter');
readln; Halt
end
end; Writeln('Нажмите Enter'); readln;
END.
Определение формулы для "N1"
производится по следующему алгоритму.
Пусть дано N_Min и N_Max - интервал изменения N1, тогда случайное значение
N1:= Random(A) + B; где B:= N_Min;
A:= N_Max - N_Min + 1;
