Rompecompiladores Ackerman
Publicado por Abraham Zamudio Chauca 16/01/2006
[ Hits: 4.376 ]
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 lê nome (básico) - Pascal para iniciantes
Calculadora de décimo terceiro no Lazarus
média dos numeros informados em posiçoes pares em um vetor
Cálculadora de décimo terceiro
Nenhum coment�rio foi encontrado.
Aprenda a Gerenciar Permissões de Arquivos no Linux
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Aplicativo simples para gravar tela
Quebra de linha na data e hora no Linux Mint
tentando instalar em um notebook antigo o Linux LegacyOS_2023... [RESO... (8)
Problema com Conexão Outlook via Firewall (OpenSUSE) com Internet Fibr... (5)