останній елемент. Змінної temp ставимо покажчик на останній елемент списку. p align="justify"> Блок 7. Викликається процедура Dispose - звільнення пам'яті займаної змінної right. p align="justify"> Блок 8. Мінлива right вказує на останній елемент списку. p align="justify"> Блок 9. Мінлива temp вказує на видаляється елемент списку. p align="justify"> Блок 10. Викликається процедура Dispose - звільнення пам'яті займаної змінної temp. p align="justify"> Блок 11. Кількість елементів зменшується на 1. br/>
2.5.3 Процедура Saveto - збереження списку в файл (рис. 2.3)
Блок 1. Змінної f присвоюється покажчик на файл out.txt .
Блок 2. Файл out.txt обнуляється.
Блок 3. Змінної temp присвоюється покажчик на початок списку. p align="justify"> Блок 4. Перевіряється умова temp <> nil: якщо умова виконується то Блок 5, якщо ні Блок 7. p align="justify"> Блок 5. Запис елемента списку у файл. p align="justify"> Блок 6. Покажчик temp на наступний елемент списку. p align="justify"> Блок 7. Закриття файлу out.txt
В
Малюнок 2.2 - Процедура Del
2.6 Опис процедур
Функція getp (n: integer): ptabl - передається параметр n - номер елемента списку, повертається покажчик на елемент з цим номером;
Процедура sort (t: integer) - сортує список по полю t;
Процедура org - створює список;
В
Малюнок 2.3 - Процедура Saveto
Процедура show - створює список;
Функція menum: integer - повертає номер обраного пункту меню;
Процедура saveto - зберігає список у файл;
Процедура add - додає елемент до списку;
Процедура edit - редагує елемент списку;
Процедура del - видаляє елемент зі списку;
Процедура help - висновок допомоги;
Процедура close - вихід з програми;
Процедура main -
