Menghitung pangkat di Pascal/Lazarus

Penghitungan Pangkat sangatlah dibutuhkan di dalam sebuah proses pemrograman. Berikut jawaban untuk teman kita bagaimana membuat program pangkat di dalam pascal.

var
a,n:integer;
function pangkat(x:integer):real;
var
hasil:real;
begin
hasil:=exp(ln(a)*x);
pangkat:=hasil;
end;
begin

write(‘Masukkan nilai: ‘);readln(a);
write(‘Dipangkatkan : ‘);readln(n);
write(‘Jadi ‘,a,’^’,n,’ Adalah=’,Pangkat(n):2:0);
readln;

end.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s