Игра "Кости" на паскале

[Наталья111]

Добрый всем вечер! Вот пишу программу игра "Кости" на паскале.
Так вроде все нормально, но возникла такая проблема, после того как пользователь введет ставку и число, выпадают два кубика и они постоянно равны, т.е. если первый кубик выпал 2, то и второй будет 2. Где у меня ошибка, подскажите пожалуйста...буду очень признательна, а то завтра сдавать нужно, а программа не доработана...

Вот код:

Uses crt;
var
stavka, stavka1:integer;
stchislo:integer;
kub1, kub2:integer;
begin
 stavka1:=0;   
 writeln('Vvedite stavky');
 readln(stavka);
 writeln('Vvedite chislo na kotoroe stavite');
 readln(stchislo);
 Randomize;
 kub1:=Random(5)+1;
 kub2:=Random(5)+1;
 case kub1 of
 0: writeln('Pervii kubik = 1');
 1: writeln('Pervii kubik = 2');
 2: writeln('Pervii kubik = 3');
 3: writeln('Pervii kubik = 4');
 4: writeln('Pervii kubik = 5');
 5: writeln('Pervii kubik = 6');
 end;
 case kub2 of
 0: writeln('Vtoroi kubik = 1');
 1: writeln('Vtoroi kubik = 2');
 2: writeln('Vtoroi kubik = 3');
 3: writeln('Vtoroi kubik = 4');
 4: writeln('Vtoroi kubik = 5');
 5: writeln('Vtoroi kubik = 6');
 end;

 if (kub1=kub2) and (stchislo=kub1+kub2) then
  begin
   stavka1:=stavka*4;
   writeln('Vi viigrali!');
  end
   else
    begin
     if ((((kub1+kub2)<=7) and (stchislo<=7) or (((kub1+kub2)>7) and (stchislo>7)))) then
      begin
       stavka1:=stavka*2;
       writeln(stavka1);
      end
      else
      begin
      writeln(stavka1);
     end;

     Readln;
end;
end.

Заранее огромное за помощь!

[Базиля]

Вбил твой код у себя, не знаю в чем у тебя проблема, но у меня выдает разные значения, так что проблема явно не в коде

[Наталья111]

Сообщение от Базиля

Вбил твой код у себя, не знаю в чем у тебя проблема, но у меня выдает разные значения, так что проблема явно не в коде

а в чем может быть проблема?

[Базиля]

а в чем может быть проблема?

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

[Наталья111]

Сообщение от Базиля

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

Уже часа два ее гоняю...все равно...разрабатываю в Turbo pascal 7

[Базиля]

Наталья111
у меня Pascal ABC 3.0.1
попробуй его скачай и прокомпилируй там,интересно, если все будет нормально тогда почему на TP не работает....

[Alex_FF]

вместо

 case kub1 of
 0: writeln('Pervii kubik = 1');
 1: writeln('Pervii kubik = 2');
 2: writeln('Pervii kubik = 3');
 3: writeln('Pervii kubik = 4');
 4: writeln('Pervii kubik = 5');
 5: writeln('Pervii kubik = 6');
 end;
 case kub2 of
 0: writeln('Vtoroi kubik = 1');
 1: writeln('Vtoroi kubik = 2');
 2: writeln('Vtoroi kubik = 3');
 3: writeln('Vtoroi kubik = 4');
 4: writeln('Vtoroi kubik = 5');
 5: writeln('Vtoroi kubik = 6');
 end;

я думаю лучше так написать:

WriteLn('Pervii kubik = ', kub1);
WriteLn('Vtoroi kubik = ', kub2);

Это просто чтобы лучше смотрелось...

На Turbo Pascal 7.1 проверял - всё работает - выдаёт разные значения, так что дело не в коде.

[Наталья111]

Сообщение от Базиля

Наталья111
у меня Pascal ABC 3.0.1
попробуй его скачай и прокомпилируй там,интересно, если все будет нормально тогда почему на TP не работает....

Было бы время...еще отчет оформлять...
я думаю ошибка где case они там как то зацикливаются, т.е. проходит ч/з первый case , а затем второй case уже автоматически присваивает значение первого...

[Базиля]

Наталья111

Было бы время...еще отчет оформлять...
я думаю ошибка где case они там как то зацикливаются, т.е. проходит ч/з первый case , а затем второй case уже автоматически присваивает значение первого...

такого не может быть
можешь писать смело отчет, вот скриншот сделал тебе, в доказательство что твоя программа работает:

[pif]

протестил на обычном паскале кубики разные выпадают.