program p11;
uses crt;
const n=30;
type tablica=record
fio: string[50];
pridmet: string[15];
i_teacher: string[50];
data_ekz: string[15];
ocenka: 1..5 ;
end;
var student: array[1..n] of tablica;
i,kz:integer;
begin
textbackground(4);
textcolor(11);
clrscr;
writeln('Реализация таблицы');
writeln('__________________________________________________________');
writeln('| ФИО | Предмет | Преподаватель | Дата экзамена | Оценка |');
writeln('__________________________________________________________');
while true do begin
write('Введите кол-во записей:');
readln(kz);
if((kz>0)and(kz<=n))then break;
writeln('Ошибка:Вне диапазона!Повторите ввод!')
end;
for i:=1 to kz do begin
writeln('введите данные',i,'-его студента');
writeln('введите фио');
readln(student[i].fio);
writeln('введите наименование дисциплины');
readln(student[i].pridmet);
writeln('введите фамилию учителя');
readln(student[i].i_teacher);
writeln('введите дату экзамена');
readln(student[i].data_ekz);
writeln('введите оценку');
readln(student[i].ocenka);
end;
begin
writeln('__________________________________________________________');
writeln('| ФИО | Предмет | Преподаватель | Дата экзамена | Оценка |');
writeln('__________________________________________________________');
for i:=1 to kz do
with student[i] do begin
writeln('| ',fio,' | ',pridmet,' | ',i_teacher,' | ',data_ekz,' | ',ocenka,'|');
writeln('__________________________________________________________');
end;
end;
end.