Реализация задания в оконном приложении

Вид формы и полученные результаты представлены на рис. 3.2.

Рис. 3.2

 

Приведем только тексты функций, соответствующих кнопок:

...

struct Stack { // Декларация структурного типа

int info;

Stack * next;

} *begin, *t;

//------------ Декларации прототипов функций пользователя ----------

Stack* InStack(Stack*, int);

void View(Stack*);

void Del_All(Stack **);

//----------------------------- Текст функции-обработчика кнопки Создать ------------

int i, in, n = StrToInt(Edit1-> Text);

if(begin! = NULL){

ShowMessage(" Освободите память! ");

return;

}

for(i = 1; i < = n; i++){

in = random(20);

begin = InStack(begin, in);

}

Memo1-> Lines-> Add(" Создали " + IntToStr(n) + " -ть.");

//--------------------------- Текст функции-обработчика кнопки Добавить ------------

int i, in, n = StrToInt(Edit1-> Text);

for(i = 1; i < = n; i++){

in = random(20);

begin = InStack(begin, in);

}

Memo1-> Lines-> Add(" Добавили " + IntToStr(n) + " -ть.");

//---------------------------- Текст функции-обработчика кнопки Просмотреть -----

if(! begin){

ShowMessage(" Стек Пуст! ");

return;

}

Memo1-> Lines-> Add(" --- Элементы ---");

View(begin);

//----------------------------- Текст функции-обработчика кнопки Очистить ---------

if (begin! = NULL) Del_All(& begin);

ShowMessage(" Память освобождена! ");

//---------------------------- Текст функции-обработчика кнопки EXIT -----------------

if(begin! = NULL) Del_All(& begin);

Close();

//--------------- Функция добавления элемента в Стек ------------------------

Stack* InStack(Stack *p, int in) {

Stack *t = new Stack;

t -> info = in;

t -> next = p;

return t;

}

//----------------- Функция просмотра Стека----------------------------------

void View(Stack *p) {

Stack *t = p;

while(t! = NULL) {

Form1-> Memo1-> Lines-> Add(" " + IntToStr(t-> info));

// В консольном приложении будет, например, cout < < " " < < t-> info < < endl;

t = t -> next;

}

}

//----------------------- Функция освобождения памяти -----------------------

void Del_All(Stack **p) {

while(*p! = NULL) {

t = *p;

*p = (*p) -> next;

delete t;

}

}