Contoh Program Stack Pada Pascal

Program Stack Pada Pascal

Hai, sobat setia dottechno16 kali ini mimin mau membagikan source code program stack pada Pascal.

Monggo disimak program di bawah dengan seksama, apabila ada pertanyaan tinggalkan pada kolom komentar :))

Source Code :

 uses crt;
 type
         TStack = record
                         Stacks: array[0..10] of integer;
                         top: integer;
                 end;
 var
         tumpukan : TStack;

 // menginisialisasikan stack
 function initStack(var stack:TStack): boolean;
 begin
         stack.top:= -1; // kondisi stack kosong
         initStack:= true;
 end;

 function push(var stack:TStack; data: integer): boolean;
 begin
 if high(stack.stacks) = stack.top then begin
         writeln('Ups..! tumpukan penuh');
         push:= false;
         exit;
 end
 else begin
         inc(stack.top);
         stack.stacks[stack.top]:= data;
         push := true;
 end;
 end;

 function pop(var stack: TStack): integer;
 begin
    if stack.top = -1 then begin
         writeln('Ups..! tumpukan telah kosong');
         pop := -1
    end else begin
         pop := stack.stacks[stack.top];
         stack.stacks[stack.top]:=0;
         dec(stack.top);
    end;
 end;

 var jawab, data: byte;
 begin
 clrscr;
 initStack(tumpukan);
 repeat
         writeln('1. Masukan data kedalam tumpukan ');
         writeln('2. Keluarkan data dari tumpukan ');
         writeln('0. Keluar ');
         write('Masukan pilihan anda :'); readln(jawab);
         case jawab of
              1: begin
                 write('Masukan datanya :'); readln(data);
                 push(tumpukan, data);
              end;
              2: begin
                         writeln('Data Tumpukan teratas = ', pop(tumpukan));
              end;
              0:;
              else writeln('Maaf! salah memasukan tombol');
         end;
 readln;
 until jawab =0;
 end.

Coba jalankan program di atas pada compiler Pascal yang kalian gunakan :))

Cukup mudah bukan program tersebut :))

Tags : Pascal, Free Pascal, Stack, Program Stack Pascal, Tugas Kuliah, Charm Pascal, Kuliah, Informatika.

Share this post