Вопрос по информатике:
ПОЖАЛУЙСТА ПОМОГИТЕ ОЧЕНЬ НАДО
Написать программу, которая «задумывает» число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!
- bookmark_border
- 03.08.2017 03:55
- Информатика
- remove_red_eye 14391
- thumb_up 8
Ответы и объяснения 1
salongnstes619
(С подсказками, не надо — удали)
var r,ch,z: integer;
begin
Randomize;
r:=random(10)+1;
z:=5;
repeat
write(‘Отгадайте число от 1 до 10. У вас ‘,z,’ попыток :’);
readln(ch);
z:=z-1;
if z>0 then
begin
If ch r then Writeln(‘Неправильно! Загаданное число меньше.’)
else writeln(‘Вы угадали!’);
end
else Writeln(‘Попытки кончились!’);
until (z=0)or(ch=r);
Создание игры «Угадай число» на языке программирования c++.
End.
- 04.08.2017 06:04
- thumb_up 5
Знаете ответ? Поделитесь им!
Как написать хороший ответ?
Чтобы добавить хороший ответ необходимо:
- Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
- Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
- Писать без грамматических, орфографических и пунктуационных ошибок.
Этого делать не стоит:
- Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
- Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
- Использовать мат — это неуважительно по отношению к пользователям;
- Писать в ВЕРХНЕМ РЕГИСТРЕ.
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Источник: online-otvet.ru
ПОЖАЛУЙСТА ПОМОГИТЕ ОЧЕНЬ НАДО Написать программу, которая «задумывает» число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.
ПОЖАЛУЙСТА ПОМОГИТЕ ОЧЕНЬ НАДО Написать программу, которая «задумывает» число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.
Ответ(ы) на вопрос:
(С подсказками, не надо — удали) var r,ch,z: integer; begin Randomize; r:=random(10)+1; z:=5; repeat write(‘Отгадайте число от 1 до 10. У вас ‘,z,’ попыток :’); readln(ch); z:=z-1; if z>0 then begin If ch r then Writeln(‘Неправильно! Загаданное число меньше.’) else writeln(‘Вы угадали!’); end else Writeln(‘Попытки кончились!’); until (z=0)or(ch=r); End.
rand. srand. rand задать диапазон. srand time null. Генератора случайных чисел. randomize. Урок #29.
Источник: cwetochki.ru
Написать программу, которая задумывает число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток — Turbo Pascal
Возникла проблема, связанная с отсутствием мозгов ) Дали задание такого типа: Написать программу, которая задумывает число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток,программа сообщает, больше или меньше загаданное число путем вывода сообщений, больше или меньше загаданное число.После чего программа предлагает сыграть еще раз. В целом, я просто не могу масштабно представить весь алгоритм. программу реализовал, алгоритм явно дибильный. Выложу, посмейтесь:
uses crt; var r,ch,z,o: real; begin o:=1; Repeat begin Randomize; r:=random(11); writeln(‘угадайте число от 1 до 10. у вас 5 попыток’); Z:=5; While z>0 do begin write(‘Введите число:’); readln(ch); if (ch < r) then begin z:=z-1; Writeln(‘Загаданное число больше! ‘, z ,’ попыток осталось’); End else if ch >r then begin z:=z-1; Writeln(‘Загаданное число меньше! ‘, z ,’ попыток осталось’); End else Begin Writeln(‘Верно!’); Z:=5; break; End; End; Writeln(‘Сыграем еще? (1 ):’); readln(o); While not (o=0) and not (o=1) do begin Writeln(‘Введите корректный ответ (1 ):’); readln(o); end; if o=0 then exit; End until o
Предполагаю, что лучше всего использовать процедуру, но, увы, на лекциях спал, и помню синтакис лишь смутно. Прошу помочь в скорем времени. Заранее спасибо.
Разобрался, используя метки. Вот:
uses crt; var r,ch,z: integer; o: char; label L,L2,M; begin o:=’1′; M: Repeat begin Randomize; r:=random(10)+1; write(‘Отгадайте число от 1 до 10. У вас 5 попыток :’); Z:=5; While z<>0 do begin readln(ch); z:=z-1; If (ch>r) and (z>0) then begin Writeln(‘Неправильно! Загаданное число больше. ‘, z ,’ попыток осталось’); End else If (ch0) then begin Writeln(‘Неправильно!
Загаданное число меньше. ‘, z ,’ попыток осталось’); End else If (z=0) then begin Writeln(‘Попытки кончились!’); goto L; end Else If (ch=r) then begin Writeln(‘Верно!’); goto L; End; end; L: write(‘Попробовать еще раз? (1/0):’); L2: readln(o); Case o of ‘1’ : goto M; ‘0’ : break; else begin writeln(‘Введите требуемый знак!’); goto L2; end; end; End until o<>’0′; End.
Но кажется, что можно было реализовать все с помощью обычных циклов. Если у кого получится сотворить нечто, очень хочется посмотреть.
Код к задаче: «Написать программу, которая задумывает число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток»
Листинг программы
uses crt; var a,b,c: integer; begin clrscr; Randomize; a:=random(10)+1; c:=5; repeat write(‘Отгадайте число от 1 до 10. У вас ‘,c,’ попыток:’); readln(b); c:=c-1; if c>0 then begin if ba then writeln(‘Неправильно! Заданное число меньше.’); end else writeln(‘Попытки закончились!’); until (c=0)or(b=a); writeln(‘Вы угадали!’); readln; end.
Источник: studassistent.ru