 |
|
Você está aqui: Lisp ::: Dicas & Truques ::: Struct (Estruturas, Registros) |
Como criar estruturas em LISPQuantidade de visualizações: 276 vezes |
|
A linguagem LISP (incluindo a implementação ANSI Common Lisp e a AutoLISP, a versão LISP para o AutoCAD) permite, como a maioria das linguagens de programação, a criação de estruturas. Uma estrutura é um tipo de dados definida pelo usuário, e que permite o agrupamento de dados de tipos diferentes. Podemos pensar em estruturas como se fosse um registro. Na verdade, as linguagens Pascal e Delphi mantém um tipo de dados chamado record. Assim, uma estrutura "aluno" poderia agrupar a matrícula do aluno, o seu nome, sua idade, seu curso, etc, cada informação sendo de um tipo de dados diferente. Como usar a macro defstruct da LISP para criar estruturas A definição de estruturas na linguagem LISP é feita por meio da macro defstruct. Veja, por exemplo, um trecho de código que cria uma estrutura chamada produto: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
; Vamos definir a estrutura produto
(defstruct produto
codigo
nome
preco
)
; Esta é a função principal
(defun principal()
; vamos declarar as variáveis locais que precisamos
(let ((p))
; vamos criar uma nova instância da estrutura produto
(setq p (make-produto :codigo 45 :nome "Arroz Tipo 1"
:preco 8.23))
; E mostramos o resultado
(princ "Os dados do produto são:")
(terpri)
(princ p)
)
)
; Auto-executa a função principal()
(principal)
Ao executar este código LISP nós teremos o seguinte resultado: Os dados do produto são: #S(PRODUTO :CODIGO 45 :NOME Arroz Tipo 1 :PRECO 8.23) Note como usamos a função make-produto para criar um novo objeto da estrutura produto. Esta função é um construtor criado implicitamente pela linguagem para que possamos criar as novas instâncias da estrutura. Se você observar bem o código anterior você verá que exibimos todo o conteúdo da estrutura produto por meio da variável p. Porém, haverá situações nas quais queremos exibir os valores individuais dos atributos. Veja: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
; Vamos definir a estrutura produto
(defstruct produto
codigo
nome
preco
)
; Esta é a função principal
(defun principal()
; vamos declarar as variáveis locais que precisamos
(let ((p))
; vamos criar uma nova instância da estrutura produto
(setq p (make-produto :codigo 45 :nome "Arroz Tipo 1"
:preco 8.23))
; E mostramos o resultado
(format t "O código do produto é ~D" (produto-codigo p))
(format t "~%O nome do produto é ~S" (produto-nome p))
(format t "~%O preço do produto é ~S" (produto-preco p))
)
)
; Auto-executa a função principal()
(principal)
Ao executarmos esta nova versão do código LISP nós teremos o seguinte resultado: O código do produto é 45 O nome do produto é "Arroz Tipo 1" O preço do produto é 8.23 Finalmente, o valor dos atributos das instância de uma estrutura LISP podem ser modificados da seguinte forma: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
; Vamos definir a estrutura produto
(defstruct produto
codigo
nome
preco
)
; Esta é a função principal
(defun principal()
; vamos declarar as variáveis locais que precisamos
(let ((p))
; vamos criar uma nova instância da estrutura produto
(setq p (make-produto :codigo 45 :nome "Arroz Tipo 1"
:preco 8.23))
; Vamos mostrar o código do produto
(format t "O código do produto é ~D" (produto-codigo p))
; Vamos modificar o código do produto
(setf (produto-codigo p) 87)
; E mostramos o novo código
(format t "~%O novo código do produto é ~D" (produto-codigo p))
)
)
; Auto-executa a função principal()
(principal)
Ao executar esta versão final do código nós teremos: O código do produto é 45 O novo código do produto é 87 |
 Link para compartilhar na Internet ou com seus amigos: |
