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

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

34
Info Info Info Info
Beg_Ukaz
Ukaz Ukaz Ukaz NIL
Beg_Ukaz := St^.Ukaz
Рис. 4
Sp St
Info Info Info Info Info
Beg_Ukaz
Ukaz Ukaz Ukaz Ukaz NIL
Sp^.Ukaz := St^.Ukaz;
Рис. 5
Процедура сортировки элементов линейного списка
Procedure SORT_ELEM_SPIS;
Var
Ss, Sz : Type_ukaz; { Ss - указатель на следующий элемент списка,
Sz- переменная для хранения ссылки при перестановке}
Key : Boolean; { Признак перестановки}
Begin
Repeat
Key := False; { Перестановок пока не было}
St := Beg_Spis; Ss := St^.Ukaz; { Установка первого и второго
элементов линейного списка}
While Ss <> Nil do 
            Info            Info              Info         Info
Beg_Ukaz
           Ukaz               Ukaz             Ukaz            NIL

     Beg_Ukaz := St^.Ukaz

                              Рис. 4



             Sp         St

            Info       Info            Info      Info          Info
Beg_Ukaz
           Ukaz        Ukaz            Ukaz             Ukaz          NIL

             Sp^.Ukaz := St^.Ukaz;

                              Рис. 5



               Процедура сортировки элементов линейного списка

    Procedure SORT_ELEM_SPIS;
      Var
       Ss, Sz : Type_ukaz; { Ss - указатель на следующий элемент списка,
                 Sz- переменная для хранения ссылки при перестановке}
       Key : Boolean; { Признак перестановки}
     Begin
           Repeat
                 Key := False; { Перестановок пока не было}
           St := Beg_Spis; Ss := St^.Ukaz; { Установка первого и второго
   элементов линейного списка}
           While Ss <> Nil do



                                       34

Страницы