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

Uses Crt;

Const
MaxIndex = 10;

Type
Worker = Record
  Familia,Imia,Otchestvo,Mesto,Language: String;
  Year, Reiting: Integer;
  Iazik,Matematica,Informatica,Month,Day,Gruppa: Byte;
End;

Var i: Byte;
    a:array[1..MaxIndex] of Worker;

Procedure Header(s:String);
Begin
ClrScr;
TextColor(Yellow);
GotoXY(30,1); Write(s);
GotoXY(1,3);
TextColor(LightGray);
End;

Procedure Viewing;
Begin
Header('Џа®б¬®ва');
For i:=1 to MaxIndex Do
  With a[i] Do Begin
  Write(a[i].Familia,' ',a[i].Imia,' ',a[i].Otchestvo);
  Write(' “祡­ п ЈагЇЇ : ',a[i].Gruppa);
  WriteLn(' ЊҐбв® Їа®¦Ёў ­Ёп: ',a[i].Mesto:10);
  Write('„ в  ஦¤Ґ­Ёп: ',a[i].Day,'.',a[i].Month,'.',a[i].Year);
  Write(' џ§лЄ: ',a[i].Language,': ',a[i].Iazik);
  Write(' Њ вҐ¬ вЁЄ : ',a[i].Matematica);
  Write(' €д­®а¬ вЁЄ : ',a[i].Informatica);
  WriteLn(' ђҐ©вЁ­Ј: ',a[i].Reiting);
  End;
ReadKey;
End;

Procedure Editing;
Begin
Repeat
Header('€§¬Ґ­Ґ­ЁҐ');
Write('‚ўҐ¤ЁвҐ ­®¬Ґа Є ав®зЄЁ: ');
ReadLn(i);
With a[i] Do Begin
  Write('” ¬Ё«Ёп: '); ReadLn(a[i].Familia);
  Write('€¬п: '); ReadLn(a[i].Imia);
  Write('ЋвзҐбвў®: '); ReadLn(a[i].Otchestvo);
  Write('“祡­ п ЈагЇЇ : '); ReadLn(a[i].Gruppa);
  Write('ЊҐбв® Їа®¦Ёў ­Ёп: '); ReadLn(a[i].Mesto);
  Write('„ в  ஦¤Ґ­Ёп: '); ReadLn(a[i].Day,a[i].Month,a[i].Year);
  Write('џ§лЄ: '); ReadLn(a[i].Language,a[i].Iazik);
  Write('Њ вҐ¬ вЁЄ : '); ReadLn(a[i].Matematica);
  Write('€­д®а¬ вЁЄ : '); ReadLn(a[i].Informatica);
  a[i].Reiting:= a[i].Iazik + a[i].Matematica + a[i].Informatica;
  End;
WriteLn;
WriteLn('Џа®ЎҐ« - ¬Ґ­о');
WriteLn('‹оЎ п ¤агЈ п - Їа®¤®«¦Ёвм');
Until ReadKey=#32
End;

Procedure ClearArray;
Begin
For i:=1 to MaxIndex Do
  With a[i] Do Begin
  a[i].Familia:='” ¬Ё«Ёп';
  a[i].Imia:='€¬п';
  a[i].Otchestvo:='ЋвзҐбвў®';
  a[i].Gruppa:=0;
  a[i].Mesto:='';
  a[i].Day:=0;
  a[i].Month:=0;
  a[i].Year:=0;
  a[i].Informatica:=0;
  a[i].Language:='';
  a[i].Iazik:=0;
  a[i].Matematica:=0;
  a[i].Reiting:=0;
  End;
End;

Procedure Deleting;
Begin
Repeat
Header('“¤ «Ґ­ЁҐ');
Writeln('‚ўҐ¤ЁвҐ:');
Writeln('1 - зв®Ўл г¤ «Ё«Ёвм ®¤­г § ЇЁбм');
Writeln('0 - зв®Ўл г¤ «Ё«Ёвм ўбҐ § ЇЁбЁ');
Case ReadKey of
'1': Begin
     Write('‚ўҐ¤ЁвҐ ­®¬Ґа Є ав®зЄЁ: ');
     ReadLn(i);
     With a[i] Do Begin
       a[i].Familia:='” ¬Ё«Ёп';
       a[i].Imia:='€¬п';
       a[i].Otchestvo:='ЋвзҐбвў®';
       a[i].Gruppa:=0;
       a[i].Mesto:='';
       a[i].Day:=0;
       a[i].Month:=0;
       a[i].Year:=0;
       a[i].Informatica:=0;
       a[i].Language:='';
       a[i].Iazik:=0;
       a[i].Matematica:=0;
       a[i].Reiting:=0;
       End;
     TextColor(Red);
     WriteLn('„ ­­лҐ г¤ «Ґ­л');
     TextColor(LightGray);
     End;
'0': Begin
     ClearArray;
     TextColor(Red);
     WriteLn('‚ᥠ¤ ­­лҐ г¤ «Ґ­л');
     TextColor(LightGray);
     End;
End;
Writeln;
WriteLn('Џа®ЎҐ« - ¬Ґ­о');
WriteLn('‹оЎ п ¤агЈ п - Їа®¤®«¦Ёвм');
Until ReadKey=#32
End;

Begin
ClearArray;
Repeat
  Header('‹ Ў®а в®а­ п 9');
  WriteLn('1 - Џа®б¬®ва');
  WriteLn('2 - €§¬Ґ­Ёвм');
  WriteLn('3 - “¤ «Ёвм');
  WriteLn('Esc - ‚л室');
  Case ReadKey of
    '1': Viewing;
    '2': Editing;
    '3': Deleting;
    #27: Exit;
  End;
Until 1<>1
End.