Rompecompiladores Ackerman

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 4.257 ]

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

Calculadora Básica

Calculadora Completa feita no Lazarus(Delphi 7 para Linux)

armazenar estoque em uma matriz

Soma dois Valores e exibe o resultado

Programa lê nome (básico) - Pascal para iniciantes


  

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