Оператор условия

[[Smarik]]

number:=number-i;
number:=number-ai;
if number-i<=0 then writeln('Вы проиграли');
if number-ai<=0 then writeln('Вы победили');

При таком условии программа по окончанию цикла выводит

Вы проиграли
Вы победили

как заставить его думать и выводить правильно?

[puporev]

if number-i<=0 then writeln('Вы проиграли')
else
if number-ai<=0 then writeln('Вы победили');
Думать-то вам надо, а железяке это ни к чему.

[[Smarik]]

При таком условии я всегда проигрываю =)

[Hollander]

Мне кажется что алгоритм какой-то не очень, попробуй моделировать ситуацию:
number = 10
i = 5
ai = 3
ты делаешь
number = number - i //т.е. number = 5
потом
number - ai // number = 3
потом получается опять вычитаешь из number'a тут получается что они оба меньше нуля и будет выводится то что идет первое на проверку
Объясни задачу

[Stilet]

Во-первых: Приоритеты не забываем:

number:=number-i;   
number:=number-ai;   
if ((number-i)<=0) then writeln('Вы проиграли');   
if (number-ai)<=0) then writeln('Вы победили');

Во-вторых: Задача непонятна вкорне, и алгоритм такой ну совсем не катит

[[Smarik]]

Не факт что они оба меньше 0 иногда иначе, но то что берет первое условие ето факт.
Задача:
Создать известную игру кто вытянит последнбб палочку тот проиграл
Вот весь код

uses crt;
 var
 i,ai,number:integer;
 begin
 clrscr;
 number:=15;
 while number>0 do
 begin
 writeln;
 textcolor(red);
 if number=15 then writeln('| | | | | | | | | | | | | | |');
 if number=14 then writeln('| | | | | | | | | | | | | |');
 if number=13 then writeln('| | | | | | | | | | | | |');
 if number=12 then writeln('| | | | | | | | | | | |');
 if number=11 then writeln('| | | | | | | | | | |');
 if number=10 then writeln('| | | | | | | | | |');
 if number=9 then writeln('| | | | | | | | |');
 if number=8 then writeln('| | | | | | | |');
 if number=7 then writeln('| | | | | | |');
 if number=6 then writeln('| | | | | |');
 if number=5 then writeln('| | | | |');
 if number=4 then writeln('| | | |');
 if number=3 then writeln('| | |');
 if number=2 then writeln('| | ');
 if number=1 then writeln('|');
 if number<=0 then writeln('Палочки кончились');
 writeln;
 textcolor(green);
 write('Вы: ');
 readln(i);
 if i=1 then number:=number-i else number:=number-0;
 if i=2 then number:=number-i else number:=number-0;
 if i=3 then number:=number-i else number:=number-0;
 textcolor(yellow);
 if i>3 then writeln('Вы не можете взять больше 3');
 if i<1 then writeln('Вы не можете взять меньше 1');
 writeln('Осталось палочек: ',number);
 randomize;
 ai:=random(3);
 ai:=ai+1;
 textcolor(green);
 writeln('Соперник: ',ai);
 number:=number-ai;
 textcolor(yellow);
 writeln('Осталось палочек: ',number);
 if number-ai<1 then writeln('Вы победили')
 else
 if number-i<1 then writeln('Вы проиграли');
 end;
 readkey;
 end.

тут же вопрос, над ним я еще не думал...как видно если человек вводит число вне диапазон от 1 до 3 то ничего не происходит, он пропускает ход и ходит AI как сделать что AI не ходил пока пользователь не сделает результативный ход?

[Stilet]

как сделать что AI не ходил пока пользователь не сделает результативный ход?

Всмысле это чтоб прога не ходила если игрок попытается взять более трех спичек? ТОгда можно так:

repeat
 write('Вы: ');   
 readln(i);   
until (i in [0..3]);

[[Smarik]]

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

Всмысле это чтоб прога не ходила если игрок попытается взять более трех спичек? ТОгда можно так:

repeat
 write('Вы: ');   
 readln(i);   
until (i in [0..3]);

Спасибо, так все таки как условия победы и поражения прописать?

[Hollander]

Так смотри у тебя же условие: кто вытащит последнюю, тот проиграл, т.е. после каждого ходов компа и человека проверяй number <= 0 и выводи чей ход был тот и проиграл