среда, 4 апреля 2012 г.

Pascal: Русская рулетка

Снова привет, мой дорогой читатель :3
Сегодня посмотрим на пример реализации игры "Русская рулетка"
На этот раз не буду уж совсем доскональна изучать код, ну думаю вы его поймете, Я вам комментарии оставлю.
program Rus_Ruletka; {Название программы}
  var x,y,z,j: integer{Задаем переменные}
  label l1; {Метки}
begin
    j:=0;
    l1:  j:=j+1;  {Счётчик}
    x:=random(6); {Задаем произвольное значение для x}
    y:=random(6); {Задаем произвольное значение для y}
    if x=y then writeln('Вы покойник!') else
        begin
          writeln('Вы живы! :3');
          write('Повторить? 1=да, 2=нет: ');
          read(z);
          if z=1 then goto l1;
        end;
{Цикл, проверяем x=y, и если они равны то вы покойник, если нет то пишем что вы живы, и спрашиваем о готовности к следующему раунду}
     writeln('Вы прожили ',j,' раундов');
end.
Вот одна из простых реализаций этой игры.