Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 20.07.2014
Сообщений: 23
1

Написать программу, в которой задается число, а компьютер его угадывает

21.09.2014, 07:32. Показов 2279. Ответов 3
Метки нет (Все метки)

помогите пожалуйста, написать программу, в которой я задаю число, а компьютер угадывает это число. количество попыток ограничено
?
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.09.2014, 07:32
Ответы с готовыми решениями:

Написать программу, которая угадывает задуманное число
Написать программу, которая угадывает задуманное число, если отгадало то дает вохможность сыграть...

Написать программу, которая угадывает загаданное пользователем число
Помогите пожалуйста хотя бы своими рассуждениями как она должна работать.То есть к примеру...

Напишите программу "Угадай число", но здесь компьютер угадывает ваше число
Напишите программу "Угадай число", но здесь компьютер угадывает ваше число. Желательно, чтобы в...

Необходимо написать программу, в которой размер матрици задается вручную
Необходимо написать программу, в которой размер матрици задается вручную, елементы вводятся...

3
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
21.09.2014, 08:46 2
Лучший ответ Сообщение было отмечено iCoval как решение

Решение

Например так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
var a,p,b,k:integer;
    m:set of byte;
begin
randomize;
repeat
write('Загадайте целое число от 1 до 10 a=');
readln(a);
until a in [1..10];
repeat
write('Количество попыток от 1 до 5 p=');
readln(p);
until p in [1..5];
k:=1;
b:=0;
m:=[];
while(k<=p)and(b<>a) do
 begin
  repeat
  b:=1+random(10);
  until not(b in m);
  m:=m+[b];
  writeln('Попытка ',k,' b=',b);
  if b=a then write('Число угадано!')
  else  inc(k);
 end;
if k>p then write('Число не угадано')
end.
1
0 / 0 / 0
Регистрация: 09.03.2021
Сообщений: 4
09.03.2021, 13:40 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Program Ugaday_Chislo;
var
 a : integer;
   
  begin
  writeln('Привет, как тебя зовут ?');
  readln();
  writeln('Загадай число от 1 до 100 и я отгадаю его с 7 попыток');
  writeln('Загадал ? Жми Enter');
  readln();
  writeln('Это число 50 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3 ');
  readln(a);
 if a=1 then Writeln('Это число 75 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3 ');
 if a=2 then Writeln('Это число 25 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3 ');
 if a=3 then Writeln('Угадал!!');
 Read(a);
case a of
   1: writeln('Это число 87 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   2: writeln('Это число 63 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   4: writeln('Это число 37 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');
   5: writeln('Это число 13 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');   
 end;
   Readln(a);
case a of
   1: writeln('Это число 93 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   2: writeln('Это число 57 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   3: writeln('Угадал!');
   4: writeln('Это число 43 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');
   5: writeln('Это число 7 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');   
end;
  Readln(a);
 case a of
   1: writeln('Это число 96 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   2: writeln('Это число 54 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   3: writeln('Угадал!');
   4: writeln('Это число 46 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');
   5: writeln('Это число 4 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');   
end;
  Readln(a);
  case a of
   1: writeln('Это число 98 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   2: writeln('Это число 52 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   3: writeln('Угадал!');
   4: writeln('Это число 48 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');
   5: writeln('Это число 2 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');   
end;
  readln(a);
  case a of
   1: writeln('Это число 99 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   2: writeln('Это число 51 ?, если больше нажми 1 если меньше нажми 2 если угадал жми 3');
   3: writeln('Угадал!');
   4: writeln('Это число 49 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');
   5: writeln('Это число 1 ?, если больше нажми 4 если меньше нажми 5 если угадал жми 3');   
end;
    
  end.
0
4343 / 2111 / 2115
Регистрация: 10.12.2014
Сообщений: 8,146
09.03.2021, 14:41 4
Vitaels, ну к чему ваш код?
Он не умеет отгадывать!
Всего 23 числа из 100
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.03.2021, 14:41

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Компьютер угадывает число
Пользователь загадывает число от 1 до 100 и компьютер пытается угадать. На каждую попытку...

Компьютер угадывает число. Задача решена, как считаете? (вектор и цикл)
Компьютер должен угадать задуманное пользователем число с 7-ми попыток. Хотел написать с...

Написать программу "Угадай число". В программе задается число. С ним она сравнивает числа, вводимые с клавиату
с помощью GOTO

Написать функцию, которая «угадывает» задуманное пользователем число
Написать функцию, которая «угадывает» задуманное пользова- телем число от 1 до 2000. Для запроса к...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.