Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите с программой.
Пользователь вводит с клавиатуры сумму, которая у него есть. Далее«садится за рулетку».Программа спрашивает , какая ставка и на что ставит. пользователь .Ставка идет на конкретное число(от 1 до 36).Выпадающее число генерируется случайным образом в программе.Если. пользователь угадал,то его ставка увеличиваетсяив 36 раз и возвращает в его банк.Если. не угадал ,то не возвращает.Далее пользователю выдается сообщение о том,сколько денег у него осталось и задается вопрос ,хочет он продолжать или нет.Игра продолжается до тех пор, пока пользователь не захочет завершить игру или у него не закончатся деньги.

Ответ оставил Гость

Begin
Writeln(Введите имя игрока );
var name := ReadString;
Writeln(Введите сумму );
var sum := ReadInteger;
while True do
begin
Writeln(Введите ставку от , 1, до , sum);
var stavka := ReadInteger;
if stavka > sum then
writeln(Ставка не может превышать имеющиеся наличные)
else
begin
sum -= stavka;
Writeln(Введите число от 1 до 36);
var number := random(1, 36);
var getnumber := ReadInteger;
if (getnumber < 1) or (getnumber > 36) then
Writeln(Неверное число. Вы потеряли ставку!)
else
if number = getnumber then
begin
Writeln(Вы угадали! Вы получаете 36х ставку);
sum += (36 * stavka);
end
else
Writeln(Не угадали. Вы потеряли ставку!)
end;
writeln;
Writeln(Имя игрока , name);
Writeln(Текущие деньги , sum);
writeln;
if (sum <= 0) then
begin
Writeln(name, , Вы Проиграли! Надеюсь, Вам повезет в следующий раз);
break;
end;
end;
end.