Rompecompiladores Ackerman
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 4.464 ]
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.
Visualizador de imagem Pascal/Lazarus
armazenar estoque em uma matriz
Nenhum comentário foi encontrado.
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
Novos apps de produtividade, avanços em IA e distros em ebulição agitam o universo Linux
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
É normal não gostar de KDE? (9)
Linux é a solução para o fim do Windows10? (2)
Problemas com Driver NVIDIA (4)









