Lista de Algoritimos

Algoritmos e Programação

Lista de Algoritmos - Engenharia de Produção

1.Faça um algoritmo para ler um número e mostrar se ele é par ou ímpar.
Resposta:
Var
Numero: inteiro;
Inicio
Escreva (“Digite um numero”);
Leia (numero);
Se (numero mod 2 = 0) então
Escreva (“Este número é par”);
Se não
Escreva (numero “Este número é impar”);
Fimse
Final

2.Dado o algoritmo abaixo, qual o valor de x mostrado ao final? inicio inteiro x; x  3 se (x>4) então x  2 * x fimse x  x +1 escreva (“x =”, x) fim Resposta: O valor de “x” é 4 (quatro), pois não entra na condição do “se”. Então xx+1.

3.Desenvolva um algoritmo para calcular e mostrar o valor de compra de acordo com a tabela: valor desconto até R$1000,00 10% de R$ 1001,00 a R$5000,00 20% acima de R$5000,00 30%

Resposta:
Var
Compra: Real;
Inicio
Escreva (“Digite o valor da compra”);
Leia (compra);
Se (compra >0) e (compra =1001) e (compra 5000) então
Compra compra – ( compra *0,3);
Escreva (“Você terá 30% de desconto, sua compra ficará em”, compra);
Senão
Escreva (“Valor de compra invalido”);
Fimse
Final

4.Leia um código de cinco algarismos (variável Código) e gere o digito verificador (DigitoV) módulo 7 para o mesmo. Supondo que os cinco algarismos do código são ABCDE, uma forma de calcular o dígito desejado, com módulo 7 é:
DigitoV = resto da divisão de S por 7, onde
S = 6*A + 5*B + 4*C + 3*D + 2*E
Var
A,B,C,D,E, DigitoV, Soma, Original: inteiro;
Inicio
Escreva (“Escreva um código de cinco algarismos”);
Leia (Original);
AOriginal / 10000;
BOriginal mod 10000 / 1000;
COriginal mod 10000 mod 1000 / 100;
DOriginal mod 10000 mod 1000 mod 100 / 10;
EOriginal mod 10000 mod 1000 mod 100 mod 10 / 1;
Soma  6*A+ 5*B+4*C +3*D+2*E;
DigitoV  Soma mod 7;

Imprime (“Valor do DigitoV =” DigitoV);
Final

5.Faça um programa que receba o valor da venda, escolha a condição de pagamento no menu e mostre o total da venda final