Игра для PascalABC.NET (версия 1.1)

var
  a, b, c, c1, k: integer;
  d: char;

begin
  write('Давайте поиграем. Задумайте целое число и никому не говорите его. А я посредством ваших ответов на мои вопросы угадаю его. Введите два целых числа, таких, что первое меньше второго, и между которыми лежит задуманное вами число: ');
  readln(a, b);
  k := 0;
  c := 1;
  c1 := 0;
  repeat
    k := k + 1;
    c := (a + b) div 2;
    if c = c1 then begin writeln('Ваше число равно ', c + 1, '.'); break end;
    write('Ваше число меньше, больше или равно ', c, '? В качестве ответа напишите символ <,> или = соответственно: ');
    readln(d);
    case d of
      '=': writeln('Ваше число равно ', c, '.');
      '<': b := c;
      '>': a := c;
    else writeln( 'Вы неправильно написали ответ на заданый вопрос.');
    end;
    c1 := c;
  until d = '=';
  if d = '=' then writeln('Я угадал ваше число за количество шагов, равное ', k, '.') else writeln('Я угадал ваше число за количество шагов, равное ', k - 1, '.')
end.
Добавлено: 10 Апреля 2014 09:46:17 Добавил: Андрей Ковальчук Нравится 0
Добавить
Комментарии:
Нету комментариев для вывода...