Объектно-ориентированное программирование. Модуль CRT. Вывод на экран. Системные переменные модуля CRT, страница 8

write('Полученный массив:');

p^.OutData;                      {Вывод полученного массива}

writeln;

dispose(p,Done)                  {Очистка памяти}

end;

2: begin

p:=new(ptrobjmatr,Init(m,n));     {Ввод матрицы}

clrscr;

write('Исходная матрица: ');

p^.OutData;                       {Вывод исходной матрицы}

p^.Job;                           {Обработка матрицы}

writeln;

write('Полученная матрица: ');

p^.OutData;                       {Вывод полученной матрицы}

writeln;

dispose(p,Done)                   {Очистка памяти}

end;

3: begin

p:=new(ptrobjspis,Init(m));         {Ввод связанного списка}

clrscr;

writeln('Введите Связанный Список.');

p^.OutData;                         {Вывод связанного списка}

p^.Job;                             {Поиск записей

связанного списка}

dispose(p,Done)                     {Очистка памяти}

end;

4: zastavka;                             {Графическая заставка}

5: halt(1)                               {ВЫХОД}

end

end

end

end;

{***********************Головной модуль************************}

begin

kurs:=1;

while(key<>#27) do

begin

menu(kurs);

kursor;

end;

end.

Полученные результаты:

·  Меню:

Выберите нужный пункт меню:

╔════════════════════════╗

║ецццнРабота с массивомекнцц║

║             Работа с матрицей          ║

║             Работа со списком          ║

║          Графическая заставка       ║

║                         Выход                     ║

╚════════════════════════╝

·  Массив:

Исходный массив:

56.00     24.00      1.00     9.00    14.00

Полученный массив:

56.00     1.00     14.00

·  Матрица:

Исходная матрица:

-34.00      0.00      41.00    -45.00     3.00

78.00      1.00       5.00      -6.00      6.00

6.00      56.00     27.00      0.00     87.00

41.00     98.00     78.00     34.00    65.00

8.00      11.00     79.00     71.00    23.00

Полученная матрица:

  3.00      0.00      41.00    -45.00     -34.00

78.00     -6.00       5.00       1.00      6.00

6.00      56.00     27.00      0.00     87.00

41.00     34.00     78.00     98.00    65.00

23.00      11.00     79.00     71.00    8.00

·  Связанный список:

Пациент № 1

Фамилия Имя Отчество:                              Иванов Пётр Сергеевич

Год рождения:                                                                                1956

Адрес:                                                            СПб Литейный пр 67-89

Телефон:                                                                                               5728800

Номер участка:                                                                                  13

Номер отделения:                                                                                5

Пациент № 2

Фамилия Имя Отчество:                      Ковалёв Сергей Дмитриевич

Год рождения:                                                                                1918

Адрес:                                                         СПб бул Новаторов 5-109

Телефон:                                                                                               6666662

Номер участка:                                                                                  23

Номер отделения:                                                                              15

Пациент № 3

Фамилия Имя Отчество:                              Иванов Пётр Сергеевич

Год рождения:                                                                                1987

Адрес:                                                          СПб Московский пр 89-9

Телефон:                                                                                               9786234

Номер участка:                                                                                    7

Номер отделения:                                                                               10

Пациент № 4