Скрытое введенное значение

[viks1]

Сообщение от Вадим Мошев

Возможно, вы неверное записали конструкцию цикла Repeat.
Она пишется так:

Repeat
	<оператор 1>;
	<оператор 2>;
	.......
	<оператор N>;
Until <Логическое выражение>

Цикл завершится в том случае, если Логическое выражение, поставленное после слова Until, будет ИСТИННЫМ.

У вас так же записано? А вообще, покажите то место, где у вас возникает ошибка.

Т.е использовать не while а repeat?

[Вадим Мошев]

Вы покажите код, где у вас возникает ошибка.

Т.е использовать не while а repeat?

Это плохой подход, уходить от того, что вызывает ошибку. Нет никакой гарантии того, что, написав цикл While, у вас всё пойдёт гладко. В большинстве случаев (но не всегда) цикл Repeat можно заменить While или наоборот. Однако, при такой замене стоит помнить, что при определённом условии, цикл While может вообще ни разу не выполниться, в то время, как Repeat при этом же условии выполнится лишь один раз. Да, и при замене стоит поменять условия на его отрицание.

[viks1]

program game;
uses
crt;
var
a,b:integer;
i:byte;
label
f;
begin
  writeln('загадайте число');
  readln(a);
  clrscr;
  writeln('угадайте число, попыток всего 5:)');

i:=1;
 if i<=5 then

 repeat
 begin
 inc(i);
  
f:  readln(b);
 if b=111 then writeln('ваш код ',a) else
 if a=b then writeln('вы выйграли') else
 if a<b then writeln('введите число поменьше') else
 if a>b then writeln('введите число побольше');

 end;
 until a=b else
 writeln('количество попыток исчерпано');

readln;
end.

да, у меня получилось сделать выход с приложения по причине если ты выиграл, но каким образом мне в until влепить + выход с цикла по причине исчерпавшихся попыток?

[Mad_Cat]

i:=0;
repeat
 inc(i);
 readln(b);
 if b=111 then writeln('ваш код ',a) else
 if a=b then writeln('вы выйграли') else
 if a<b then writeln('введите число поменьше') else
 writeln('введите число побольше');
until (a=b)  or (i=5);
if (i = 5) and (a<>b) then writeln('количество попыток исчерпано')

[viks1]

Сообщение от Mad_Cat

i:=0;
repeat
 inc(i);
 readln(b);
 if b=111 then writeln('ваш код ',a) else
 if a=b then writeln('вы выйграли') else
 if a<b then writeln('введите число поменьше') else
 writeln('введите число побольше');
until (a=b)  or (i=5);
if (i = 5) and (a<>b) then writeln('количество попыток исчерпано')

когда условие удовлетворяет вот это (a<>b) зачем тогда этоif a=b then writeln('вы выйграли') ???
я на всякий случай проверил: первый запрос на ввод, и не важно, выйграл, нет, полюбэ вылет.

[viks1]

Сообщение от Вадим Мошев

Вы покажите код, где у вас возникает ошибка.

Это плохой подход, уходить от того, что вызывает ошибку. Нет никакой гарантии того, что, написав цикл While, у вас всё пойдёт гладко. В большинстве случаев (но не всегда) цикл Repeat можно заменить While или наоборот. Однако, при такой замене стоит помнить, что при определённом условии, цикл While может вообще ни разу не выполниться, в то время, как Repeat при этом же условии выполнится лишь один раз. Да, и при замене стоит поменять условия на его отрицание.

вы были правы, я к while хотел прилепить until, вот и возникали ошибки.

[Mad_Cat]

я на всякий случай проверил: первый запрос на ввод, и не важно, выйграл, нет, полюбэ вылет.

Может это все таки руки?
не угадал:

загадайте число
8
угадайте число, попыток всего 5
1
введите число побольше
4
введите число побольше
6
введите число побольше
6
введите число побольше
4
введите число побольше
количество попыток исчерпано

угадал:

загадайте число
5
угадайте число, попыток всего 5
1
введите число побольше
2
введите число побольше
3
введите число побольше
4
введите число побольше
5
вы выйграли

[viks1]

Сообщение от Mad_Cat

Может это все таки руки?

может не спорю)
Часто бывает, у кого то выходит а у меня нет... попробую еще раз)

[Hacker19_90]

нуу несколько слов по поводу задумки, а именно игры "угадай" число

Я ввожу число, а там уже игрок вводит свои значения.

Очень интересно где, это там?
Не проще ли организовать рандом числа! то есть

randomize;
chislo := random(100);

любое число от 0 до 100! и ничего вводить не надо!

[Вадим Мошев]

Сообщение от Hacker19_90

нуу несколько слов по поводу задумки, а именно игры "угадай" число

randomize;
chislo := random(100);

любое число от 0 до 100! и ничего вводить не надо!

На самом деле, здесь будет генерироваться число от нуля до 99, а не до ста.
Функция Random(N) возвращает случайно число от нуля, до N-1.
Чтобы получить число от нуля до 100, надо написать: Random(101)