Rompecompiladores Ackerman

Descrição

Esconder código-fonte

Program Ackerman;
Uses Crt;
Var
c,d:Integer;
Function A(n,m:integer):Integer;

Begin
  Begin
  If (n=0) or (m=0) Then
  Begin
  If (n=0) Then a:=m+1
  Else a:=a(n-1,1)
  End
  Else  a:=a(n-1,a(n,m-1));

  End
End;

Begin
Clrscr;
Writeln('Rompecompiladores Ackerman');
writeln('============================');
writeln();
writeln();
writeln();

Writeln('Ingrese el primer numero');
writeln();
writeln();
GotoXY(20,7);
readln(c);

Writeln('Ingrese el segundo numero ');
writeln();
writeln();
GotoXY(20,9);
Readln(d);

If (c>=0) and  (d>=0) Then
  Begin
  GotoXY(20,12);
  writeln('La Funcion de Ackerman es A(',c,';',d,')=',a(c,d))
  End
Else Writeln('Dije Enteros no Negativos');
Readkey;

End.