Rompecompiladores Ackerman
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 4.449 ]
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.
Nenhum comentário foi encontrado.
Wayland em alta, IA em debate e novos ventos para distros e devices
Qt 6.10 e Python 3.14 puxam o ritmo do software livre nesta quarta
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
queria saber como instalar o android power tools igual ao winux no lin... (7)
Como listar os arquivos em "bloquin... [RESOLVIDO] (6)
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (2)