Разработка базы данных, отражающей учет успеваемости студентов
Категория реферата: Рефераты по информатике, программированию
Теги реферата: bestreferat ru, роботы реферат
Добавил(а) на сайт: Жичкин.
Предыдущая страница реферата | 12 13 14 15 16 17 18 19 20 21 22 | Следующая страница реферата
tem1:=tt1;
writeln('Введите фамилию'); readln(str1);
writeln('Введите название предмета');readln(str2);
while tem1<>nil do begin
if tem1^.tabl.t2=str1 then begin str1:=tem1^.tabl.t1; break; end;
tem1:=tem1^.sled;
end;
tem1:=tt2;
while tem1<>nil do begin
if tem1^.tabl.t2=str2 then begin str2:=tem1^.tabl.t1; break; end;
tem1:=tem1^.sled;
end;
tem1:=tt4;
while tem1<>nil do begin
if ((tem1^.tabl.t5=str2) and (tem1^.tabl.t4=str1)) then begin
textcolor(red);
writeln('Оценка этого студента-',tem1^.tabl.t2);
nay:=true; break;
end;
tem1:=tem1^.sled;
end;
end;
3:begin {Преподаватель}
writeln('Выедите название предмета');
readln(str1);
Рекомендуем скачать другие рефераты по теме: сочинение изложение, курсовые работы бесплатно.
Предыдущая страница реферата | 12 13 14 15 16 17 18 19 20 21 22 | Следующая страница реферата