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