Программа: Игра Угадай число - Turbo Pascal
Формулировка задачи:
Пожалуйста, срочно!((( нужна программа по блок-схеме.
Решение задачи: «Программа: Игра Угадай число»
textual
Листинг программы
Var x,y,a,b: Integer; BEGIN Writeln('Игра "Угадай число".'); Writeln('Введите диапазон (2 числа) Певрое число должно быть меньше второго: '); Repeat Write('Первое число: '); Readln(a); Write('Второе число: '); Readln(b); If a>=b Then Writeln('Первое число должно быть меньше. Повторите'); until a<b; y:=Random(b-a+1)+a; Writeln('Компьютер загадал некоторое число, отгадайте его'); Writeln('Вводите число до тех пор, пока не угадаете'); Repeat Readln(x); If x>y Then Writeln('Ваше число больше'); If x<y Then Writeln('Ваше число меньше'); until x=y; Writeln('Вы угадали'); Readln END.
Объяснение кода листинга программы
- Создается переменная
x
типаInteger
. - Создается переменная
y
типаInteger
. - Создается переменная
a
типаInteger
. - Создается переменная
b
типаInteger
. - Выводится сообщение «Игра
Угадай число
.» - Выводится сообщение «Введите диапазон (2 числа) Певрое число должно быть меньше второго: ».
- В цикле
Repeat
считывается первое число от пользователя и сохраняется в переменнойa
. - В цикле
Repeat
считывается второе число от пользователя и сохраняется в переменнойb
. - Проверяется условие
a>=b
. Если оно истинно, выводится сообщение «Первое число должно быть меньше. Повторите». - Цикл
Repeat
продолжается до тех пор, покаa
не станет меньшеb
. - Вычисляется случайное число
y
в диапазоне отb-a+1
доb
с помощью функцииRandom()
. - Выводится сообщение «Компьютер загадал некоторое число, отгадайте его».
- Пользователю предлагается вводить число до тех пор, пока он не угадает число
y
. - В цикле
Repeat
считывается число от пользователя и сравнивается с числомy
. - Если число пользователя больше числа
y
, выводится сообщение «Ваше число больше». - Если число пользователя меньше числа
y
, выводится сообщение «Ваше число меньше». - Цикл
Repeat
продолжается до тех пор, пока пользователь не угадает числоy
. - Выводится сообщение «Вы угадали».
- Завершается выполнение программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д