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