Struktur Data : Program Stack (Tumpukan)

Buat temen-temen di 12.05.D/851

Silahkan di download dan dipraktekkan siapa tau keluar dalam UAS, itung-itung liburan sambil belajar hehehe

Program Tumpukan

uses wincrt;

const MaxElemen=5;

type Tumpukan =record

isi:array[1..MaxElemen] of integer;

atas: 0..MaxElemen

end;

type isi=array[0..maxelemen] of integer;

const isilama1:isi=(3,7,2,6,4,8);

isibaru1:isi=(4,8,3,6,5,1);

var

Nilailama,Nilaibaru:isi;

T:tumpukan;

{———————————————————————}

Procedure Ganti_NilaiStack(T:tumpukan;Nilailama,Nilaibaru:isi);

var

penuh,habis: boolean;

x,i:integer;

{———————————————————————}

procedure push( var T:tumpukan; var penuh:boolean;x:integer);

begin

if T.atas = maxElemen then penuh:=true

else

begin

penuh :=false;

T.isi[T.atas]:=x;

T.atas:=T.atas+1;

end;

end;

{———————————————————————}

procedure pop(var T:tumpukan;var habis:boolean; var x:integer);

begin

if T.atas =0 then habis:=true

else

begin

habis:=false;

T.atas:=T.atas-1;

x:=T.isi[T.atas];

end;

end;

{———————————————————————}

begin

clrscr;

write(‘Nilai Lama Sebelum Masuk Tumpukan : ‘);

for i:=0 to maxelemen do

write(isilama1[i]);

writeln;

write(‘Nilai Baru Sebelum Masuk Tumpukan : ‘);

for i:=0 to maxelemen do

write(isibaru1[i]);

writeln;

penuh:=false;

while penuh=false do

begin

push(T,penuh,Nilailama[T.atas]);

end;

write(‘Isi Tumpukan Lama : ‘);

while T.atas<>0 do

begin

pop(T,habis,x);

write(x);

end;

writeln;penuh:=false;

while penuh=false do

begin

push(T,penuh,Nilaibaru[T.atas]);

end;

write(‘Isi Tumpukan Baru : ‘);

while T.atas<>0 do

begin

pop(T,habis,x);

write(x);

end;

end;

{———————————————————————}

begin

Nilailama:=isilama1;Nilaibaru:=isibaru1;

Ganti_NilaiStack(T,Nilailama,Nilaibaru);

readkey;

end.

Selamat berlibur panjang

5 responses to “Struktur Data : Program Stack (Tumpukan)

  1. wah…, mas… saya nggak mudeng pemrograman. Mumet…

    @makanya mas winarno harus tetap fokus pada jaringan aja biar gak mumet

  2. bole request program balik barisan angka gak gan ?
    tp selain pke procedure push, pop ??
    ane blm tau mcem2nya lg nih,, klo bisa hr ini y gan,, thanks a lot^^

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s