Программа «Угадай число»

@zives5 · Регистрация: 11.09.2012

Author24 — интернет-сервис помощи студентам

Компьютер загадывает целое число, случайным образом, в диапазоне 1-100.
Человек должен отгадать его за возможно меньшее число попыток. В ответ на попытку человека компьютер выдает подсказку: введенное число меньше загаданного или больше.
Можно также выдавать подсказку типа "горячо"-"холодно", оговорив предварительно диапазоны (например, "горячо" - если введенное и загаданное число отличаются меньше чем на 5, и "холодно" - для всех остальных случаев).
Если число угадано, выдаются поздравления и предложение начать новую игру
или выйти из программы.
Включайте Вашу фантазию!
_______________________________________________________________
Генератор случайных чисел:
Randomize; - процедура инициализации генератора случайных чисел.
Рекомендуется использовать перед вызовом Random.
a:= Random(100); - функция генерации псевдослучайного числа.
_______________________________________________________________

@CodeR · 04.10.2012, 14:52

Pascal

Var a,n,k:integer;
    c:char;
Begin
    Randomize;
    Repeat
      k:=0;
      a:=random(100);
      Repeat
       write('Введите число: ');readln(n);
       if n>a then writeln('Введенное число больше загаданного');
       if n<a then writeln('Введенное число меньше загаданного');
       inc(k);
      Until n=a;
      writeln('Вы угдали! За ',k,' попыток');
      write('Хотите ещё сыграть?(y/n) ');readln(c);
    Until c='n';
    readln;
End.

23.10.2013, 18:23

Написал на Delphi, как в шапке темы. Тоже ведь Pascal

@zives5 0 / 0 / 0 Регистрация: 11.09.2012 Сообщений: 13
		1
	Программа «Угадай число» 04.10.2012, 14:37. Показов 10538. Ответов 2 Метки нет (Все метки) Компьютер загадывает целое число, случайным образом, в диапазоне 1-100. Человек должен отгадать его за возможно меньшее число попыток. В ответ на попытку человека компьютер выдает подсказку: введенное число меньше загаданного или больше. Можно также выдавать подсказку типа "горячо"-"холодно", оговорив предварительно диапазоны (например, "горячо" - если введенное и загаданное число отличаются меньше чем на 5, и "холодно" - для всех остальных случаев). Если число угадано, выдаются поздравления и предложение начать новую игру или выйти из программы. Включайте Вашу фантазию! _______________________________________________________________ Генератор случайных чисел: Randomize; - процедура инициализации генератора случайных чисел. Рекомендуется использовать перед вызовом Random. a:= Random(100); - функция генерации псевдослучайного числа. _______________________________________________________________ 0

	23.10.2013, 18:23

Программа «Угадай число»

Решение