Указатели, динамически формируемые массивы и строки, страница 4

   Close (DataBase);

   Repeat

      Changes:=0;

      For a:=1 To Number-1 Do

         If Students^[a].FullName>Students^[a+1].FullName Then

            Begin

            CurrentStudent:=Students^[a];

            Students^[a]:=Students^[a+1];

            Students^[a+1]:=CurrentStudent;

            Changes:=Changes+1;

            End;

   Until Changes=0;

   For a:=1 To Number Do

      Begin

         Write (Students^[a].FullName:20);

         Write (Students^[a].Gender:8);

         Write (Students^[a].TelephoneNumber:10);

         Write (Students^[a].BirthDate.Day:4,'.',Students^[a].BirthDate.Month:2,'.',Students^[a].BirthDate.Year);

         Write (Students^[a].Mark:3);

         WriteLn;

      End;

End.

Вывод:

   Alexandrova Maria  Female  47-54-20   8. 4.1988  4

         Ivanov Ivan    Male  36-17-87   6. 7.1987  4

       Klimenko Igor    Male  41-27-69   4. 9.1988  4

    Mel'nichuk Elena  Female  55-41-80  14. 1.1987  3

       Morozov Pavel    Male  23-17-10  30. 6.1988  4

         Pavlov Petr    Male  23-34-15   3.11.1986  3

      Potapov Andrej    Male  21-97-26  10. 4.1987  5

 Radionova Ekaterina  Female  47-12-93  23.10.1988  3

     Stepanov Viktor    Male  41-38-64   7.12.1988  5

   Tkachenko Natalia  Female  36-56-12   7. 5.1987  3

Задание 3

Дан двумерный массив, содержащий 3 строки и 2 столбца. Элементами массива являются целые числа. Упорядочить массив по невозрастанию элементов третьей строки.

Блок-схема:

Программа

Program Lab03_03;

   Type tArrayColumn=Array[1..100] of Integer;

        ptrColumn=^tArrayColumn;

        tMatrix=Array[1..100] of ptrColumn;

        ptrMatrix=^tMatrix;

   Var Width,Height:Integer;

       Matrix:ptrMatrix;

       tmpColumn:ptrColumn;

       Changes,a,b:Integer;

Begin

   Write ('Enter the Size of the Array (Width x Height): ');