Algoritma pangkat secara Rekursif
function Pangkat(x, y : integer) ? integer
Deklarasi lokal :
{tidak ada}
Algoritma :
if y=0 then
return 1
else
return (x*Pangkat(x,y-1))
endif.
Program PangkatRek
Deklarasi :
x, y, hasil : integer
function Pangkat(x, y : integer) ? integer
Algoritma :
read(x, y)
hasil:=Pangkat(x,y)
write(x,'^',y,' = ',hasil)
Deklarasi lokal :
{tidak ada}
Algoritma :
if y=0 then
return 1
else
return (x*Pangkat(x,y-1))
endif.
Program PangkatRek
Deklarasi :
x, y, hasil : integer
function Pangkat(x, y : integer) ? integer
Algoritma :
read(x, y)
hasil:=Pangkat(x,y)
write(x,'^',y,' = ',hasil)
Comments
Post a Comment
-Berkomentarlah yang baik dan rapi.
-Menggunakan link aktif akan dihapus.