align="justify">. Програма виводить номер кварталу. p align="justify">. Вказівником присвоюється вершина стека (тобто стек розглядається з його вершини). p align="justify">. Обнуляється лічильник номерів елементів (k). p align="justify">. Поки в стеці є елементи, працює цикл:
. Лічильник номерів елементів (k) збільшується на 1. p align="justify">. Перевіряється, чи входить дата покупки в даній запису в зазначений період (дата заданого кварталу). p align="justify">. Якщо дата не входить у вказаний період, то програма продовжує свою роботу. p align="justify"> Якщо дата входить у вказаний період, то запис виводиться на екран за допомогою допоміжної процедури Pomog (Посилання на програмний код даної процедури знаходиться в Додатку 1 Лістинг 7). Програма продовжує свою роботу. p align="justify">. Вказівником стека присвоюється попередня запис (тобто вершиною стека стає попередня запис). p align="justify"> Цикл закінчує свою роботу, коли в стеку більше немає елементів (покажчик дорівнює nil).
. Пункти з 9 по 12 повторюються для кожного з кварталів минулого року.
В В
Рис.9. Список товарів максимальної вартості, зроблених по кожному з місць покупки. br/>
Код програми представлений у Додатку 1 Лістинг 10. p align="justify">. Визначити загальну вартість покупок, зроблених за вказаний період у вказаному місці. p align="justify"> У функції Four реалізований алгоритм знаходження загальної вартості покупок, зроблених за вказаний період в зазначеному місці, згідно блок-схемі на малюнку 10. У цій процедурі виконуються наступні дії:
. Обнуляється мінлива загальної вартості покупок. p align="justify">. Користувач вказує початок і кінець періоду (D1 і D2). p align="justify">. Користувач вказує місце покупки (Mesto1). p align="justify">. Вказівником присвоюється вершина стека (тобто стек розглядається з його вершини). p align="justify">. Перевірка на наявність елементів в стеку. p align="justify">. Якщо в стеці немає елементів, програма виводить повідомлення про те, що стек порожній. p align="justify"> Якщо в стеці є елементи, програма продовжує свою роботу.
. Поки в стеці є елементи, працює цикл:
. Програма перевіряє, чи входить дата покупки в зазначений період і чи збігається місце покупки з вказаним. p align="justify">. Якщо дата або місцево не збігаються, то програма продовжує свою роботу. p align="justify"> Якщо дата і місце збіглися з вказаними, то в змінну загальної вартості записується ціна з цієї запису.
. Вказівником стека присвоюється попередня запис (тобто вершиною стека стає попередня запис). p align="justify"> Цикл закінчує свою роботу, коли в стеку більше немає елементів (покажчик дорівнює nil).
. Програма привласнює функції значення змінної суми. br/>В
Рис.10. Знаходження загальної вартост...
