Информатика / 7-7

{***************************************************
‡ ¤ ­ЁҐ:
1. ‚ б«®ўҐ - ­Ґ ¬Ґ­ҐҐ 2 §ў®­ЄЁе б®Ј« б­ле;
2. ‚ бва®ЄҐ - ­ҐзҐв­®Ґ зЁб«® Ј« б­ле ЎгЄў.
 ***************************************************}

Uses Crt;

Const K=2; L=7; M=20; N=10;
      {–ўҐв д®­  Ё бЁ¬ў®«®ў}
      TBG=0; TC=7;
      TCCondition=14;
      TBGline=1; TCline=15;
      {‡ў®­ЄЁҐ б®Ј« б­лҐ}
      Z: Set of Char = ['ѓ','„','†','‡','‹','Њ','Ќ','ђ'];
      {ѓ« б­лҐ}
      G: Set of Char = ['Ђ','…','€','Ћ','“','›','ќ','ћ','џ'];

Var One,Two:Boolean; {‚лЇ®«­Ґ­­®бвм 1 Ё 2 гб«®ўЁ©}
    i,j,h,LW,s,t:Byte;
    a:array[1..M,1..N,1..L] of Char;

Procedure PrintBegin;
Begin
TextBackground(TBG);
TextColor(TC);
ClrScr;
GotoXY(30,1); WriteLn('‹ Ў®а в®а­ п 7');
WriteLn;
End;

Procedure PrintEnd(s:string; t:Byte);
Begin
GotoXY(1,25);
TextBackground(TBGline);
TextColor(TCline);
ClrEol;
Write(s,' гб«®ўЁо 㤮ў«Ґвў®апҐв: ',t,' б«®ў');
End;

Procedure ArrayBegin;
Begin
{ЋзЁбвЄ  ¬ ббЁў }
For i:=1 to M Do
  For j:=1 to N Do
    For h:=1 to L Do
      a[i,j,h]:=' ';
{‡ Ї®«­Ґ­ЁҐ ¬ ббЁў }
For i:=1 to M Do
  For j:=1 to N Do
    Begin
    LW:= Random(L-K+1)+K;
    For h:=1 to LW Do
      a[i,j,h]:= Chr(Random(32)+128);
    End;
End;

Procedure PrintWord(Cond:Boolean);
Begin
If Cond then
        Begin
        t:= t+1;
        TextColor(TCCondition);
        Write(a[i,j]:8);
        TextColor(TC);
        End Else Write(a[i,j]:8);
End;

Procedure OneCondition;
Begin
ArrayBegin;
PrintBegin;
t:=0;
For i:=1 to M Do
  For j:=1 to N Do
    Begin
    s:=0;
    For h:=1 to L Do
      If a[i,j,h] in Z then s:=s+1;
    One:= s>=2;
    {‚лў®¤ ­  нЄа ­}
    PrintWord(One);
    End;
PrintEnd('ЏҐаў®¬г',t);
if ReadKey<>#13 then Halt;
End;

Procedure TwoCondition;
Begin
ArrayBegin;
PrintBegin;
t:=0;
For i:=1 to M Do
  Begin
  s:=0;
  For j:=1 to N Do
    For h:=1 to L Do
      If a[i,j,h] in G then s:=s+1;
  If (s mod 2 = 1) then Two:= True
    Else Two:= False;
  {‚лў®¤ ­  нЄа ­}
  For j:=1 to N Do
    PrintWord(Two);
  End;
PrintEnd('‚в®а¬г',t);
End;

Begin
Randomize;
Repeat
  OneCondition;
  TwoCondition;
Until ReadKey<>#13;
End.