Pascal - Program Pangkat Rekursif

Program Pangkat Rekursif menggunakan bahasa Pascal


program Pangkat_Rekursif;
uses crt;

function pangkat(a : integer; n : integer):integer;
begin
     if n = 0 then
     begin
         pangkat := (1);
     end
     else
     begin
         pangkat := (a*pangkat(a, n-1));
     end;
end;

var
   b, x, hasil_pangkat : integer;
begin
    write('Masukkan bilangan yang akan dipangkatkan : ');
    readln(b);
    write('Masukkan jumlah pangkat : ');
    readln(x);

    clrscr;

    writeln('======================================');
    writeln('|           PROGRAM PANGKAT (REKURSIF)          |');
    writeln('|                          SRI WAHYUNI                               |');
    writeln('|                              1400018214                                  |');
    writeln('|                           <08 JUNI 2015>                              |');
    writeln('======================================');
    writeln(' ');
    writeln('b = ', b);
    writeln('x = ', x);
    writeln(' ');

    hasil_pangkat := pangkat(b, x);
    writeln('b^x = ', b,'^',x);
    writeln('    = ',hasil_pangkat);
end.

Hasil Compile :