- Регистрация
- 8 Авг 2018
- Сообщения
- 380
- Лучшие ответы
- 0
- Репутация
- 74
Доброго всем дня! Хочу поделиться с Вами небольшой, но интересной игрой, написанной на Pascal.
Спасибо за прочтение статьи! Удачного времяпровождения
PHP:
program game2;
uses crt;
var a,b,c,y,x,d,h:longint;
begin
h:=445678;
d:=1000;
textbackground(2);
textcolor(7);
delay(1000);
gotoxy(1,1);
clrscr;
writeln('--------------------------------------------------------------------------------');
writeln('| "Лотерея" |');
writeln('| Новая игра(1) |');
writeln('| Закончить игру(2) |');
writeln('| | |');
writeln('| | |');
writeln('| | |');
writeln('| | |');
writeln('| | |');
writeln('| | |');
writeln('--------------------------------------------------------------------------------');
readln(a);
if (a=1) then clrscr;
if (a=2) then clrscr;
repeat
clrscr;
writeln('--------------------------------------------------------------------------------');
writeln('| "Лотерея" |');
writeln('| Цель игры: Ставки на число.Если вы выйрали ваш выигрыш удваиваится! |');
writeln('| Ваши деньги:', d); writeln('|');
writeln('| На какое число ставим? (0-10)? |');
writeln('| Сколько ставим? (0-1000000) |');
writeln('| | |');
writeln('| | |');
writeln('| | |');
writeln('| | |');
writeln('--------------------------------------------------------------------------------');
if (a=2) then clrscr;
randomize;
b:=random(10);
writeln('На что ставим (0-10!)');
readln(c);
writeln('Сколько ставим? (0-1000000)');
readln(x);
clrscr;
if (c=b) then writeln('Вы Выйграли! Ваши деньги: ', x*2+d) else writeln('Вы проиграли! Заданное число было: ',b); writeln( 'Ваши деньги: ', d-x); writeln('Сыграем ещё?(1 - ДА, 2 - НЕТ)');
if (c=b) then d:=x*2+d;
if (c<b) or (c>b) then d:=d-x;
readln(y);
if (y=h) then d:=d+100000;
if (y=2) then until (y=2);
end.
Последнее редактирование: