Алгоритмические языки и программирование. Аксенова Л.И - 36 стр.

Beg_Ukaz
              Ukaz                Ukaz              Ukaz             NIL

1. Beg_Ukaz := Ss; 2. St^.Ukaz := Ss^.Ukaz;

                                  Рис. 6



                             Обмен St и Ss в произвольном месте списка

      1. Sz := Sp^.Ukaz;                 4. Ss^.Ukaz := Sz;
                Sp           St              Ss

              Info         Info            Info       Info           Info
Beg_Ukaz
              Ukaz         Ukaz            Ukaz               Ukaz          NIL

  2. Sp^.Ukaz := St^.Ukaz;    3. St^.Ukaz := Ss^.Ukaz;

                          Рис. 7
        Процедура добавления элементов в линейный список

  Procedure ADD_ELEM_SPIS;
       Var
           Key_Insert : Boolean;           { Ключ - признак вставки}
           i, j, Kol_Insert_Zap : byte; { Число добавляемых записей}
           Ins_Zap : Type_Info; { Добавляемая запись }
     Begin
           Writeln( ‘ Введите число добавляемых записей‘ );
           Readln( Kol_Insert_Zap );
           For i := 1 to Kol_Insert_Zap do
           Begin         With Ins_Zap do
           begin
               Writeln( ‘ Введите N n/n, ФИО, 5 оценок и их сумму‘ );



                                           36