IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Игра "Угадай число" (2)
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Написать программу, которая "задумывает" число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток. Ниже представлен рекомендуемый вид экрана во время работы программы:

Игра "Угадай число".
Компьютер "задумал" число от 1 до 10.
Угадайте его за 5 попыток.
Введите число и нажмите <Enter>
-> 5
Нет.
-> 3
Вы выиграли! Поздравляю!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Я.
****

Группа: Пользователи
Сообщений: 809
Пол: Мужской
Реальное имя: Саша

Репутация: -  11  +


Цитата(Katolisa @ 11.01.2010 15:55) *

Игра "Угадай число".
Компьютер "задумал" число от 1 до 10.
Угадайте его за 5 попыток.
Введите число и нажмите <Enter>
-> 5
Нет.
-> 3
Вы выиграли! Поздравляю!

Как-то так. Извините, но у меня на клавиатуре западает точка blum.gif , поэтому кое-что вам прийдется дописать... yes2.gif
...
begin
randomize;
writeln('Игра "Угадай число".');
writeln('Компьютер "задумал" число от 1 до 10.');
writeln('Угадайте его за 5 попыток.');
... :=random(...)+1;
for ... do
begin
writeln('Введите число и нажмите <Enter>');
write('-> ');
readln(chislo);
if ... then
begin
writeln('Вы выиграли! Поздравляю!');
readln;
halt;
end
else
writeln('Нет.');
end;
writeln('Вы проиграли!');
readln;
end.


Сообщение отредактировано: sheka -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


спасибо, я почти cделала в Pascale? Возникли вопросы, как скопировать Word или заново печатать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Какой Word ты хочешь скопировать? Может В Word? Тогда не надо ничего заново печатать, открой PAS-файл любым текстовым редактором (при желании - даже тем же Word-ом), и делай с текстом что хочешь...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Я в смысле уже сделала почти и хочу скопировать сюда, чтобы посмотрели на ошибку..... smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Зачем копировать (да еще через Word)? Присоедини PAS-файл (нажимаешь на кнопку "Ответить", и видишь "Прикрепление файлов")
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


program ygadaj4islo;

uses crt;
var x, y, n:integer;
const
p=5;

BEGIN
clrscr;
randomize;
x:=random(9)+1;
writeln('Игра "Угадай число".');
writeln('Компьютер задумал число от 1 до 10 ');
writeln('Угадайте его за ', p , ' попыток.');
writeln('Введите число и нажмите <Enter>');
repeat;
n:=n+1;
write('->');
readln(y);
until (n=p) or (x=y); if x=y
then writeln ('Вы выиграли! Поздравляю! ')
else writeln ('Нет');
readln;
END.




Получилось, смысл в том что комп даёт сразу игроку 5 попыток, а мне нужно, чтобы сразу после неправильного он писал "Нет"........ blush.gif cool.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Тебе чуть выше написали, как надо делать: надо СРАЗУ после того, как число было введено, внутри цикла ещё, проверять его на равенство с тем числом, которое загадал компьютер. А ты проверяешь только после окончания цикла...

P.S. Добавь теги CODE, программа не воспринимается без них совершенно... Какой-то набор символов...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Женский

Репутация: -  0  +


Всё УРА, спасибо огромное за помощь....всё получилось!!!! good.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.11.2020 2:08
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name