i) збільшується на 1. p align="justify"> Як тільки знайдений елемент з потрібним номером, то цикл припиняється.
. Виводиться номер зазначеного елемента (j). p align="justify">. Виводиться сам запис. br/>В
Рис. 4 Висновок елемента стека. br/>
Код програми представлений у Додатку 1 Лістинг 4. p align="justify"> 5. Видалення стека. p align="justify"> У процедурі Del1 реалізований алгоритм видалення стека згідно блок-схемі на рисунку 5. У цій процедурі виконуються наступні дії:
. Вказівником присвоюється вершина стека (тобто стек розглядається з його вершини). p align="justify">. Перевірка на наявність елементів в стеку. p align="justify">. Якщо в стеці немає елементів, то програма виведе повідомлення, що стек порожній. p align="justify"> Якщо в стеці є елементи, то починається цикл, поки вказівник не буде вказувати на nil, виконуються дії:
. Виконується процедура Del (описана вище). p align="justify"> Цикл закінчує свою роботу, коли в стеку більше немає елементів (покажчик дорівнює nil).
. Програма виводить повідомлення про те, що стек порожній. br/>В
Рис. 5. Видалення стека
Код програми представлений у Додатку 1 Лістинг 5. p align="justify">. Редагування елемента стека. p align="justify"> У процедурі Edit реалізований алгоритм редагування елементу стека згідно блок-схемі на малюнку 6. У цій процедурі виконуються наступні дії:
. Програма запитує у користувача номер запису, яку потрібно змінити. p align="justify">. Користувач вводить номер запису (j). p align="justify">. Вказівником присвоюється вершина стека (тобто стек розглядається з його вершини). p align="justify">. Перевіряється, чи є в стеку запис з даним номером (чи не є j негативним числом, чи не перевищує j загальна кількість елементів, що не порожній чи стек). p align="justify">. Якщо номер запису виходить за межі існуючих записів або в стеку немає елементів, то програма виведе, що такого елемента не існує. p align="justify">. Якщо ж номер запису вказаний коректно, запис існує і стік не порожній, то програма продовжує свою роботу. p align="justify">. Програма виводить вихідну запис за допомогою процедури Vivod (описана вище).
. Вказівником присвоюється вершина стека (тобто стек розглядається з його вершини). p align="justify">. Лічильнику номери елементів (i) присвоюється значення 1. p align="justify">. Поки вказівник не буде вказувати на nil або поки номер елемента менше номера, вказаного користувачем відбуватиметься цикл:
. Вказівником стека присвоюється попередня запис (тобто вершиною стека стає попередня запис). p align="justify">. Лічильник номери елементів (i) збільшується на 1. p align="justify"> Як тільки знайдений елемент з потрібним номером, то цикл припиняється.
. Користу...
