| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Стек:

DevilDevil ©   (2007-03-02 22:48:00) 

один на Виндоус, по одному на задачу или по одному на каждый поток?

---

Rouse_   (2007-05-22 09:23:00) [1]

> Нужна прога в Делфи. Реализация стека.. ПоМоГиТе!!!! Пожалуйсто!
> !!

uses
 Contnrs;

var
 MyStack: TStack;

---

smirnov   (2007-05-22 07:48:00) [2]

program StackTest;
var Stack: string;
procedure Push(a: char);
begin
   Stack := Stack + a;
end;
function Pop: char;
begin
   result := Stack[Length(Stack)];
   SetLength(Stack,Length(Stack) - 1);
end;
var a: char;
begin
    for a := 'a' to 'z' do begin
        Push(a);
        writeln(Stack);
    end;
    while Length(Stack) > 0 do begin
        Pop;
        writeln(Stack);
    end;
    readln;
end.

---

smirnov   (2007-05-22 07:33:00) [3]

А зачем он тебе, заняться нечем больше, молодая, красивая...

---

Christina   (2007-05-21 19:43:00) [4]

Надеюсь не сложно... Нужна прога в Делфи. Реализация стека.. ПоМоГиТе!!!! Пожалуйсто!!!

---

GrayFace   (2007-03-03 17:21:00) [5]

DevilDevil ©   (02.03.07 22:48)
один на Виндоус
Ага, и один на Шторус.

---

Игорь Шевченко   (2007-03-02 22:56:00) [6]

По одному на каждый поток

---

Наверх