Exemplo 41

==============================================================

Escreva um algoritmo para ler 2 valores e se o segundo valor informado for ZERO, deve ser lido

um novo valor, ou seja, para o segundo valor não pode ser aceito o valor zero e imprimir o resultado

da divisão do primeiro valor lido pelo segundo valor lido. (utilizar a estrutura REPITA).

==============================================================

var

valor1,valor2:inteiro

inicio

// Seção de Comandos

escreval("Entre com o primeiro valor ")

leia(valor1)

repita

   escreval("Entre com o segundo valor")

   leia(valor2)

ate(valor2<>0)

escreval("Resultado da divisao : ",valor1/valor2)

fimalgoritmo

==============================================================

Exemplo 40

==============================================================

Algoritmo para  verificar o tipo do Triangulo"

==============================================================

// Seção de Declarações

var

ladoA,ladoB,ladoC:real

inicio

// Seção de Comandos

escreval("Entre com lado do triangulo ")

leia(ladoA)

escreval("Entre com lado do triangulo ")

leia(ladoB)

escreval("Entre com lado do triangulo ")

leia(ladoC)

se ((a < b+c) e (b

  

   se (a=b) e (b=c) entao

      escreval("Triângulo Equilátero ")

   senao

        se (a=b) ou (b=c) ou (a=c) entao

           escreval("Triângulo Isósceles ")

        senao

           escreval("Triângulo Escaleno ")

        fimse

    fimse

senao

    escreval("Não e possível formar um triângulo")

fimse

fimalgoritmo

==============================================================

Exemplo 39

==============================================================

Uma empresa quer verificar se um empregado está qualificado para a aposentadoria ou não. Para

estar em condições, um dos seguintes requisitos deve ser satisfeito:

- Ter no mínimo 65 anos de idade.

- Ter trabalhado no mínimo 30 anos.

- Ter no mínimo 60 anos e ter trabalhado no mínimo 25 anos.

Com base nas informações acima, faça um algoritmo que leia: o número do empregado (código), o ano de seu nascimento e o ano de seu ingresso na empresa. O programa deverá escrever a idade e o tempo de trabalho do empregado e a mensagem 'Requerer aposentadoria' ou 'Não requerer'.

==============================================================

 // Seção de Declarações

var

ano,idade,tempoTrabalho,codigo:inteiro

inicio

// Seção de Comandos

ano <- 2011

escreval("Entre com seu codigo: ")

leia(codigo)

escreval("Entre com a data de nascimento: ")

leia(idade)

escreval("Entre com o Ano de ingresso na empresa: ")

leia(tempoTrabalho)

se( ano-idade >= 16 )entao

      se(ano-idade >= 65)entao

         escreval("Requerer Aposentadoria ")

      senao

           se(ano-tempoTrabalho >= 30)entao

              escreval("Requerer Aponsentadoria ")

           senao

              se((ano-idade >= 60) e (ano-tempoTrabalho >= 25) )entao

                 escreval("Requerer Aponsentadoria ")

              senao

                 escreval("Nao Requerer Aponsentadoria ")

              fimse

           fimse

      fimse

senao

     escreval("Voce não tem idade para trabalhar ")

fimse

fimalgoritmo

==============================================================

Exemplo 38

==============================================================

Faça um algoritmo para ler as 3 notas obtidas por um aluno nas 3 verificações e a média dos

exercícios que fazem parte da avaliação. Calcular a média de aproveitamento, usando a fórmula abaixo e escrever o conceito do aluno de acordo com a tabela de conceitos mais abaixo:

Média_de_Aproveitamento =(N1 + N2 * 2 + N3 * 3 + Média_dos_Exercícios)/7

A atribuição de conceitos obedece a tabela abaixo:

Média de Aproveitamento Conceito

> = 9,0: A

> = 7,5 e < 9,0: B

> = 6,0 e < 7,5 :C

< 6,0 :D

==============================================================

// Seção de Declarações

var

nFinal,nota1,nota2,nota3,exercicios:real

matricula:literal

inicio

// Seção de Comandos

escreval("Entre com a Matricula:")

leia (matricula)

escreval("Entre com a nota 1:")

leia(nota1)

escreval("Entre com a nota 2:")

leia(nota2)

escreval("Entre com a nota 3:")

leia(nota3)

escreval("Entre com a Media dos Exercicios")

leia(exercicios)

nFinal<- (nota1+2*nota2+3*nota3+exercicios) / 7

escreval("Matricula : ",matricula)

se(nFinal>=9)entao

escreval("Conceito A")

fimse

se((nFinal>=7.5) e (nFinal<9))entao

escreval("Conceito B")

fimse

se((nFinal>=6) e (nFinal<7.5))entao

escreval("Conceito C")

fimse

se(nFinal<6)entao

escreval("Conceito D")

fimse

fimalgoritmo

==============================================================

Exemplo 37

==============================================================
Faça um algoritmo para ler: a descrição do produto (nome), a quantidade adquirida e o preço

unitário. Calcular e escrever o total (total = quantidade adquirida * preço unitário), o desconto e o total a pagar (total a pagar = total - desconto), sabendo-se que:

- Se quantidade <= 5 o desconto será de 2%

- Se quantidade > 5 e quantidade <=10 o desconto será de 3%

- Se quantidade > 10 o desconto será de 5%

==============================================================

// Seção de Declarações

var

produto:caracter

quantidade:inteiro

preco,total,total_a_pagar,desc_menor_5,desc_menor_10,desc_maior_10,desconto:real

inicio

// Seção de Comandos

      desc_menor_5 <- 0.02

      desc_menor_10 <- 0.03

      desc_maior_10 <- 0.05

      escreval("Nome do Produto:")

      leia(produto)

      escreval("Quantidade :")

      leia(quantidade)

      escreval("Preco Unitario:")

      leia(preco)

      total <- quantidade * preco

// Calculando desconto

      se (quantidade <= 5) entao

         desconto <- total * desc_menor_5

      fimse

// Calculando desconto

      se (quantidade > 5) e (quantidade <= 10) entao

         desconto <- total * desc_menor_10

      fimse

// Calculando desconto

      se(quantidade > 10) entao

         desconto <- total * desc_maior_10

      fimse

     

      escreval("Produto : ",produto)

      escreval("Preco unitário : ",preco)

      escreval("Total : ",total)
      escreval("Desconto: ",desconto)
      escreval("Total a pagar: ",total - desconto)

fimalgoritmo

==============================================================