Код для простой текстовой рулетки :
Если не сложно прокомментируйте
Uses crt;
var
c,a,s,ch,v,d: longint;
begin
d:=0;
c:=1000;
repeat
writeln('Coin: ',c);
writeln('Ваша ставка: ');
read(s);//Используй только цифры
if s <= c then
begin
writeln('Ваше число(1-5): ');
read(ch);
if (ch<=5) and (ch>=1) then // только числа от 1 до 5
begin
randomize;
a:=random(5)+1;
if ch=a then
begin
writeln('Win!!');
v:=s*10; // сумма выигрыша умножается на 10
c:=c+v;
end
else
writeln('Lose');
c:=c-s;
end;
end;
clrscr;
until d=1;
end.
Простая рулетка |