стеком і динамічними масивами. Для зберігання даних в програмному забезпеченні використовується - стек. У програмі реалізовані наступні процедури роботи з даними: додавання, видалення, редагування запису. У процесі роботи зі стеком сформувався навик робити операції на ньому за певними критеріями, наприклад пошук за датою. Отримані нові знання про деякі можливості мови програмування Delphi, наприклад, з вбудованими функціями, такими як Length, StrToInt, StrToDate і т.д., а також з типами і динамічними покажчиками. p align="justify"> Постановка завдання в курсовій роботі реалізована повністю.
програма delphi стек алгоритм
Список використаних джерел
1. Блог Jakeroidа: особистий блог про програмування, комп'ютерах і саморозвитку. Черга і стек в Delphi 7, 2011. URL: http:/jakeroid.com/ochered-i-stek-v-delphi.html (дата звернення 26.12.2012)
. Бобровський С. Delphi 7. Навчальний курс. - Санкт-Петербург: Питер, 2005. - 736 с. p>. Дистанційна підготовка з інформатики. Стек. Відмінності стека від списку. Основні операції зі стеком, URL: http:/informatics.mccme.ru/moodle/mod/book/view.php?id=543 (дата звернення 26.12.2012)
. Культин Н.Б. Основи програмування в Delphi 7. - Санкт-Петербург: БХВ-Петербург, 2007. - 594 с. p>. Мова паскаль. Програмування для початківців. Процедури, обслуговуючі стек, 2011. URL: http:/pas1.ru/steckdinamic (дата звернення 26.12.2012)
. Мова паскаль. Програмування для початківців. Стек («» магазин В»), 2010. URL: http:/pas1.ru/stack (дата звернення 26.12.2012)
Додаток 1
Лістинг 1.Добавленіе елемента в стек
procedure Add (var b: Integer; p: TPElem); g: string;; (p);
Writeln ('Введіть найменування товару:');
Readln (p ^. Tovar);
Writeln ('Введіть місце покупки:');
Readln (p ^. Mesto);
Writeln ('Введіть ціну товару:');
Readln (p ^. Cena);
Writeln ('Введіть дату покупки (дд.мм.рррр):');
Readln (g); (g, p ^. Date_P); p <> nil then p ^. prev: = top;: = p;
b: = b 1;
end;
Лістинг 2.Удаленіе елемента з стека
procedure Del (p: TPElem);
Begin: = top; p <> nil then: = p ^. prev; (p);: = b-1; else writeln ('Стек порожній');;
Лістинг 3. Висновок стека
Printall (p: TPElem); j: Integer;: = top;: = 0; p <> nil then; p <> nil do (j); Length (IntToStr (j )) = 1 then write (j, ''); Length (IntToStr (j)) = 2 then write (j, ''); Length (IntToStr (j)) = 3 then write (j, '');
