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

Uses Crt;

Const
MaxIndex = 10;
LenghtFIO = 30;

Type
Worker = Record
  FIO: String[LenghtFIO];
  Kafedra,Dolgnost,Razrad: Byte;
  Stavka,Oklad,Zarplata: Real;
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;
Var i: Byte;
Begin
Header('Џа®б¬®ва');
TextColor(Brown);
WriteLn('” ¬Ё«Ёп €¬п ЋвзҐбвў®     ':LenghtFIO,
' Љ дҐ¤а  „®«¦­®бвм ђ §ап¤ ‘в ўЄ  ЋЄ« ¤   ‡ аЇ« в ');
TextColor(LightGray);
For i:=1 to MaxIndex Do
  With a[i] Do
  WriteLn(FIO:LenghtFIO,Kafedra:8,Dolgnost:10,
  Razrad:7,Stavka:7:1,Oklad:8:2,Zarplata:8:2);
ReadKey;
End;

Procedure Editing;
Begin
Repeat
Header('€§¬Ґ­Ґ­ЁҐ');
Write('‚ўҐ¤ЁвҐ ­®¬Ґа Є ав®зЄЁ: ');
ReadLn(i);
if not (i in [1..MaxIndex]) then Begin
  TextColor(Brown);
  WriteLn('ЌҐЇа ўЁ«м­® ўўҐ¤Ґ­ ­®¬Ґа Є ав®зЄЁ!');
  WriteLn('Ћ­ ¤®«¦Ґ­ Ўлвм: 1..',MaxIndex);
  TextColor(LightGray);
  ReadKey;
  Break;
  End
Else With a[i] Do Begin
  Write('”€Ћ: '); ReadLn(FIO);
  Write('Љ дҐ¤а : '); ReadLn(Kafedra);
  Write('„®«¦­®бвм: '); ReadLn(Dolgnost);
  Write('ђ §ап¤: '); ReadLn(Razrad);
  Write('‘в ўЄ : '); ReadLn(Stavka);
  Write('ЋЄ« ¤: '); ReadLn(Oklad);
  Zarplata:= Stavka * Oklad;
  End;
WriteLn;
WriteLn('Enter - ¬Ґ­о');
WriteLn('‹оЎ п ¤агЈ п - Їа®¤®«¦Ёвм');
Until ReadKey=#13
End;

Procedure ClearArray;
Begin
For i:=1 to MaxIndex Do
  With a[i] Do Begin
  FIO:='” ¬Ё«Ёп €¬п ЋвзҐбвў®';
  Kafedra:=0;
  Dolgnost:=0;
  Razrad:=0;
  Stavka:=0;
  Oklad:=0;
  Zarplata:=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
       FIO:='” ¬Ё«Ёп €¬п ЋвзҐбвў®';
       Kafedra:=0;
       Dolgnost:=0;
       Razrad:=0;
       Stavka:=0;
       Oklad:=0;
       Zarplata:=0;
       End;
     TextColor(Brown);
     WriteLn('„ ­­лҐ г¤ «Ґ­л');
     TextColor(LightGray);
     End;
'0': Begin
     ClearArray;
     TextColor(Brown);
     WriteLn('‚ᥠ¤ ­­лҐ г¤ «Ґ­л');
     TextColor(LightGray);
     End;
End;
Writeln;
WriteLn('Enter - ¬Ґ­о');
WriteLn('‹оЎ п ¤агЈ п - Їа®¤®«¦Ёвм');
Until ReadKey=#13
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.