UNIVERSIDADE ESTADUAL VALE DO ACARAÚCurso de Ciências MatemáticasDisciplina: Introdução à ComputaçãoProf. Hudson Costa

EXERCÍCIOS RESOLVIDOS – algoritmos seqüenciais e com estruturas de seleção

1. Faça um algoritmo que leia um número inteiro e que imprima o seu sucessor e seu antecessor.

INICIONUMERO, SUC, ANT: INTEIRO;

ESCREVA(“INFORME UM NÚMERO: ”);LEIA(NUMERO);ANT <- NUMERO – 1;SUC <- NUMERO + 1;ESCREVA(“O NUMERO ANTERIO É ”, ANT, “ E O NÚMERO SUCESSOR É ”, SUC);FIM.

2. Faça um algoritmo que leia quatro números informados pelo usuário e que depois imprima amédia ponderada, sabendo-se que os pesos são respectivamente: 1, 2, 3 e 4:

INICIOA, B, C, D, MP: REAL;ESCREVA(“INFORME O 1O NÚMERO: ”);LEIA(A);ESCREVA(“INFORME O 2O NÚMERO: ”);LEIA(B);ESCREVA(“INFORME O 3O NÚMERO: ”);LEIA(C);ESCREVA(“INFORME O 4O NÚMERO: ”);LEIA(D);MP <- (A*1 + B*2 + C*3 + D*4)/10;ESCREVA(“A MÉDIA PONDERADA É: ”, MP);FIM.

3. Antes do racionamento de energia ser decretado, quase ninguém falava em quilowatts; masagora, todos incorporaram essa palavra em seu vocabulário. Sabendo-se que 100 quilowattsde energia custa um sétimo do salário mínimo, fazer um algoritmo que receba o valor dosalário mínimo e a quantidade de quilowatts gasta por uma residência e calcule:

- O valor em reais de cada quilowatt;- O valor em reais a ser pago;- O novo valor a ser pago por essa residência com um desconto de 10%.

INICIOSM, QTDADE, PRECO, VP, VD: REAL;ESCREVA(“INFORME O VALOR DO SALARIO MINIMO: ”);LEIA(SM);ESCREVA(“INFORME A QUANTIDADE DE QUILOWATTS: ”);LEIA(QTDADE);PRECO <- SM/700;VP <- PRECO* QTDADE;VD <- VP * 0,9;ESCREVA(“PRECO DO QUILOWATT: ”, PRECO);ESCREVA(“VALOR A SER PAGO: ”, VP);ESCREVA(“VALOR COM DESCONTO: ”, VD);FIM.

4. Faça um algoritmo que o usuário informe os valores dos catetos de um triângulo retângulo eque ao final escreva a sua hipotenusa.

INICIOA, B, C: REAL;

ESCREVA(“INFORME O 1O CATETO: ”);LEIA(A);ESCREVA(“INFORME O 2O CATETO: ”);LEIA(B);C <- 2//A**2 + B**2;ESCREVA(“O VALOR DA HIPOTENUSA É: ”, C);FIM.

5. Em épocas de pouco dinheiro, os comerciantes estão procurando aumentar suas vendasoferecendo desconto. Faça um algoritmo que possa receber um valor de um produto e queescreva o novo valor tendo em vista que o desconto foi de 9%.

INICIOPRECO, NPRECO: REAL;ESCREVA(“INFORME O VALOR DO PRODUTO: ”);LEIA(PRECO);NPRECO <- PRECO * 0,91;ESCREVA(“PRECO COM DESCONTO: ”, NPRECO);FIM.

6. Faça um algoritmo que efetue o cálculo da quantidade de litros de combustível gastos em umaviagem, sabendo-se que o carro faz 12 Km com um litro. Deverão ser fornecidos o tempogasto na viagem e a velocidade média.Utilizar as seguintes fórmulas:

12

*

distânciausadoslitros

velocidadetempodistância

=

=

O algoritmo deverá apresentar os valores da velocidade média, tempo gasto na viagem,distância percorrida e a quantidade de litros utilizados na viagem.

