Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Первая_Дурочка
0 / 0 / 0
Регистрация: 09.10.2015
Сообщений: 1
#1

Угадай число

09.10.2015, 18:56. Просмотров 893. Ответов 3
Метки нет (Все метки)

нужна программа угадай число, чтоб компьютер загадывал число от 1 до 100 и отвечал больше наше или меньше или угадали, и еще если за 7 попыток не угадываешь он перезагадывает число и снова 7 попыток дает чтоб угадать. можете помочь?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2015, 18:56
Ответы с готовыми решениями:

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

Угадай число
5. Угадай число. Компьютер загадывает число (a:=random(100), мы пытаемся...

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

Программа «Угадай число»
Компьютер загадывает целое число, случайным образом, в диапазоне 1-100....

Составить программу игры «Угадай число»
Составить программу игры «Угадай число». Компьютер загадывает трехзначное число...

3
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27954 / 15673 / 959
Регистрация: 15.09.2009
Сообщений: 67,837
Записей в блоге: 78
09.10.2015, 18:57 #2
ну операторы сравнения то вы уже учили?
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3862 / 2848 / 3632
Регистрация: 05.06.2014
Сообщений: 13,964
09.10.2015, 19:01 #3
Первая_Дурочка, внизу страницы "Похожие темы".
0
Nate_River
0 / 0 / 2
Регистрация: 03.10.2015
Сообщений: 6
17.10.2015, 07:13 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program ttttt;
Var c,n,i:integer;
Begin
Write('Компьютер загадал число от 1 до 100. Какое число? ');
n:=random(100);
Repeat
For i:=1 to 7 do begin
Readln(c);
If c=n then begin writeln('Вы угадали!'); exit; end
Else if c<n then write('Число ',c,' меньше загаданного! ')
Else if c>n then write('Число ',c,' больше загаданного! ');
If i=7 then begin writeln();
  writeln('Число не отгадано за 7 попыток. Компьютер загадал другое число. Какое число? ');
  n:=random(100);
end; end;
Until c=n;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2015, 07:13

Сделать уровни сложности в игре "Угадай число"
Написал программу: program ugadai; uses crt; var a, b, i:integer; begin...

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

"Угадай число" - вывести количество попыток
&quot;Угадай число&quot;. Компьютер загадывает число от 1 до 100. Пользователь вводит с...


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

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

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