Lisp ::: Desafios e Lista de Exercícios Resolvidos ::: Lisp Básico |
Exercícios Resolvidos de Lisp - Como somar dois números em Lisp - Escreva um programa Lisp que leia dois números e mostre a sua somaQuantidade de visualizações: 1361 vezes |
|
Exercício Resolvido de Lisp - Como somar dois números em Lisp - Escreva um programa Lisp que leia dois números e mostre a sua soma Pergunta/Tarefa: Escreva um programa Common Lisp que solicita ao usuário dois números inteiros e mostre a sua soma. Sua saída deverá ser parecida com: Informe o primeiro valor: 2 Informe o segundo valor: 8 A soma é 10 Veja a resolução completa para o exercício em Common Lisp usando o compilador Steel Bank Common Lisp (SBCL), comentada linha a linha: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- ; Vamos definir as variáveis que vamos ; usar no programa (defvar n1) (defvar n2) (defvar soma) ; Este o programa principal (defun Soma() ; Vamos ler o primeiro valor (princ "Informe o primeiro valor: ") ; talvez o seu compilador não precise disso (force-output) (setq n1 (read)) ; Vamos ler o segundo valor (princ "Informe o segundo valor: ") ; talvez o seu compilador não precise disso (force-output) (setq n2 (read)) ; Agora vamos efetuar a soma dos dois números (setq soma (+ n1 n2)) ; E mostramos o resultado (format t "A soma é ~D" soma) ) ; Auto-executa a função Soma() (Soma) |
Lisp ::: Desafios e Lista de Exercícios Resolvidos ::: Estruturas de Controle |
Exercícios Resolvidos de LISP - Um programa que lê duas notas, calcula a média aritmética e exibe uma mensagem de reprovado, exame ou aprovadoQuantidade de visualizações: 376 vezes |
|
Pergunta/Tarefa: Escreva um programa LISP ou Common Lisp que leia duas notas (como double ou float), calcule e mostre a média aritmética e uma mensagem de acordo com as seguintes regras: 1) Se a média for inferior a 4,0 escreva "Reprovado"; 2) Se a média for igual ou superior a 4,0 e inferior a 7,0 escreva "Exame"; 3) Se a média for igual ou superior a 7,0 escreva "Aprovado". Sua saída deverá ser parecida com: Informe a primeira nota: 8 Informe a segunda nota: 7.4 A média obtida foi: 7.7 Aprovado Veja a resolução comentada deste exercício usando Common Lisp (a padronização da linguagem LISP): ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
; Algoritmo LISP para calcular a média de um aluno
; variáveis que vamos usar no programa
(let ((n1)(n2)(media))
; vamos solicitar as duas notas do aluno
(princ "Informe a primeira nota: ")
(force-output)
(setq n1 (read))
(princ "Informe a segunda nota: ")
(force-output)
(setq n2 (read))
; vamos calcular a média aritmética
(setq media (/ (+ n1 n2) 2))
(format t "A média obtida foi ~F" media)
; vamos verificar se o aluno foi reprovado, está de exame ou aprovado
(cond
((< media 4.0) ; reprovado
(format t "~%Reprovado"))
((and (>= media 4.0)(< media 7.0)) ; exame
(format t "~%Exame"))
(t (format t "~%Aprovado"))
)
)
|
Lisp ::: Dicas & Truques ::: Matemática e Estatística |
Como calcular MMC em Lisp - Como calcular o Mínimo Múltiplo Comum na linguagem LispQuantidade de visualizações: 757 vezes |
|
O Mínimo Múltiplo Comum (MMC), ou LCM (Least Common Multiple) é um tipo de operação matemática utilizada para encontrar o menor número positivo, diferente de 0 (zero), que é múltiplo ao mesmo tempo de dois ou mais números. O MMC é utilizado, por exemplo, na soma e subtração de frações - quando é necessário um denominador comum. Nesta dica mostrarei como podemos calcular o MMC de dois números inteiros informados pelo usuário. Veja o código Common Lisp completo: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
; variáveis que vamos usar no programa
(let ((num1)(num2)(maior)(mmc))
; Vamos ler o primeiro número
(princ "Informe o primeiro número: ")
; talvez o seu compilador não precise disso
(force-output)
; atribui o valor lido à variável num1
(setq num1 (read))
; Vamos ler o segundo número
(princ "Informe o segundo número: ")
; talvez o seu compilador não precise disso
(force-output)
; atribui o valor lido à variável num2
(setq num2 (read))
; agora escolhemos o maior número
(cond ((> num1 num2)(setq maior num1))
(t (setq maior num2))
)
; e entramos em um laço loop
(loop
; testa se o maior é divisível por num1 e por num2
(cond ((and (= 0 (rem maior num1))(= 0 (rem maior num2)))
; mmc recebe o maior e sai do laço
(setq mmc maior)(return)))
; incrementa o valor da variável maior
(setq maior (+ maior 1))
)
; mostra o resultado
(format t "O MMC dos dois números é ~D" mmc)
)
Ao executarmos este código Common Lisp nós teremos o seguinte resultado: Informe o primeiro número: 6 Informe o segundo número: 3 O MMC dos dois números é: 6 Note que a linguagem Common Lisp possui uma função LCM() que permite calcular o MMC de dois ou mais números. Minha intenção com essa dica foi mostrar como o cálculo do MMC é feito em Common Lisp. |
Vamos testar seus conhecimentos em |
| Dimensionamento de pilares intermediários Uma das primeiras etapas ao desenvolver um projeto estrutural é a concepção estrutural. Nessa etapa, é necessário estimar a dimensão dos elementos estruturais e o pré-dimensionamento com base na NBR 6118/2014. O engenheiro Thiago foi convidado para pré-dimensionar um pilar intermediário de concreto armado. A seguir, os cuidados tomados por ele: I. O pilar intermediário foi calculado com base na força atuante centrada. II. No pilar intermediário, não foi calculado o momento de 2ª ordem. III. O pilar foi calculado como pilar de canto. Thiago procedeu corretamente em: A) I, apenas. B) I e II, apenas. C) II, apenas. D) I e III, apenas. E) II e III, apenas. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Fundações |
| Fundações profundas Fundações profundas podem ser classificadas de diferentes maneiras. Uma forma de distinguir os diferentes tipos de estaca é pelo material empregado em sua composição. Com base no exposto, assinale com V (verdadeiro) ou F (falso) as proposições a seguir, sobre estacas de madeira. ( ) A madeira em contato com o oxigênio do ar tende a apresentar fungos que inibem a deterioração do material. ( ) As estacas de madeira apodrecem rapidamente se mantidas permanentemente debaixo d'água. ( ) No Brasil, estacas de madeira são amplamente utilizadas de forma permanente em obras comerciais e residenciais. Assinale a alternativa que indica, de cima para baixo, a ordem correta. A) V, F, F. B) V, V, V. C) F, F, F. D) F, F, V. E) V, V, F. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Fenômeno de Transportes e Hidráulica |
| O manômetro Um manômetro é o instrumento utilizado para medir a pressão de fluidos contidos em recipientes fechados. O manômetro para medição da pressão absoluta é usado quando pressões devem ser medidas, independentemente da pressão atmosférica. A pressão do meio medido é determinada contra uma pressão de referência, sendo que esta última corresponde ao ponto zero da pressão absoluta. Nesse contexto, determine a pressão manométrica em P devido à deflexão do mercúrio do manômetro em U da figura a seguir.  A) Aproximadamente 77kPa. B) Aproximadamente 89kPa. C) Aproximadamente 94kPa. D) Aproximadamente 106kPa. E) Aproximadamente 111kPa. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Ética e Legislação Profissional |
| Ética profissional, social, política Como se lê nas obras de Platão e Aristóteles, existe uma diferença constantemente remarcada em relação a certas dimensões estritamente teóricas e práticas. Ao passo que Platão preza pela dimensão mais reminiscente em relação às virtudes éticas, Aristóteles vê essa dimensão humana de outro modo. "Estas ciências práticas, de fato, dizem respeito à conduta dos homens, bem como ao fim que através dessa conduta eles querem alcançar, seja enquanto indivíduos, seja enquanto fazendo parte de uma sociedade, sobretudo da sociedade política" (REALE, 1994, p. 405). A respeito do trecho citado, assinale a alternativa correta: A) O indivíduo ético busca alcançar as suas virtudes independentemente das ações alheias. B) A ética é um exercício tanto individual quanto coletivo. C) A ética deve ser exercida apenas enquanto exercício político. D) Na vida em sociedade, a ética atinge apenas a dimensão do todo. E) A ética existe enquanto código e ultrapassa as microrrelações sociais. Verificar Resposta Estudar Cards Todas as Questões |
Vamos testar seus conhecimentos em Hidrologia |
(CEBRASPE - 2024 - ITAIPU - Técnico em Hidrologia) A tabela a seguir apresenta os dados de precipitação mensal, com as respectivas quantidades de ocorrência, coletados em um posto de meteorologia, ao longo de determinado período. A partir dos dados da tabela, é correto afirmar que a média ponderada da precipitação, no período de coleta, foi: A) inferior a 1.000 mm. B) superior a 1.000 mm e inferior a 1.500 mm. C) superior a 1.500 mm e inferior a 2.000 mm. D) superior a 2.000 mm e inferior a 2.500 mm. E) superior a 2.500 mm. Verificar Resposta Estudar Cards Todas as Questões |
Veja mais Dicas e truques de Lisp |
Dicas e truques de outras linguagens |
Códigos Fonte |
 Software de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimentoDiga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais |
 Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidadesTenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais |
Linguagens Mais Populares |
|
1º lugar: Java |