INICIOTEMPO, VEL, DIST, LITROS: REAL;ESCREVA(“INFORME O TEMPO GASTO: ”);LEIA(TEMPO);ESCREVA(“INFORME A VELOCIDADE MÉDIA: ”);LEIA(VEL);DIST <- TEMPO * VEL;LITROS <- DIST/12;ESCREVA(“A VELOCIDADE MÉDIA FOI ”, VEL);;ESCREVA(“O TEMPO GASTO NA VIAGEM FOI ”, TEMPO);ESCREVA(“A DISTÂNCIA PERCORRIDA FOI ”, DIST);ESCREVA(“O CONSUMO DE COMSBUTÍVEL FOI ”, LITROS);FIM.

7. Uma pessoa resolveu fazer uma aplicação em uma poupança programada. Para calcular seurendimento, ela deverá fornecer o valor constante da aplicação mensal, a taxa e o número demeses. Sabendo-se que a fórmula usada para este cálculo é:

Valor acumulado = i

iP

n1)1(

*−+

onde: i= taxa, P = aplicação mensal e n= número de meses

INICIOVA, I, P: REAL;N: INTEIRO;

ESCREVA(“INFORME O VALOR DA APLICAÇÃO: ”);LEIA(P);ESCREVA(“INFORME A TAXA (0 – 1): ”);LEIA(I);ESCREVA(“INFORME O NÚMERO DE MESES: ”);LEIA(N);VA <- P * ((1+I)**N)-1)/I;ESCREVA(“O VALOR ACUMULADO É: ”, VA);FIM.

8. Faça um algoritmo que leia um número e se ele for maior que 20, então escreva a metadedesse número.

INICIONUMERO, METADE: REAL;

ESREVA(“INFORME O NÚMERO: ”);LEIA(NUMERO);SE (NUMERO > 20) ENTAO MET <- NUMERO/2; ESCREVA(“A METADE É: ”, METADE);FIMSEFIM.

9. Faça um algoritmo que leia um número e escreva se ele é par ou impar.

INICIOA : INTEIRO;ESCREVA(“INFORME UM NÚMERO: ”);LEIA(A);SE (A MOD 2 = 0) ENTÃO ESCREVA(“NÚMERO PAR”);SENÃO ESCREVA(“NÚMERO IMPAR”);FIMSEFIM.

10. Faça um algoritmo que leia três números e que armazene numa variável o maior dos três.

INICIOA, B, C, MAX: REAL;

ESCREVA(“INFORME O 1O NÚMERO: ”);LEIA(A);ESCREVA(“INFORME O 2O NÚMERO: ”);LEIA(B);ESCREVA(“INFORME O 3O NÚMERO: ”);LEIA(C);SE (A > B) ENTAO SE (A > C) ENTAO MAX <- A; SENAO MAX <- C; FIMSESENAO SE (B > C) ENTAO MAX <- B; SENÃO MAX <- C; FIMSEFIMSEESCREVA(“O MAIOR NÚMERO É: ”, MAX);FIM.

11. Escreva um algoritmo que leia um peso na Terra e o número de um planeta e imprima o valordo seu peso neste planeta. A relação de planetas é dada a seguir juntamente com o valor dasgravidades relativas à Terra.

Nro. Gravidade relativa Planeta1 0,37 Mercúrio2 0,88 Vênus3 0,38 Marte4 2,64 Júpiter5 1,15 Saturno6 1,17 Urano

Para calcular o peso no planeta use a fórmula:

gravidadePterra

Pplaneta *10

=

INICIOOP: INTEIRO;PTERRA: REAL;ESCREVA(“ESCOLHA O PLANETA QUE VOCE QUER ANALISAR (1 – 6): ”);LEIA(OP);ESCREVA(“INFORME SEU PESO: ”);LEIA(PTERRA);ESCOLHA (OP)CASO 1: ESCREVA(“SEU PESO NO PLANETA MARCURIO É: ”, (PTERRA/10)*0.37);CASO 2: ESCREVA(“SEU PESO NO PLANETA VÊNUS É: ”, (PTERRA/10)*0.88);CASO 3: ESCREVA(“SEU PESO NO PLANETA MARTE É: ”, (PTERRA/10)*0.38);CASO 4: ESCREVA(“SEU PESO NO PLANETA JUPITER É: ”, (PTERRA/10)*2.64);CASO 5: ESCREVA(“SEU PESO NO PLANETA SATURNO É: ”, (PTERRA/10)*1.15);CASO 6: ESCREVA(“SEU PESO NO PLANETA MARCURIO É: ”, (PTERRA/10)*1.17);FIMESCOLHAFIM.

