I would like to know if someone could send me a entire code for this purpose
(http://www.daniweb.com/forums/announcement58-2.html)

thanks for info friend :)
i will try it.

i m glad to hear that.
happy coding :)

try this following code :
{********************************************
* This Procedure to Sort element vektor *
* Procedure ATUR to organize an element position *
...

yeah. i will give u QuickSort procedure

yes, you right.

you're welcome friend :)

i was modified your code and add a some code :
i use your initial code...
function POP (var T : Tumpukan) : integer;

{*this function to check stack is empty or not*}
function Empty(var T :...

try this following code :
program Reverse_String;

uses crt;

const Elemen = 255; {* Max character *}

type S255 = string[Elemen];
Stack = record
Input :...

you're welcome my friend :)

see this code :
function FIBO(N : integer) : integer;

begin
if (N = 1) or (N = 2) then
FIBO := 1
else
FIBO(N) := FIBO(N - 1) + FIBO(N - 2)
end;
hope this helps...

Simple code for matrix with pascal.

--Jery--

you're welcome. its ok, everybody can make mistake. happy coding friend :)
all for the best.

i think you forget to set full = false, just it.
add this code after else :
begin
Full := false;
T.Top := inc(T.Top);
T.Contain[T.Top] := X
end
ok hope this...

sorry for the double post.

see this example :
i write this code in pascal

5318

hope this helps..

see this example :
i write this code in pascal

5318

hope this helps..