лабы 2 семестр / Лабораторная 9

Uses Crt;

Type

b = Record

Familia,Imia,Otchestvo: String;

Gruppa,data,zach: Byte;

rmatem,rfizik,summ: Real;

End;

Var i: Byte;

a:array[1..10] of b;

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 10 Do

With a[i] Do Begin

WriteLn(Familia,' ', Imia,' ', Otchestvo);

Write('Группа:', gruppa:2);

Write(' Дата рождения:', data:2);

Write('Зачетная книжка:', zach:3);

Write(' Рейтинг по математике:', rmatem:5:2);

Write(' Рейтинг по физике:', rfizik:7:2);

WriteLn(' Суммарный рейтинг:', summ:7:2);

End;

ReadKey;

End;

Procedure Editing;

Begin

Repeat

Header('Изменение');

Write('Введите номер карточки: ');

ReadLn(i);

With a[i] Do Begin

Write('Фамилия: '); ReadLn(Familia);

Write('Имя: '); ReadLn(Imia);

Write('Отчество: '); ReadLn(Otchestvo);

Write('Группа: '); ReadLn(gruppa);

Write('Дата рождения: '); ReadLn(Data);

Write('Зачетная книжка: '); ReadLn(zach);

Write('Рейтинг по математике: '); ReadLn(rmatem);

Write('Рейтинг по физике: '); ReadLn(rfizik);

Summ:= rmatem + rfizik;

End;

WriteLn;

WriteLn('Пробел - меню');

WriteLn('Любая другая - продолжить');

Until ReadKey=#32

End;

Procedure ClearArray;

Begin

For i:=1 to 10 Do

With a[i] Do Begin

Familia:='Фамилия';

Imia:='Имя';

Otchestvo:='Отчество';

gruppa:=0;

Data:=0;

Zach:=0;

rmatem:=0;

rfizik:=0;

Summ:=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

Familia:='Фамилия';

Imia:='Имя';

Otchestvo:='Отчество';

Gruppa:=0;

Data:=0;

Zach:=0;

rmatem:=0;

rfizik:=0;

Summ:=0;

End;

TextColor(15);

WriteLn('Данные удалены');

TextColor(10);

End;

'0': Begin

ClearArray;

TextColor(15);

WriteLn('Все данные удалены');

TextColor(10);

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.