Объектно-ориентированное программирование. Разработка программы, имеющей графическую заставку, работу с массивом, матрицей и со связным списком, страница 7

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.

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

·  Меню:

Для работы выберите нужный пункт меню!

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

║   Массив            ║

║    Матрица           ║

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

║    Заставка          ║

║    Выход             ║

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

·  Массив:

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

45     -3     34     654    -1

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

-3     -1

·  Матрица:

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

565     2       88      777     234

11      1       12      342     34

19      9       345     54     77

7       -1       90      898     345

234     11      14      989       5

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

565     2       88      777     234

11      0       12      342     34

19      9       345     54     77

7      0       90      898     345

234     11      14      989       5

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

Вывод связанного списка:

Запись 1:

Номенклатурный номер:         1

Номер накладной:         1

Дата из накладной: 1.03.05

Приход:                  1

Расход:                  1

Наименование товара:  Utug

Запись 2:

Номенклатурный номер:         2

Номер накладной:         2

Дата из накладной: 2.04.07

Приход:                  3

Расход:                  1

Наименование товара:   fen

Запись 3:

Номенклатурный номер:         4

Номер накладной:         4

Дата из накладной: 5.02.07

Приход:                  3

Расход:                  1

Наименование товара: lampa

Запись 4:

Номенклатурный номер:         5

Номер накладной:         2

Дата из накладной: 5.03.07

Приход:                  3

Расход:                  1

Наименование товара: lampa

Запись 5:

Номенклатурный номер:         4

Номер накладной:         3

Дата из накладной: 4.03.07

Приход:                  3

Расход:                  1

Наименование товара: lampa

поиск элементов

Введите наименование для поика элементов:

Lampa

Запись 3:

Номенклатурный номер:         4

Номер накладной:         4

Дата из накладной: 5.02.07

Приход:                  3

Расход:                  1

Наименование товара: lampa

Запись 4:

Номенклатурный номер:         5

Номер накладной:         2

Дата из накладной: 5.03.07

Приход:                  3

Расход:                  1

Наименование товара: lampa

Запись 5:

Номенклатурный номер:         4

Номер накладной:         3

Дата из накладной: 4.03.07

Приход:                  3

Расход:                  1

Наименование товара: lampa

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

Список использованной литературы:

1.  Фаронов В. В., Турбо Паскаль 7.0. Начальный курс: учебное пособие. – М.: КНОРУС, 2006. – 576 с.

2.  Рапаков Г. Г., Ржеуцкая С. Ю., Turbo Pascal для студентов и школьников. – Спб.: БХВ-Петербург, 2005. – 352 с.

3.  Турбо Паскаль 7.0. Самоучитель. – Спб.: Питер; К.: Издательская группа BHV, 2002. – 416 c.:  ил.

4.  Климова Л.М., Pascal 7.0. Практическое программирование. Решение типовых задач. – М.: КУДИЦ-ОБРАЗ, 2000. – 528 с.

Оглавление:

1.Задание………………………………………………………………………….2

2.Модуль DOS. Представление файла в DOS…………………………………..3

3.Блок-схемы……………………………………………………………………...8

4.Текст программы………………………………………………………………11

5.Полученные результаты……………………………………………………….21

6.Список использованной литературы…………………………………………25