12. Construa um algoritmo que leia dois números e efetue a adição. Caso o valor somado sejamaior que 20, este deverá ser apresentado somando-se a ele mais 8; caso o valor somadoseja menor ou igual a 20, este deverá ser apresentado subtraindo-se 5.

INICIONUM1, NUM2, SOMA: REAL;ESCREVA(“DIGITE UM NUMERO: ”);LEIA(NUM1);ESCREVA(“DIGITE OUTRO NUMERO: ”);LEIA(NUM2);SOMA <- NUM1 + NUM2;SE (SOMA > 20) ENTAOESCREVA(“SOMA: ”, SOMA + 8);SENAOESCREVA(“SOMA: ”, SOMA - 5);FIMSEFIM

13. Faça um algoritmo onde o usuário informa um número e o algoritmo verifica se o mesmo édivisível por 10, por 5, por 2 ou se não é divisível por nenhum destes.

INICIONUMERO: INTEIRO;ESCREVA (“INFORME UM NÚMERO: ”);LEIA(NUMERO);SE (NÚMERO MOD 10 = 0) ENTAO ESCREVA(“MÚLTIPLO DE 10!”); SENAO SE (NÚMERO MOD 2 = 0) ENTAO ESCREVA(“MÚLTIPLO DE 2!”); SENAO SE (NÚMERO MOD 5 = 0) ENTAO ESCREVA(“MÚLTIPLO DE 5!”); SENAO ESCREVA(“NÃO É MÚLTIPLO DE 10,. DE 5 OU DE 2!”); FIMSE FIMSEFIMSEFIM

14. Faça um algoritmo que receba o nome, o sexo e a idade de uma pessoa. Se a pessoa for dosexo feminino e tiver menos que 25 anos, escrever o nome e a mensagem: ACEITA. Casocontrário, escrever o nome e a mensagem: NÃO ACEITA.

INICIOIDADE: INTEIRO;NOME, SEXO: CARACTER;ESCREVA(“INFORME UM NOME: ”);LEIA(NOME);ESCREVA(“INFORME O SEXO: ”);LEIA(SEXO);ESCREVA(“INFORME A IDADE: ”);LEIA(IDADE);SE ((SEXO = FEMININO OU SEXO=F) E (IDADE < 25)) ENTAO ESCREVA(NOME, “ACEITA”);SENAO ESCREVA(NOME, “NÃO ACEITA”);FIMSEFIM

15. Faça um algoritmo que receba três números que devem ser armazenados em três variáveiscom os seguintes nomes: MAIOR, INTERMEDIÁRIO, MENOR (suponha três númerosdiferentes).

INICIOA, B, C, MAIOR, INTERMEDIARIO, MENOR: REAL;

ESCREVA(“DIGITE O 1O NÚMERO: ”);LEIA(A);ESCREVA(“DIGITE O 2O NÚMERO: ”);LEIA(B);ESCREVA(“DIGITE O 3O NÚMERO: ”);LEIA(C);SE (A > B) ENTAO SE (C > A) ENTAO MAIOR <- C; INTERMEDIARIO <- A; MENOR <- B; SENAO SE (C > B) ENTAO MAIOR <- A; INTERMEDIARIO <- C; MENOR <- B; SENAO MAIOR <- A; INTERMEDIARIO <- B; MENOR <- C; FIMSE FIMSESENAO SE (C > A) ENTAO MAIOR <- B; INTERMEDIARIO <- C; MENOR <- A; SENAO MAIOR <- B; INTERMEDIARIO <- A; MENOR <- C; FIMSEFIMSEESCREVA(“MAIOR :”, MAIOR);ESCREVA(“INTERMEDIÁRIO :”, INTERMEDIARIO);ESCREVA(“MENOR :”, MENOR);FIM.