program mencari n pangkat bilangan turbo pascal

uses crt;
var
   i,b,a : integer;
   x : real;
begin
    writeln ('program perpangkatan');
    writeln ('====================');
    writeln;
    write ('bilangan pokok   : ');
    readln(b);
    write ('bilangan pangkat : ');
    readln(a);
    writeln;
    x:=1;
    if (b>0) then
       for i := 1 to b do
           x:=x*a
       else if (b=0) then
           x:=1
       else
          begin
          b:=-1*b;
          for i:= 1 to b do
       begin
       x:=x*(1/a);
       end;
    end;
   writeln (' hasil ',a,' ^ ',b,' : ',x:6:0);
end.

Share this post