Предыдущая страница реферата | 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 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки