Assalamualaikum wr wb..
Nah disini saya akan berbagi sedikit tentang perpangkatan di pascal jika belum punya aplikasinya silahkan download aplikasinya disini..
mungkin jika perpangkatan di dalam matematika memang mudah tapi jika kita membuat programnya itu akan sulit gan bahkan jika kita baru mengenal aplikasi pascal mungkin bakalan bingung..
langsung aja gan masukan script di bawah ini..
Script Perpangkatan di Dev Pascal
program MenghitungPangkat;
uses crt;
var
a,b,i :integer;
x :real;
begin
writeln('Program Menghitung Pangkat');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~');
write ('Inputkan Bil.Yang DiPangkat : ');readln(a);
write ('Inputkan Jumlah Pangkat : ');readln(b);
x := 1;
if(b >= 0)then
for i := 1 to b do
x := x*a
else
begin
b := -1*b;
for i:= 1 to b do
begin
x := x*(1/b);
end;
end;
writeln;
writeln('Hasilnya Adalah : ',x:0:1);
readln;
end.
uses crt;
var
a,b,i :integer;
x :real;
begin
writeln('Program Menghitung Pangkat');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~');
write ('Inputkan Bil.Yang DiPangkat : ');readln(a);
write ('Inputkan Jumlah Pangkat : ');readln(b);
x := 1;
if(b >= 0)then
for i := 1 to b do
x := x*a
else
begin
b := -1*b;
for i:= 1 to b do
begin
x := x*(1/b);
end;
end;
writeln;
writeln('Hasilnya Adalah : ',x:0:1);
readln;
end.
Nanti tampilannya akan seperti ini gan..
Silahkan gan dicoba ..
Terimakasih sudah berkunjung.. :D
Silahkan Jika Ada yang Ditanyakan ? EmoticonEmoticon