Program Stack/Tumpukan (Pascal)

 CONTOH PROGRAM STACK

MENGGUNAKAN TIPE DATA STRING

{contoh program Tumpukan}
Program pop_push;
uses wincrt;
const
elemen =255; {batas maximum karakter}
type
 S255 = string [elemen];
 tumpukan = record
          isi : s255;
          atas : 0..elemen;
          end;

var
T : tumpukan;
W : char;
kalimat : s255;
i,j : integer;

procedure awalan (var T : tumpukan);
begin
 T.Atas := 0;
end;

procedure push (var T : tumpukan; X : char);
begin
 T. Atas := T.Atas+1;
 T.Isi[T.Atas] := X;
end;

function pop (var T : tumpukan): char;
begin
 pop := T.Isi[T.Atas];
 T.atas := T.atas-1;
end;

begin {program utama}
 clrscr; {melakukan proses push}
writeln('Masukkan Kalimat : ');read(kalimat);
writeln;
 for i := 1 to length (kalimat) do
 push (T, kalimat [i]);
 write('Elemen yang di-push : ', kalimat);
 writeln;
 readln;

{melakukan proses pop}
for i := 1 to length (kalimat) do
push (t, kalimat [i]);
writeln;
writeln('Hasil akhir push dibaca dengan pop : ');
{menampilkan hasil proses pop}
for j := 1 to length (kalimat) do
begin
 w := pop (T);
 write(w);
end;
readln;

end.

Untuk Outputnya seperti ini :

di kutip dari modul Struktur Data STMIK WICIDA Samarinda

Read More

Program Mencari Nilai Terbesar (Pascal)

Program Untuk Mencari Nilai Terbesar

Menggunakan Array

program nilai_terbesar;
uses wincrt;
const besar = 10;
var
n : array[1..besar]of integer;
i  : integer;
max: integer;

begin
writeln('Mencari Nilai Terbesar');
writeln('----------------------');
      for i:=1 to besar do
begin
     write('Masukkan data ke-',i,'= ');readln(n[i]);
     if (n[i])  > max then max:=(n[i]);
end;
writeln;
write('nilai terbesar : ',max);
end.

  Untuk Outputnya seperti ini :

Read More