Logica De Programação

1. Elabore um algoritmo que leia um número e imprima uma das mensagens: é múltiplo de 3, ou, não é múltiplo de 3.

algoritmo "exerc1"

var

n : inteiro

inicio

escreva("Digite um número inteiro : ")

leia(n)

se (n%3)=0 entao

escreva("É múltiplo de 3!!")

senao

escreva("Não é múltiplo de 3!!")

fimse

fimalgoritmo

2. Desenvolva um algoritmo que classifique um número de entrada fornecido pelo usuário como par ou ímpar.

algoritmo "exerc2"

var

n : inteiro

inicio

escreva("Digite um número inteiro : ")

leia(n)

se (n%2)=0 entao

escreva("O número ", n, " é par!!")

senao

escreva("O número ", n, " é ímpar!!")

fimse

fimalgoritmo

3. Elabore um algoritmo que leia um número, e se ele for maior do que 20, imprimir a metade desse número.

algoritmo "exerc3"

var

n : inteiro

inicio

escreva("Digite um número inteiro : ")

leia(n)

se (n>20) entao

escreva("A metade do número ", n, " é ", n/2, "!!")

senao

escreva("O número é menor do que 20!!")

fimse

fimalgoritmo

4. Elabore um algoritmo que leia dois números inteiros e efetue a adição; caso o resultado seja maior que 10, imprima-o.

algoritmo "exerc4"

var

n1, n2, n3 : inteiro

inicio

escreva("Digite o primeiro número inteiro : ")

leia(n1)

escreva("Digite o segundo número inteiro : ")

leia(n2)

n3 <- n1 + n2

se (n3>10) entao

escreva("A soma dos números é ", n3, "!!")

fimse

fimalgoritmo

5. Elabore um algoritmo que leia um número e, se ele for positivo, imprima a metade desse número, caso contrário imprima o número ao quadrado.

algoritmo "exerc1"

var

n1 : inteiro

inicio

escreva("Digite um número inteiro : ")

leia(n1)

se (n1>=0) entao

escreval("Número positivo!!")

escreva("A metade do número é ", n1/2, "!!")

senao

escreval("Número negativo!!")

escreva("O número elevado ao quadrado é ", n1^2, "!!")

fimse

fimalgoritmo

6. O sistema de avaliação de determinada disciplina é composto por três provas. A primeira prova tem peso 2, a segunda tem peso 3 e a terceira tem peso 5. Considerando que a média para aprovação é 7.0, Faça um algoritmo para calcular a média final de um aluno desta disciplina e dizer se o aluno foi aprovado ou não.

algoritmo "exerc6"

var

p1, p2, p3, media : real

inicio

escreva("Digite a primeira nota : ")

leia(p1)

escreva("Digite a segunda nota : ")

leia(p2)

escreva("Digite a terceira nota : ")

leia(p3)

media <- p1*2 + P2*3 + p3*5

media <- media/10

escreval("Média do aluno é ", media)

se (media>=7) entao

escreva("Aluno Aprovado!!")

senao

escreva("Aluno Reprovado!!")

fimse

fimalgoritmo

7. Elabore um algoritmo que leia dois números e responda se a divisão do primeiro pelo segundo é exata (o resto da divisão deve ser igual a 0). Se for, o algoritmo deve imprimir a mensagem “A divisão de (1o numero) por (2o número) é exata”.

algoritmo "exerc7"

var

n1, n2 : inteiro

inicio