Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
{***************************************************
‡ ¤ ЁҐ:
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.
‡ ¤ ЁҐ:
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.