uses wincrt;
var
n,x:integer;
FUNCTION Pangkat(M:integer):longint;
begin
if M=0 then
Pangkat:=1
else
Pangkat:=n*Pangkat(M-1);
end;
begin
clrscr;
writeln('Perpangkatan');
write('Input bilangan: ');readln(n);
write('Input perpangkatan: ');readln(x);
writeln(n,'pangkat',x,'= ',Pangkat(x));
end.
Minggu, 13 Desember 2009
program rekursi perpangkatan
Posted in |
17.36 | by ClubPoker-DNA
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar