Question

В PascalABC пользователь загадывает число а компьютер должен угадать.

Answer 1

Var a,b: integer;   begin randomize; a := random(100);   while a <> b do begin write('Введи число: '); readln(b); if b > a then writeln('Много') else if b < a then writeln('Мало') else writeln('Угадал'); end;   readln end.

Answer 2

Для реализации данной программы в PascalABC необходимо использовать алгоритм угадывания числа. Возможно несколько способов решения, вот один из них:

1. Сначала пользователь должен указать диапазон возможных чисел, из которого будет выбираться загаданное число. Например, пользователь может ввести два числа: минимальное и максимальное значение. Для этого можно использовать функцию Readln.

2. После указания диапазона компьютер может попытаться угадать число, используя метод деления интервала пополам. Для этого нужно вычислить середину интервала, например с помощью выражения (минимальное значение + максимальное значение) div 2. Затем компьютер может вывести свою попытку угадывания с помощью функции Writeln.

3. Пользователь должен сообщить, верно ли компьютер угадал число или же загаданное число меньше или больше попытки компьютера. Для этого вы можете использовать функцию Readln, чтобы пользователь ввел указание.

4. Если компьютер не угадал число, то он должен проверить, меньше или больше загаданное число от той попытки, которую он сделал. Если загаданное число меньше, то изменяется максимальное значение, иначе - минимальное значение. Затем компьютер переходит к пункту 2 и делает новую попытку угадывания.

5. Процесс повторяется, пока компьютер не угадает число. Когда компьютер угадает число, он выведет сообщение о победе.

Вот пример кода на PascalABC, реализующего данную игру "Угадай число" с использованием описанного алгоритма:

program GuessNumber;

var
  min, max, attempt, answer: integer;

begin
  // Шаг 1: пользователь указывает диапазон чисел
  Writeln('Укажите диапазон чисел:');
  Readln(min);
  Readln(max);
  
  // Шаг 2-5: компьютер пытается угадать число
  repeat
    // Вычисляем новую попытку угадывания
    attempt := (min + max) div 2;
    
    // Выводим свою попытку угадывания компьютера
    Writeln('Компьютер предполагает, что число равно ', attempt);
    
    // Пользователь указывает, верно ли компьютер угадал число
    Readln(answer);
    
    // Если компьютер не угадал - корректируем диапазон
    if answer < 0 then
      max := attempt - 1
    else if answer > 0 then
      min := attempt + 1;
      
  // Повторяем, пока компьютер не угадает число
  until answer = 0;
  
  // Выводим сообщение о победе
  Writeln('Компьютер угадал число!');
  
end.

Это основной алгоритм игры "Угадай число" в PascalABC. Вы можете настроить данный код по своему усмотрению, добавить дополнительные проверки или выводить дополнительные сообщения.