Программа угадывания чисел в паскале

Программа угадывания чисел в паскале

Угадай число

Отгадать целое число, которое "загадал" компьютер в определенном диапазоне.

x — число, "загаданное" компьютером;

y — Очередное число, вводимое пользователем.

Алгоритм решения задачи:

Программа генерирует псевдослучайное число, которое записывается в переменную x. Пока число x не совпадет с числом y, пользователю будет предлагаться ввести очередное число. При этом, если x > y, то на экран будет выдаваться сообщение "Ваше число меньше задуманного". Иначе будет проверяться условие x 0 then begin

if x=y then begin writeln (‘Вы угадали!’);

else begin if y>x then

writeln (‘Ваше число больше задуманного’)

else writeln (‘Ваше число меньше задуманного’);

else begin writeln (‘Число попыток истекло’);

Примечания: Угадать число всегда можно не более чем через 5 попыток.

Программа “Тир” представляет с собой игровую программу. Мишень в “тире” имеет круглую форму. Программа выводит приглашение: «Добро пожаловать в тир». После этого пользователю предлагается сделать выстрел, т. е. ввести значимое x и y. Выводит сообщение: «Ваш выстрел, введи значимое x, y». Если это значение удовлетворяет условию x 2 +y 2 2 , то пользователь попадет в мишень, иначе нет. При промахе программа выводит сообщение о промахе: «Промах, попробуйте еще раз» и предлагает пользователю сделать выстрел еще раз. Программа на языке Pascal:

Writeln (`Добро пожаловать в тир’);

2:writeln (`Ваш выстрел, введи значимое x, y’);

В программе генерируется случайное целое число от 0 до 100. Пользователь должен его отгадать не более чем за 10 попыток. После каждой неудачной попытки должно сообщаться больше или меньше введенное пользователем число, чем то, что загадано. Если за 10 попыток число не отгадано, то вывести загаданное число.

  1. Сгенерировать случайное число.
  2. Ввести счетчик попыток. Присвоить ему значение 1.
  3. Пока счетчик попыток меньше, либо равен 10
  1. запрашивать у пользователя очередное число,
  2. если оно больше загаданного, то выводить "много",
  3. если оно меньше загаданного, то выводить "мало",
  4. иначе сообщать, что число угадано и прерывать выполнение цикла,
  5. увеличивать счетчик попыток на единицу.
Читайте также:  Материнская плата asus maximus viii gene характеристики
  • После цикла, если число не было угадано, то вывести сообщение о том, что попытки исчерпаны, и какое число было загадано компьютером.
  • Самый верный способ отгадать число менее чем за 10 попыток — это делить диапазон на 2. Например, если число лежит в пределах от 0 до 100, то введя 50 мы сразу сокращаем диапазон поиска в два раза. Если было сказано, что загаданное число меньше 50-ти, то вводим 25 и таким образом снова сокращаем диапазон в 2 раза.

    Если следовать этому правилу то потребуется 6-7 попыток, т.к. число 100 (изначальная длина диапазона) лежит в пределах между 2 6 и 2 7 .

    Дана задача: Написать игру, где компьютер загадывает число, а пользователь его угадывает, при этом количество попыток ограничено.
    Написал весь код, но проблемы возникли с ограничением попыток.

    Вот сам код:
    program Game;

    var
    a, x, t: integer;

    begin
    Randomize;
    x := random(9) + 1;
    a := 10;
    t := 5;
    while a <> x do
    begin
    t := t — 1;
    writeln(‘Введите правильное число от 1-10: ‘);
    readln(a);
    if a > x then writeln(‘[Меньше] Неверно!’)
    else if a Лучший ответ

    Самое простое, что можно сделать это добавить оператор прерывания break как в коде ниже:
    program Game;

    var
    a, x, t: integer;

    begin
    Randomize;
    x := random(9) + 1;
    a := 10;
    t := 5;
    while a <> x do
    begin
    t := t — 1;
    writeln(‘Введите правильное число от 1-10: ‘);
    readln(a);
    if a > x then writeln(‘[Меньше] Неверно! ‘)
    else if a Остальные ответы

    Ссылка на основную публикацию
    При каком альфа векторы компланарны
    Единого обозначения компланарность не имеет. Свойства компланарности Пусть — векторы пространства . Тогда верны следующие утверждения: Если хотя бы один...
    Нет msvcr120 dll что делать
    Если, попытавшись включить любимую игру, вы натыкаетесь на окно, которое гласит, что запуск программы невозможен по причине отсутствия mscvr120.dll —...
    Нет беспроводного сетевого соединения windows 7
    На панели задач в Windows или в меню «Центр управление сетями» нет иконки Wi-Fi? Это не значит, что вышло из...
    При каком значении m прямая параллельна плоскости
    Точка C(—3, 4,1) найдена. 6. Написать уравнение плоскости, проходящей через точки M1(1, —2, 1), M2(4, 2, 3) и параллельной вектору...
    Adblock detector