Program Pascal : Membuat program untuk menghitung Nilai berpangkat dengan Procedure

Nilai Berpangkat --- Menghitung nilai berpangkat membutuhkan cukup waktu untuk menghitungnya secara manual, makanya diperlukan suatu program yang akan mempermudah dalam mencari nilai bilangan yang berpangkat. contoh susahnya mencari nilai berpangkat yaitu jika ingin mencari nilai 3 pangkat 3 maka cara manualnya yaitu 3x3x3, ini jika pangkatnya masih sedikit, bagaimana jika pangkatnya sudah banyak tentu membuat kita lebih sulit mencarinya.

Program akan membantu kita dalam menghitung nilai berpangkat. Dalam program ini menggunakan code Pascal. Dalam code pascal terdapat syntax yang membantu kita menyusun program yang kita buat seperti constanta, procedure, function dan sebagainya. Program menghitung nilai berpangkat yang akan kita buat menggunakan Procedure. Procedure disini sangat membantu kita dalam membuat program yang sering diulangi atau membuat suatu proses yang selalu diulangi/dilakukan.

Berikut contoh programnya.

Menggunakan Turbo Pascal for Windows (TPW 1.5).

Code Pascal

Program pangkat_3;

Uses wincrt;

Procedure pangkat(x:integer);

Begin

X:=x*x*x;

Writeln(' = ',x);

End;

{program utama}

Var

Nilai:integer;

Begin

writeln('           Menghitung Bilangan berpangkat 3');

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

Write('masukkan nilai             = ');readln(nilai);

Writeln('--------------------------------');

Writeln('nilai yang anda masukkan   = ',nilai);

Write('nilai setelah dipangkat 3 ');

Pangkat(nilai);

End.

Hasil Running

Contoh yang kita gunakan menggunakan pangkat 3. untuk menghitung pangkat dengan pangkat yang lain, bisa diperhatikan pada bagian deklarasi Procedure bagian X:=x*x*x. untuk mengubahnya dengan menambah x sesuai keinginan.

Sekian contoh program pascal kesempatan ini. Semoga bermanfaat..

Bagikan ke:

Facebook Google+ Twitter