Rompecompiladores Ackerman
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 4.468 ]
Este programa implementa el algoritmo (recursivo) del rompecompiladores
Ackerman
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.
Existência de triângulo, em Pascal
dizer se o aluno passou ou nao
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?









