- Contoh Program Stack Pascal Dan
- Contoh Program Stack Pascal Data
- Contoh Program Stack Pascal Data
- Contoh Program Stack Pascal
Membuat Program Stack Menggunakan Pascal. 23 April 2015 23 April 2015 Sadu Merta Adi. 1.Buatlah algoritma inisialisasi, push, pop, isfull, isempty. In data structure: program of stack by Pascal programming language. Nov 10, 2018 Mengenai Saya. Program stack + bubble sort + pencarian beruntun. Program Pascal (Queue). Pascal programming language allows multidimensional arrays. Here is the general form of a multidimensional array declaration −. For example, the following declaration creates a three dimensional 5. Di bawah ini diberikan contoh pemakaian operasi PUSH dan POP dan isi stack untuk setiap selesai eksekusi satu operasi. (Untuk mempermudah penulisan, di bawah ini isi stack tidak dituliskan secara bertumpuk, tetapi dengan kesepakatan: elemen paling kanan adalah elemen yang ada pada TOS (Top Of the Stack) stack yang dipakai bernama S. Kembali lagi kali ini saya ingin membagikan 10 contoh program pascal sederhana yang cukup lengkap meliputi materi-materi umum yang kita pelajari di bahasa pemrograman pascal seperti program runtunan, percabangan, perulangan, array (larik), serta prosedur atau fungsi. Contoh-contoh program ini saya buat dan jalankan melalui aplikasi pascal.
TUGAS
Contoh Program Stack Pascal Dan
1.Buatlah algoritma inisialisasi, push, pop, isfull, isempty.
Contoh Program Stack Pascal Data
2.Buat kode inisialisasi, push, pop, isfull, isempty.
3.Tampilkan screen shoot nya.
4.Keterangan : Jumlah data yang akan di simpan, imputkan oleh pengguna
-Data yang akan di simpan di inputkan oleh pengguna.
Operasi Stack :
- Inisialisasi : digunakan untuk mengosongkan stack
- Push : digunakan untuk menambah item pada stack pada tumpukan paling atas
- Pop : digunakan untuk mengambil item pada stack pada tumpukan paling atas
- IsEmpty : fungsi yang digunakan untuk mengecek apakah stack sudah kosong
- IsFull : fungsi yang digunakan untuk mengecek apakah stack sudah penuh
Berikut penyelesaiannya dengan menggunakan Turbo Pascal :
Contoh Program Stack Pascal Data
program operasi_stack;
uses crt;
const max_el = 10;
type
nilaiMatkul = record
nim : string[8];
nama : string[25];
nilai : integer;
end;
stack = record
top : integer;
data : array[1..max_el] of nilaiMatkul;
end;
procedure inisialisasi(var s : stack);
begin
s.top := 0;
end;
function isempty(var s : stack) : boolean;
var
hasil : boolean;
begin
hasil := false;
if s.top = 0 then
begin
hasil := true;
end;
isempty := hasil;
end;
function isfull (var s : stack) : boolean;
var
hasil : boolean;
begin
hasil := false;
if s.top = max_el then
begin
hasil :=true;
end;
isfull :=hasil;
end;
procedure push(nim : string; nama:string; nilai:integer; var s:stack);
begin
if isfull(s)=true then
begin
writeln(‘stack penuh’);
end
else
begin
if isempty(s)=true then
begin
s.top := 1;
s.data[1].nim := nim;
s.data[1].nama := nama;
s.data[1].nilai := nilai;
end
else
begin
s.top := s.top+1;
s.data[s.top].nim :=nim;
s.data[s.top].nama :=nama;
s.data[s.top].nilai :=nilai;
end;
end;
end;
procedure pop(var s : stack);
begin
if s.top <> 0 then
begin
s.top := s.top-1;
end
else
write(‘Data Habis’);
writeln
end;
procedure printstack(var s:stack);
var
i : integer;
begin
if s.top<> 0 then
begin
for i := s.top downto 1 do
with s.data[i] do
begin
writeln;
writeln(‘elemen ke: ‘,i);
wrietln(‘nim: ‘,nim);
writeln(‘nama: ‘,nama);
writeln(‘nilai: ‘,nilai);
end;
writeln;
end
else
begin
writeln(‘Stack Kosong’);
end;
end;
var
s :stack;
banyak : byte;
i : integer;
begin
clrscr;
inisialisasi(s);
writeln;
writeln(‘Awal‘);
printstack(s);
writeln;
writeln(‘‘);
write(‘Masukkan Jumlah Data : ‘); readln(byk);
writeln;
for i := 1 to banyak do
with s.data[i] do
begin
write(‘nim : ‘); readln(nim);
write(‘nama: ‘); readln(nama);
write(‘nilai: ‘); readln(nilai);
end;
readln;
writeln(‘Setelah Di Push’);
for i :=1 to banyak do
begin
push(s.data[i].nim, s.data[i].nama, s.data[i].nilai,s);
writeln;
end;
printstack(s);
writeln(‘‘);
writeln;
readln;
writeln(‘Setelah Di Pop‘);
pop (s);
writeln;
printstack(s);
writeln(‘‘);
writeln;
readln;
readln;
end.
Setelah itu program bisa di RUN dengan cara mengeklik menu ‘RUN’ atau dengan cara menekan tombol ‘CTRL + F9′. Jika sudah sukses program bisa dijalankan.
Contoh Program Stack Pascal
Gambar dibawah merupakan hasil setelah di RUN :
Article 2: The Stack Data Structure
An array is a data structure which stores data items in a pre-allocated space. It allows you to store data anywhere within its range. On the other hand, the Stack Data Structure does not allow you to store data where you want i.e. order is important. It is based on a LIFO basis - the last to arrive, the first to be served.
The stack is a simple array which stores data items using an index which points to the last element that has been inserted. If data is requested from the stack, the last element that has been stored is 'poped' out of the array and returned. When popping occurs, the last element is returned and discarded from the stack with the top pointer being decremented by 1. Obviously, if the stack is empty, nothing is returned and the top pointer will remain untouched.
One can always add elements to the stack by pushin data items at the end of the stack indicated by the top pointer. After each added item, the top pointer is increased by 1, however items won't be added and top pointer won't be increased by 1 if the stack is already full. The stack rejects any more items to be added when full until at least 1 item is poped.