написанные программы / задание №4 — 4 / IPPODR

{ +++ Ќ®ў®бҐ«мбЄЁ© ‚. 119 Ја. +++ }
Program Ippodrom_Lab4;

Uses CRT;
Type
TCard = Set Of 1..6;
Const
SportMen = [1..36]; { "€¬Ґ­ " бЇ®авᬥ­®ў }
NMenInGroup = 6; { Є®«-ў® бЇ®авᬥ­®ў ў ЈагЇЇҐ }
NumCards = 100; { ®ЎйҐҐ Є®«-ў® Є ав®зҐЄ }
Var
FinGroup: TCard;
Cards: Array[1..NumCards] Of TCard;
i, Name, NCard, CardWinner: Integer;
Ch: Char;
{ ------------------------- ўў®¤ ®¤­®© Є ав®зЄЁ ------------------------- }
Procedure EnterCard(Var Card: TCard);
Var
N: 1..36; { "€¬Ґ­ " бЇ®авᬥ­®ў }
i: 0..NMenInGroup; { Љ®«-ў® бЇ®авᬥ­®ў ў Є ав®зЄҐ }
Begin
i:=0;
Repeat
i:=i+1;
Write(' ‚ўҐ¤ЁвҐ Ё¬п бЇ®авᬥ­  ь',i,': ');
ReadLn(N);
If Not(N In Card) Then
Begin
If (N In SportMen) Then
Card:=Card + [N]
Else
Begin
WriteLn('ЂиЁЇЄ : ЌҐв в Є®Ј® бЇ®авᬥ­ ');
i:=i-1;
End;
End
Else
Begin
WriteLn('ЂиЁЇЄ : ќв®в бЇ®авᬥ­ 㦥 ўўҐ¤Ґ­');
i:=i-1;
End;
Until i=NMenInGroup;
End;

Begin
ClrScr;
{ ----------------------------- ўў®¤ Є ав®зҐЄ ---------------------------- }
While Ch<>'N' Do
Begin
Window(3,2,40,20);
TextBackGround(Blue);
ClrScr;
Write('‚ўҐ¤ЁвҐ ­®¬Ґа Є ав®зЄЁ: ');
ReadLn(NCard);
If NCard > 100 Then WriteLn('ЂиЁЇЄ : в Є®© Є ав®зЄЁ ­Ґв');
WriteLn('‚ў®¤ Є ав®зЄЁ ь',NCard,' :');
EnterCard(Cards[NCard]);
Write('Ѓг¬ ўў®¤Ёвм ¤ «миҐ? (Y/N)');
Ch:=UpCase(ReadKey);
End;
Window(1,1,80,25);
TextBackGround(Black);
ClrScr;
{ ----------------------- ‚ў®¤ дЁ­ «м­®© ЈагЇЇл -------------------------- }
TextColor(LightRed);
WriteLn;
WriteLn(' ЙНННННННННННННННННННННННННННННННННННННННННННН» ');
WriteLn(' є ‚ў®¤ дЁ­ «м­®© ЈагЇЇл є ');
WriteLn(' ИННННННННННННННННННННННННННННННННННННННННННННј ');
WriteLn;
Window(20,7,80,25);
EnterCard(FinGroup);
{ ---------------------- Їа®ўҐаЄ  ўлЁЈа ўиЁе ЎЁ«Ґв®ў ---------------------- }
Window(20,20,80,25);
TextColor(LightGreen+Blink);
CardWinner:=0;
For i:=1 To NumCards Do
If Cards[i] = FinGroup Then
Begin
WriteLn('‚ Є ав®зЄҐ ь',i,' ЈагЇЇ  гЈ ¤ ­  Ї®«­®бвмо! ');
CardWinner:=CardWinner+1;
End;
{ -------------------------------- €в®ЈЁ ---------------------------------- }
If CardWinner = 0 Then
WriteLn('”Ё­ «м­го ЈагЇЇг ­Ґ гЈ ¤ « ­ЁЄв®.')
Else
WriteLn('‚ᥣ® бз бв«Ёўле ЎЁ«Ґв®ў: ', CardWinner);
ReadLn;
End.