kumpulan contoh perintah program pascal parameter procedure

kumpulan contoh perintah program pasal parameter procedure - pada posting kali ini saya akan membagikan tentang contoh - contoh program parameter procedure pascal, bagi anda yang ingin mencari contoh program pascal dengan menggunakan perintah parameter procedure dapat melihat beberapa program dibawah ini :

agar anda dapat membedakan contoh program parameter procedure dengan yang hanya memakai deklarasi bentuk umum biasa, saya telah membuat contoh sebuah program sederhana deklarasi bentuk umum biasa tanpa parameter procedure, dibawah ini :

Contoh program procedure biasa :

program prosedure;
uses crt;
      procedure biodata;
      begin
             writeln('+++++++++++++');
      end;

var ket:string;

begin
      clrscr;
      biodata;
      writeln('----DATA MAHASISWA----');
      write('nama      : ');readln(ket);
      write('npm       : ');readln(ket);
      write('jurusan   : ');readln(ket);
      write('kelas     : ');readln(ket);
      write('fakultas  : ');readln(ket);
      write('alamat    : ');readln(ket);
      biodata;
readln;
end.

ket :
pada contoh program procedure biasa diatas, program hanya memanggil deklarasi biodata yang mana deklarasinya hanya berupa tanda (++++++++++) , dan selanjutnya hanya terdiri dari statements biasa pada pascal.

Outputnya akan menjadi seperti ini :

++++++++++++++++++++++
----DATA MAHASISWA----
nama        : (input dari keyboard)
npm         : (input dari keyboard)
jurusan     : (input dari keyboard)
kelas        : (input dari keyboard)
fakultas    : (input dari keyboard)
Alamat     : (input dari keyboard)
++++++++++++++++++++++ 

dari contoh diatas telah saya terangkan tentang procedure biasa, dan pada contoh - contoh program dibawah ini adalah beberapa contoh program PARAMETER PROCEDURE. 

Contoh program parameter procedure "menghitung penjumlahan":

program prosedure;
uses crt;
      procedure hitung(a,b:integer);
      var c:real;
      begin
      c:=a+b;
              writeln('hasil dari penjumlahan : ' ,c:0:2);
      end;

var NU,N:integer;

begin
      clrscr;
      writeln('program hitung penjumlahan');
      write('masukkan angka pertama : ');readln(N);
      write('masukkan angka kedua   : ');readln(NU);
      hitung(N,NU);
readln;
end.

ket :
pada contoh program parameter procedure diatas, program memanggil deklarasi hitung yang mana deklarasinya berupa rumus c:=a+b , dan selanjutnya memasukkan sebuah angka pada statements dengan variabel baru yang mana variabel ouput akan dipanggil dengan perintah hitung(N,NU).

Outputnya akan menjadi seperti ini :

 

Contoh program parameter procedure "KONVERSI SUHU CELCIUS KE FAHRENHEIT" :

program prosedure;
uses crt;
      procedure konversi(f:integer);
      var e:real;
      begin
      e:=9/5*f+32;
              writeln('hasil konversi suhu : ' ,e:2:0);
      end;

var cel:integer;

begin
      clrscr;
      writeln('konverai suhu celcius ke fahrenheit ');
      write('masukkan angka suhu celcius : ');readln(cel);
konversi(cel);
readln;
end.

ket :
pada contoh program parameter procedure diatas, program memanggil deklarasi konversi yang mana deklarasinya berupa rumus e:=9/5*f+32, dan selanjutnya memasukkan sebuah angka pada statements dengan variabel cel yang mana variabel ouput akan dipanggil dengan perintah konversi(cel).

Outputnya akan menjadi seperti ini :

Contoh program parameter procedure "KONVERSI SUHU CELCIUS KE REAMUR" :

program prosedure;
uses crt;
      procedure konversidua(c:integer);
      var e:real;
      begin
      e:=4/5*c;
              writeln('hasil konversi suhu : ' ,e:2:0);
      end;

var cel:integer;

begin
      clrscr;
      writeln('konverai suhu celcius ke reamur');
      write('masukkan angka suhu celcius : ');readln(cel);
konversidua(cel);
readln;
end.

ket :
pada contoh program parameter procedure diatas, program memanggil deklarasi konversidua yang mana deklarasinya berupa rumus e:=4/5*c, dan selanjutnya memasukkan sebuah angka pada statements dengan variabel cel yang mana variabel ouput akan dipanggil dengan perintah konversidua(cel).

Outputnya akan menjadi seperti ini :

Contoh program parameter procedure "KONVERSI DOLLAR KE RUPIAH" :

program prosedure;
uses crt;
      procedure dolarkurs(g:integer);
      var h:real;
      begin
      h:=g*14000;
              writeln('hasil kurs dolar ke rupiah : Rp. ' ,h:8:2);
      end;

var dolar:integer;

begin
      clrscr;
      writeln('Kurs dollar ke rupiah');
      write('masukkan angka dollar : $.');readln(dolar);
      dolarkurs(dolar);
readln;
end.

ket :
pada contoh program parameter procedure diatas, program memanggil deklarasi doarkurs yang mana deklarasinya berupa rumus h:=g*14000, dan selanjutnya memasukkan sebuah angka pada statements dengan variabel dolar yang mana variabel ouput akan dipanggil dengan perintah dolarkurs(dolar).

Outputnya akan menjadi seperti ini :

saya rasa itulah contoh - contoh diatas, beberapa program sederhana dari parameter procedure, saya akan update lebih banyak lagi di next artikel selanjutnya. thanks