Недавно начавши изучать паскаль, мне захотелось создать свою игру. Долго думав, что вообще я смогу составить я пришел к выводу, что надо делать лотерею. Суть лотереи очень проста, у каждого игрока есть начальный банк и он равен 100. Игроки должны делать ставки(мин. 10) и после генерируется рандомное число. Тот, у кого число будет больше, тот победил и забирает свою ставку и ставку второго игрока. Это будет происходить до тех пор, пока кто либо из игроков не разорится. Вот сама программа:
program kazino;
var y,n,k1,k2,s1,s2:integer;
n1:string;
n2:string;
uses crt;
begin
k1:=100;
k2:=100;
writeln('Добро пожаловать в казино');
writeln('Введите ваше имя');
readln(n1);
readln(n2);
delay(2000);
writeln('Ваш начальный банк равен 100');
delay(2000);
writeln('Минимальная ставка всегда равна 10');
delay(2000);
repeat
writeln(n1,' сделайте вашу ставку');
readln(s1);
if s1>k1
then
begin
writeln('Нет денег, иди работай. Игра окончена');
break;
end
else
if s1<10
then
begin
writeln('От этой суммы все рассмеялись, вы позорно ушли ни с чем. Игра окончена.');
break;
end
else
writeln(n2,' сделайте вашу ставку');
readln(s2);
if s2>k2
then
begin
writeln('Нет денег, иди работай. Игра окончена');
break;
end
else
if s2<10
then
begin
writeln('От этой суммы все рассмеялись, вы позорно ушли ни с чем. Игра окончена.');
break;
end
else
delay(2000);
writeln('Итак, скоро мы узнаем кто победил');
randomize;
y:=random(1000);
n:=random(1000);
writeln('Вот число ',n1,' ',y,' Вот число ',n2,' ',n);
if y>n
then
writeln('Число ',y,' больше числа ',n)
else
writeln('Число ',n,' больше числа ',y);
if y>n
then
begin
writeln(n1,' победил и он забирает весь куш');
k1:=k1+s2;
k2:=k2-s2; end
else
begin
writeln(n2,' победил и он забирает весь куш');
k2:=k2+s1;
k1:=k1-s1; end;
writeln('Вот на данный момент куш ',n1,' ',k1);
writeln('Вот на данный момент куш ',n2,' ',k2);
if k1=200
then
writeln(n1,' победил');
if k2=200
then
writeln(n2,' победил');
if k1=0
then
break;
if k2=0
then
break;
until(k1=200);
end.