Текущий архив: 2007.12.02;
Скачать: CL | DM;

Вниз

Стек:   Найти похожие ветки 

← →
DevilDevil ©   (2007-03-02 22:48) [0]

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

---

← →
Игорь Шевченко ©   (2007-03-02 22:56) [1]

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

---

← →
GrayFace ©   (2007-03-03 17:21) [2]

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

---

← →
Christina   (2007-05-21 19:43) [3]

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

---

← →
smirnov   (2007-05-22 07:33) [4]

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

---

← →
smirnov   (2007-05-22 07:48) [5]

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.

---

← →
Rouse_ ©   (2007-05-22 09:23) [6]

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

uses
 Contnrs;

var
 MyStack: TStack;

---

Страницы: 1 вся ветка

Текущий архив: 2007.12.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.027 c