Program Pangkat Rekursi

Diposkan oleh beantank on 19:43

kamu tahu ngak lw skarang q lg seneng2x blajar program pascal yang ternyata lumanyan juga ni q punya slah satu yang menarik coba kalimat program ini pada free pascal maka kau bisa menghitung pangkat bilangan yang sangat basar

progam pangkat_rekursif2;
uses crt;
var a : real;
b : integer;
f : integer;
function pangkat (x:real; n:integer):real;
begin
If n =0 then pangkat :=1
else if n>0 then pangkat :=pangkat(x,n-1)*x
else pangkat:=pangkat(x,n+1)/x;
end;
begin
clrscr;
write('data a: ');readln(a);writeln;
write('data b: ');readln(b);writeln;
while(a<>0) or (b<>0) do
begin
writeln;
write(a:5:2,' pangkat ',b:3,' = ');
write(pangkat(a,b):5:2);
writeln;
writeln;
write('data a: ');
readln (a);writeln;
write('data b: ');
readln (b);writeln;
end;
write('tekan ');
readln;