Menghitung Bilangan Pangkat di Pascal

Dalam Pascal untuk menghitung nilai kuadrat (pangkat 2) biasa digunakan fungsi sqr(). Tapi untuk menghitung pangkat n bisa gunakan fungsi exp() seperti contoh dibawah ini untuk menghitung a^n.
uses crt;
var a,n:integer;
function pangkat(x:integer):real;
var hasil:real;
begin
hasil:=exp(x*ln(a));
pangkat:=hasil;
end;
begin
clrscr;
write(‘Masukkan angka :’);readln(a);
write(‘Dipangkatkan berapa ? ‘);readln(n);
write(‘Jadi ‘,a,’^’,n,’ adalah ‘,pangkat(n):2:0);
readln;
end.

~ oleh gipsylinux pada Maret 14, 2010.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: