Program Pangkat secara Rekursif dalam Bahasa Pascal dan C++

Program dalam bahasa Pascal

program PangkatRek;

function Pangkat(x, y : integer) : integer;
begin
        if y=0 then
          Pangkat:=1
        else
          Pangkat:=x*Pangkat(x,y-1);
end;

var
        x, y, hasil : integer;

begin
        write('nilai x = ');readln(x);
        write('pangkat = ');readln(y);
        writeln();
        hasil:=Pangkat(x,y);
        writeln(x,'^',y,' = ',hasil);
end.


Program dalam bahasa C++
#include <iostream>
using namespace std;

int Pangkat(int x, int y){
if (y==0)
return 1;
else
return x*Pangkat(x, y-1);
}
int main() {
int x,y,hasil;
cout<<"nilai x = ";cin>>x;
cout<<"pangkat = ";cin>>y;
cout<<endl;
hasil=Pangkat(x,y);
cout<<x<<"^"<<y<<" = "<<hasil;
return 0;
}