Объектно-ориентированное программирование на С++ - eDrive

53
} // 0 1 Иванов 2 Петров 3 Сидоров
while (s–>AtLeast (1))
b += AnsiString (s–>Count ()) + ' ' + (char*) s–>Pop () + '\n';
ShowMessage (b + '0'); // 3 Сидоров 2 Петров 1 Иванов 0
}
void SimpleStack() {
TStack *vStack = new TStack;
vStack–>Push ("Пеpвое ");
vStack–>Push ("Втоpое "); vStack–>Push ("Тpетье ");
ShowMessage ("Добавили " + AnsiString (vStack–>Count ()));
vStack–>Pop (); ShowMessage ("Осталось " + AnsiString (vStack–>Count ()));
}
Далее приведен пример разработки авторского символьного стека без
привлечения библиотечного класса TSteak:
const int ARRAYSIZE = 1000;
struct vStack { char s[ARRAYSIZE]; int top; };
void Reset (vStack *stk) { stk–>top = –1; }
int Empty (const vStack *stk) { return stk–>top == –1; }
int Full (const vStack *stk) { return stk–>top == ARRAYSIZE – 1; }
void Push (char *str, vStack *stk) {
int i = 0; while (str[i]) if (!Full (stk)) stk–>s[++stk–>top] = str[i++];
}
void Pop (vStack *stk) {
AnsiString result;
while (!Empty (stk)) result += AnsiString (stk–>s[stk–>top––]) + '\n';
ShowMessage (result);
}
void MyStack () {
vStack s;
Reset (&s);
Push ("Пеpвое ", &s); Push ("Втоpое ", &s); Push ("Тpетье ", &s); Pop (&s);
}
Очередью (queue) называют последовательность данных, в которой помещение
данных выполняется с одного конца – входа очереди (input), а выборка
– с другого конца – выхода очереди (output) по принципу «первым вошел
– первым вышел» (FIFO – First Input, First Output):
void _ _fastcall TForm1::QueueClick (TObject *Sender) {
AnsiString a[] = { "Иванов", "Петров", "Сидоров" }, b = "0\n";