IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Простая рулетка
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской
Реальное имя: Костя

Репутация: -  0  +


Код для простой текстовой рулетки :
Если не сложно прокомментируйте smile.gif


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.




Прикрепленные файлы
Прикрепленный файл  ruletka.pas ( 768 байт ) Кол-во скачиваний: 136
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 17.07.2018 16:49
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"