Rompecompiladores Ackerman

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 4.371 ]

Download ACKERMAN.PAS




Este programa implementa el algoritmo (recursivo) del rompecompiladores
Ackerman

  



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.

Scripts recomendados

Array de números aleatórios não-repetidos de um intervalo em Pascal

Matrizes

programa pra somar e tirar média

Calculadora completa com porcentagem(Lazarus)

Fatorial


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts