Você está aqui: Cards de AutoCAD Civil 3D |
||
|
||
|
|
||
LISP ::: Desafios e Lista de Exercícios Resolvidos ::: Lisp Básico |
Exercícios Resolvidos de Lisp - Como multiplicar dois números em Lisp - Escreva um programa em Lisp para ler dois números inteiros informadosQuantidade de visualizações: 2099 vezes |
|
Exercício Resolvido de Lisp - Como multiplicar dois números em Lisp - Escreva um programa em Lisp para ler dois números inteiros informados Pergunta/Tarefa: Escreva um programa Common Lisp que solicita ao usuário dois números inteiros e mostre a multiplicação dos dois valores, ou seja, o primeiro valor multiplicado pelo segundo. Sua saída deverá ser parecida com: Informe o primeiro valor: 3 Informe o segundo valor: 7 3 vezes 7 é 21 Veja a resolução completa para o exercício em Common Lisp usando o compilador Steel Bank Common Lisp (SBCL), comentada linha a linha:
; Vamos definir as variáveis que vamos
; usar no programa
(defvar n1)
(defvar n2)
(defvar produto)
; Este o programa principal
(defun Multiplicacao()
; 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 multiplicação dos
; dois valores informados
(setq produto (* n1 n2))
; E mostramos o resultado
(format t "~D vezes ~D é ~D" n1 n2
produto)
)
; Auto-executa a função Multiplicacao()
(Multiplicacao)
|
Delphi ::: Dicas & Truques ::: Matemática e Estatística |
Como obter o maior entre dois valores usando a função Max() do DelphiQuantidade de visualizações: 16230 vezes |
A função Max(), presente na unit Math é útil quando precisamos retornar o maior entre dois valores fornecidos. Veja um exemplo:
procedure TForm2.Button1Click(Sender: TObject);
var
a, b, maior: Integer;
begin
// uses Math
a := 34;
b := 17;
maior := Max(a, b);
// exibe o resultado
ShowMessage('O maior valor é: ' + IntToStr(maior));
end;
Note que a função Max() é uma função sobrecarregada, ou seja, os valores fornecidos e o retorno da função podem ser do tipo Integer, Int64, Single, Double ou Extended. Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009. |
C ::: Desafios e Lista de Exercícios Resolvidos ::: Arrays e Matrix (Vetores e Matrizes) |
Exercícios Resolvidos de C - Como retornar o primeiro elemento de um vetor em CQuantidade de visualizações: 533 vezes |
|
Pergunta/Tarefa: Dado o vetor: [9, 5, 3, 2, 4, 8] Escreva um programa C que mostra como acessar e retornar o primeiro elemento de um vetor (array) em C. Sua saída deverá ser parecida com: O primeiro elemento do array é: 9 Veja a resolução comentada deste exercício usando C:
#include <stdio.h>
#include <stdlib.h>
// função principal do programa
int main(int argc, char *argv[]){
// vamos criar um array de inteiros
int valores[] = {9, 5, 3, 2, 4, 8};
// agora vamos retornar o primeiro elemento do vetor
int primeiro = valores[0];
// e mostramos o resultado
printf("O primeiro elemento do array é: %d", primeiro);
printf("\n\n");
system("PAUSE");
return 0;
}
|
Delphi ::: Dicas & Truques ::: Arquivos e Diretórios |
Como verificar a existência de um diretório usando a função DirectoryExists() do DelphiQuantidade de visualizações: 13292 vezes |
Em algumas situações precisamos saber se um diretório já existe, talvez para evitar que nosso código tente criar um diretório com o mesmo caminho e nome. Em Delphi isso pode ser feito com o auxílio da função DirectoryExists() da unit SysUtils. Esta função recebe uma string contendo o nome do diretório a ser pesquisado e retorna true se o diretório existir e false em caso contrário. Veja o exemplo:
procedure TForm1.Button1Click(Sender: TObject);
var
diretorio: string;
begin
// diretório que queremos verificar a existência
diretorio := 'C:\arquivo de codigos';
// vamos verificar se o diretório existe
if DirectoryExists(diretorio) then
ShowMessage('O diretório existe')
else
ShowMessage('O diretório NÃO existe');
end;
Note que a unit FileCtrl também contém uma função chamada DirectoryExists(). Porém, esta função foi considerada ultrapassada. Dê preferência àquela da unit SysUtils. Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009. |
Python ::: Desafios e Lista de Exercícios Resolvidos ::: Laços de Repetição |
Exercícios Resolvidos de Python - Como converter de binário para decimal em Python usando o laço forQuantidade de visualizações: 691 vezes |
|
Pergunta/Tarefa: Escreva um programa Python que usa o laço for para converter um número binário (como uma String) em sua representação decimal (como um int). Peça ao usuário para informar um número binário e mostre o mesmo em decimal (como um int). Sua solução deve obrigatoriamente usar o laço for. Sua saída deverá ser parecida com: Informe um número binário: 1100 A representação decimal do valor binário 1100 é 12 Veja a resolução comentada deste exercício usando Python:
# vamos importar o módulo Math
import math
# função principal do programa
def main():
# vamos ler o número binário (como uma String)
binario = input("Informe um número binário: ")
decimal = 0 # guarda a representação decimal
# vamos percorrer todos os dígitos do número binário começando do início
expoente = len(binario) - 1
for i in range(0, len(binario)):
# converte o caractere atual para inteiro
temp = int(binario[i])
decimal = decimal + (temp * int(math.pow(2, expoente)))
# reduz o expoente
expoente = expoente - 1
# mostramos o resultado
print("A representação decimal do valor binário {0} é {1}".format(
binario, decimal))
if __name__== "__main__":
main()
|
Mais Desafios de Programação e Exercícios e Algoritmos Resolvidos de Python |
Veja mais Dicas e truques de Python |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |





