Rompecompiladores Ackerman

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 4.370 ]

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

registro de turma com record

Cadastro de Passagens Aéreas

Soma dois Valores e exibe o resultado

Mcd de una serie de numeros

soma de um intervalo


  

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