Rompecompiladores Ackerman

Publicado por Abraham Zamudio Chauca 16/01/2006

[ Hits: 4.261 ]

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

programa pra carregear duas matrizes e achar o maior

armazenar o nome de um aluno e suas notas

Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius

Cáculo de Fatorial, utilizando-se de Repeat - Until

Mcd de una serie de numeros


  

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