{Function penuhs(s:tumpukan):boolean;
begin
JIKA s.banyak=maxelm MAKA penuhs := TRUE
ELSE penuhs := FALSE
end;
 

Function kosongs(s : tumpukan):boolean;
begin
JIKA s.banyak = 0 THEN kosongs := TRUE
ELSE kosongs := FALSE
end;
}

 
Procedure PUSH(var s : tumpukan; data : tipeelemen);
begin
{if not penuhs(s) then }
begin
s.banyak := s.banyak+1;
s.elemen[s.banyak] := data;
end
{else writeln('Maaf antrian penuh')}
end;
 

Procedure POP(var data : tipeelemen; var s : tumpukan);
begin
{if not kosongs(s) then }
begin
data := s.elemen[s.banyak];
s.banyak := s.banyak -1;
end
{else writeln('MAAF ANTRIAN KOSONG')}
end;
 

Procedure tampilstack(s:tumpukan);
var i: 0..maxelm;
data : tipeelemen;
begin
writeln('Isi stack secara berurutan adalah: ');
for i:= 1 to s.banyak do
begin
pop(data,s);
write(data);
end;
end;
 

BEGIN
CLRSCR;
WRITE('MASUKKAN KALIMAT PENDEK : ');READLN(KAL);
FOR I:= 1 TO LENGTH(KAL) DO PUSH(STACK,KAL[I]);
tampilstack(stack);
readln;
end.
 
  TUGAS :

1. COBALAH PROGRAM DI ATAS DENGAN KALIMAT YANG PENDEK
1. YANG PANJANGNYA KURANG DARI 15 HURUF
2. YANG PANJANGNYA LEBIH DARI 15 HURUF
2. LENGKAPILAH PERINTAH-PERINTAH UNTUK FUNGSI PENUHS DAN KOSONGS SEHINGGA SESUAI DENGAN SINTAKS PASCAL
3. BILA SUDAH, HILANGKAN TANDA KURUNG KURAWAL "{" DAN "}" YANG TERDAPAT PADA PROGRAM DI ATAS
4. AMATI APA YANG TERJADI SEKARANG BILA KALIMAT YANG DIMASUKKAN PANJANGNYA MELEBIHI 15 HURUF