Developing.ru

Код: Выделить всё

program doors;
uses crt;
const count=4;
type num=1..count;
var locks:array[num,num] of 0..1; {dver,kluch}
    OpenDoors:array[num] of boolean;
    door,key:char;
    IDoor,IKey:num;
    t,done:0..10;

procedure CreateLocks;
var i,j:num;
    k:0..count;
    flag:boolean;
begin
  randomize;
  flag:=false;
  for i:=1 to count do
    begin
      k:=0;
      for j:=1 to count do
        begin
          locks[i,j]:=random(2);
          if locks[i,j]=0 then inc(k);
        end;
      if k=4 then flag:=true;
    end;
  if flag=true then CreateLocks;
end;

function KeyToInt(k:char):num;
begin
  case k of
   'a':KeyToInt:=1;
   'b':KeyToInt:=2;
   'c':KeyToInt:=3;
   'd':KeyToInt:=4;
  else
    begin
    end;
  end;
end;

function DoorToInt(k:char):num;
begin
  case k of
   '1' :D oorToInt:=1;
   '2' :D oorToInt:=2;
   '3' :D oorToInt:=3;
   '4' :D oorToInt:=4;
  else
    begin
    end;
  end;
end;

function DoorOpen(d,k:num):boolean;
begin
  if locks[d,k]=1 then DoorOpen:=true
  else DoorOpen:=false;
end;

procedure DInit;
var i:num;
begin
  t:=0;
  done:=0;
  for i:=1 to count do OpenDoors[i]:=false;
end;

begin
  clrscr;
  DInit;
  CreateLocks;
  writeln('Pered vami 4 dvery, u vas 4 klucha, i 10 popitok...');
  repeat
    writeln;
    writeln('Viberete cluch (nazhmite a, b, c ili d) ');
    key:=readkey;
    writeln('Podoydite k dveri (nazhmite 1, 2, 3 ili 4) ');
    door:=readkey;
    writeln('Vi hotite popytatsy otkrit dver? (y/n)');
    if readkey='y' then
      begin
        inc(t);
        IKey:=KeyToInt(key);
        IDoor:=DoorToInt(door);
        if OpenDoors[IDoor]=false then
          if DoorOpen(IDoor,IKey) then
            begin
              writeln('Vam udalos otkrit dver!');
              OpenDoors[IDoor]:=true;
              inc(done);
            end
          else writeln('Vam ne udalos otkrit dver...')
        else
          begin
            writeln('Vi uzhe pitalis otkrit etu dver');
            dec(t);
          end;
      end;
    if done=4 then break;
    writeln;
    writeln('U vas esche ',10-t,' popitok');
  until t=10;
  if done=4 then writeln('Pozdravlaem vas s pobedoy!')
  else writeln('Vi proigrali');
  readln;
end.