QUESTÃO DE ALGORÍTIMOS RESPONDIDAS

QUESTÕES DE ALGORITMO

1º)  Escreva um algoritmo que leia dois números e exiba-os em ordem crescente.

var

x,y:inteiro

inicio

// Seção de Comandos

escreva("digite um numero: ")

leia(x)

escreva("digite um numero: ")

leia(y)

se(x>y) entao

escreva("a ordem e :",x,y )

      senao

escreva("a ordem e:",y,x)

      fimse

      fimalgoritmo

2º) Escreva um algoritmo que leia dois números e exiba o maior deles

            var

n1,n2:inteiro

inicio

escreva("ddigite um numero: ")

leia(n1)

escreva("ddigite um numero: ")

leia(n2)

se(n1

escreva("o maior numero e",n2)

      senao

escreva("o maior numero e ",n1)

      fimse

     fimalgoritmo

3º) Escreva um algoritmo que leia um número inteiro e determine se ele é par ou ímpar.

var

x:inteiro

inicio

// Seção de Comandos

escreva("digite um numero: ")

leia(x)

se(x mod 2=0)entao

escreva("o numero e par")

     senao

escreva("o numero e impar")

      fimse

fimalgoritmo

---

4º) Deseja-se calcular a conta de consumo de energia elétrica de um consumidor. Para isto, escreva um algoritmo que leia o código do consumidor, o preço do Kw e a quantidade de Kw consumido, e exiba ocódigo do consumidor e o total a pagar.

- total a pagar = preço x quantidade

- total a pagar mínimo = R$ 11,20

var

codconsum:inteiro

preco:real

quantidade:real

total:real

inicio

// Seção de Comandos

escreva("digite o codigo do consumidor: ")

leia(codconsum)

escreva("digite o preco do kw: ")

leia (preco)

escreva("digite a quantidade : ")

leia (quantidade)

total <- preco*quantidade

se (total>11.20)entao

escreva ("o codigo do consumidor e :" codconsum " e o total a pagar "+total)

senao

se(escreva("codigo do consumidor é"+codconsum+"e o total a pagar +11,20")

      fimse

fimalgoritmo

5º) Escreva um algoritmo para ler um número e determinar se ele é maior, igual ou menor que zero.

var

x:inteiro

inicio

// Seção de Comandos

escreva("digite um numero; ")

leia(x)

se(x>0)entao

escreva("o numero e maior que zero")

fimse

se(x = 0)entao

escreva("o numero e igual que zero")

fimse

se(x<=0)entao

escreva("o numero e menor que zero")

fimse

fimalgoritmo

---

6º) Faça um algoritmo que, dado as três notas de um aluno, determine e exiba a sua média final o seu conceito. 

Var

n1,n2,n3:inteiro

media:real

inicio

// Seção de Comandos

escreval("digite um numero; ")

leia(n2)

escreval("digite um numero; ")

leia(n3)

escreval("digite um numero; ")

leia(n1)

media <- (n1+n2+n3)/3

se(media>=8)entao

escreval("seu conceito e a")

senao

se (media>=5)e(media<8)entao

escreva("seu conceito e b")

senao

se(media<5)entao

escreva("seu conceito e c")

fimse

fimalgoritmo

7º) Escreva um algoritmo que determine o grau de obesidade de uma pessoa, sendo fornecido o peso e a altura da pessoa. O grau de obesidade é determinado pelo índice da massa corpórea (Massa = Peso /Altura2 )

var

imc,p:real

altura:real

nome: caractere

inicio

escreval ( " informe seu nome ")

leia(nome)

escreval (" Informe seu peso:")

leia(p)

escreval (" Informe sua altura:")

leia (altura)

imc <- p /(altura*altura)

se imc < 26 entao

escreval( " paciente"," ",nome, " ","IMC"," " imc," ", "abaixo do peso" )

senao

se (imc >=26) ou (imc < 30) entao

escreval( " paciente"," ",nome, " ","IMC", " ", imc," ", "normal" )

senao

se (imc >= 30)

escreval( " paciente"," ",nome, " ", "IMC"," ", imc," ", "obesidade" )

fimse

fimse

fimse

fimalgoritmo

8º) Escrever um algoritmo que leia o nome e o salário atual de um jogador, e exiba o nome, o salário atual e o salário reajustado.

var

salatual:real

nome:caractere

salreajust:real

salario:real

inicio

// Seção de Comandos

escreva("digite seu nome: ")

leia(nome)

escreva("salario atual: ")

leia(salatual)

se(salatual<=1000)entao

salreajust<-(salatual*1.2)

senao

se(salatual>1000) e (salatual<5000)entao

salreajust<-(salatual*1.1)

senao

se(salatual>5000)

salreajust <- (salatual*1)