Rompecompiladores Ackerman
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 4.400 ]
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.
Programa que realiza o reajuste salarial de acordo com o cargo
armazenar estoque em uma matriz
Calculadora Empresarial Lazarus
Editor de texto em Pascal/Lazarus
Nenhum coment�rio foi encontrado.
A arte e a prática da Disciplina a longo prazo
Topgrade - Atualize seu sistema Linux inteiro com um único comando
Customizar a Instalação do Linux Debian com Preseed
Site com diversos emojis para seus códigos
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Preciso de opiniões sobre meus programas (3)
criar alias do comando "ls -la" (14)