PROGRAM STACK PADA PASCAL

Dibawah ini adalah coding pascal untuk stack :

program mahasiswa;

uses crt;

            const elemen =10;

type nmatkul=record

nim:integer;

nama:string[30];

nilai:integer;

isi :array [1..elemen] of string;

atas:0..elemen;

end;

var

            isi:array[1..elemen] of nmatkul;

t :nmatkul;

i :integer;

m,nim,nilai :integer;

nama :string;

procedure awal (var t:nmatkul);

begin

t.atas:=0;

end;

procedure push (var t:tumpukan;x:char);

begin

t.atas :=t.atas+1;

t.isi [t.atas] :=x

end;

procedure pop (var t:nmatkul);

begin

write(t.isi[t.atas]);

t.atas :=t.atas-1;

end;

begin

clrscr;

            awal (t);

write(‘masukkan jumlah mahasiswa:’);

readln(m);

for i:=1 to m do

with isi[i] do

begin

writeln(‘data ke’,i);

write(‘masukkan nim:’);

readln(nim);

write(‘masukkan nama:’);

readln(nama);

write(‘masukkan nilai:’);

readln(nilai);

writeln(‘============’);

end;

clrscr;

writeln(‘======data yang telah dipop=====’);

for i:=  1 to m do

with isi[i] do

begin

writeln(data ke’,i);

writeln(‘nim:’,nim);

writeln(‘nama:’,nama);

writeln(‘nilai:’,nilai);

writeln(‘==========’);

end;

readln

end.

Di bawah ini gambar codingnya di program pascal: 

Berikut hasil outputnya:

  

Program Pascal Menginputkan Array dalam Record

Dibawah ini adalah coding pascal untuk menginputkan array dalam record:

program recordmhs; uses crt;
type
      mahasiswa = record
                           nim                  :string[8];
                           nama               :string[30];
                           alamat             :string[30];
                           jurusan            :string[20];
                           telp                   :string[20];
                           tanggal_lahir   :string[20];
     end; var
     mhs :array[1..50] of mahasiswa;
     byk :byte;
     i , j :integer;
begin
         clrscr;
         writeln('_______________TUGAS______________');
         writeln('___________STRUKTUR DATA__________');
         write(Masukkan Jumlah mahasiswa: '); readln(byk);
         for i:= 1 to byk do
         begin
         write('Nim                     :'); readln (mhs[i]. nim);
         write('Nama                  :'); readln (mhs[i]. nama);
         write('Alamat                :'); readln (mhs[i]. alamat);
         write('Jurusan               :'); readln (mhs[i]. jurusan);
         write('No Telpon           :'); readln (mhs[i]. telp);
        write('Tanggal_lahir      :'); readln (mhs[i]. tanggal_lahir);
        writeln;
        end;
        writeln;
        writeln('Data mahasiswa yang telah diinputkan');
        writeln('=========================');
        for j:= 1 to byk do
        begin
        writeln('Nim                      :', mhs[j]. nim);
        writeln('Nama                   :', mhs[j]. nama);
        writeln('Alamat                 :', mhs[j]. alamat);
        writeln('Jurusan                :', mhs[j]. jurusan);
        writeln('No Telpon            :', mhs[j]. telp);
        writeln('Tanggal_lahir      :', mhs[j]. tanggal_lahir);
        writeln;
        end;
        writeln('_________STIKI INDONESIA__________');
        readln;
        end.

Di bawah ini gambar codingnya di program pascal: 

  
Berikut hasil outputnya:

SEMOGA BERMANFAAT :)

Program Pascal Menginputkan Elemen-elemen Pada Matriks

Dibawah ini adalah koding pascal untuk menginputkan elemen-elemen pada matriks:

program matriks;

uses crt;

var

   m:array[1..5,1..5] of integer;

   i,j,a,b:integer;

begin

     clrscr;

     writeln('_____________________TUGAS______________________');

     writeln('_________________STRUKTUR DATA__________________');

     writeln('================================================');

     writeln('____________________MATRIKS_____________________');

     writeln;

     write('masukkan Baris : ');readln(a);

     write('masukkan Kolom : ');readln(b);

     writeln;

     for i:= 1 to a do

          begin

               for j:= 1 to b do

               begin

               write('masukkan elemen ke' ,i,' , ' ,j, ':');readln(m[i,j]);

               end;

          end;

          writeln('data yang anda masukkan:');

          for i:= 1 to a do

          begin

               for j:= 1 to b do

               write(m[i,j]:4);

               writeln;

          end;

     writeln;

     writeln;

     writeln;

     writeln('__________________STIKI INDONESIA________________');

readln;

end.

Dibawah ini gambar kodingnya di program Pascal :

Berikut hasil outputnya:

SEMOGA BERMANFAAT  :)