3.16 Escrever um algoritmo que lê a hora de início e hora de término de um jogo

3.16 Escrever um algoritmo que lê a hora de início e hora de término de um jogo, ambas expressas em horas e minutos. Calcular e escrever a duração do jogo, também em horas e minutos, considerando que o tempo máximo de duração de um jogo é de 24 horas e que o jogo pode iniciar em um dia e terminar no dia seguinte.

Algoritmo "EXERCICIO 3.16"

var

   hora_ini,hora_final,hora_total,minuto_ini,minuto_final,minuto_total:inteiro

inicio

   escreval("Informe a hora e o minuto inicial do jogo:")

   leia(hora_ini,minuto_ini)

   escreval("Agora informe a hora e o minuto final do jogo")

   leia(hora_final,minuto_final)

   se(hora_ini>23)entao

      escreval("*ERRO* ENTRADA DE DADOS NÃO É VÁLIDA EM HORA INICIAL ERRO")

   senao

      se(minuto_ini>59)entao

         escreval("*ERRO* ENTRADA DE DADOS NÃO É VÁLIDA EM MINUTO INICIAL ERRO")

      senao

         se(hora_final>23)entao

            escreval("*ERRO* ENTRADA DE DADOS NÃO É VÁLIDA EM HORA FINAL ERRO")

         senao

            se(minuto_final>59)entao

               escreval("*ERRO* ENTRADA DE DADOS NÃO É VÁLIDA EM MINUTO FINAL ERRO")

            senao

               se hora_ini < hora_final entao

                  hora_total<- hora_final - hora_ini

               senao

                  se (hora_ini > hora_final) entao

                     hora_total<- (hora_final + 24)- hora_ini

                  fimse

               fimse

               se minuto_ini > minuto_final entao

                  hora_total<- hora_total-1

               fimse

               se minuto_ini < minuto_final entao

                  minuto_total<- minuto_final - minuto_ini

               senao

                  se minuto_ini > minuto_final entao

                     minuto_total<- (minuto_final + 60)- minuto_ini

                  fimse

               fimse

               se ((hora_ini<=23)ou(hora_final<=23)) ou ((minuto_ini<59) ou (minuto_final<59))entao

                  escreval("O tempo de duaração do jogo foi de :",hora_total," horas e ",minuto_total," minutos")

               fimse

            fimse

         fimse

      fimse

   fimse

fimalgoritmo

3.19 - divisível por 10, por 5 ou por 2

//3.19. Escreva um algoritmo que leia um número e informe se ele é
//divisível por 10, por 5 ou por 2 ou se não é divisível por
//nenhum deles.

Algoritmo "EXERCICIO 3.19"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 07/09/2016
Var
   // Seção de Declarações das variáveis
   Num:inteiro
   AUX1,AUX2,AUX3:INTEIRO
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   ESCREVAL("DIGITE UM NUMERO::")
   LEIA(NUM)
   AUX1<-NUM MOD 10
   AUX2<-NUM MOD 5
   AUX3<-NUM MOD 2
   SE ((AUX1=0) OU (AUX2=0) OU (AUX3=0))ENTAO
      SE (NUM MOD 10)=0 ENTAO
         ESCREVAL("NUMERO DIVISIVEL POR 10")
      FIMSE
      SE (NUM MOD 5)=0 ENTAO
         ESCREVAL("NUMERO DIVISIVEL POR 5")
      FIMSE
      SE (NUM MOD 2)=0 ENTAO
         ESCREVAL("NUMERO DIVISIVEL POR 2")
      FIMSE
      SENAO
        ESCREVAL("NUMERO NÃO É DIVISÍVEL POR NENHUM DELES")
   FIMSE

Fimalgoritmo

Exercício 3.14 - Índice de Poluição

1.      O departamento que controla o índice de poluição do meio ambiente mantém 3 grupos de indústrias que são altamente poluentes do meio ambiente. O índice de poluição aceitável varia de 0,05 até 0,25. Se o índice sobe para 0,3 as indústrias do 1o grupo são intimadas a suspenderem suas atividades, se o índice cresce para 0,4 as do 1o e 2o grupo são intimadas a suspenderem suas actividades e se o índice atingir 0,5 todos os 3 grupos devem ser notificados a paralisarem suas actividades. Escrever um algoritmo que lê o índice de poluição medido e emite a notificação adequada aos diferentes grupos de empresas.

Algoritmo "indice de poluição"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 15/09/2016
var
   INDUSTRIA:REAL
inicio
   ESCREVA("DIGITE O INDICE DE POLUIÇÃO:")
   LEIA(INDUSTRIA)
   SE(INDUSTRIA>=0.05)E (INDUSTRIA<=0.25) ENTAO
      ESCREVA ("INDICE DENTRO DOS PADRÕES ACEITAVEIS.")
   SENAO
      SE(INDUSTRIA>0.25) E (INDUSTRIA<0.4) ENTAO
         ESCREVA ("PARALIZA AS ATIVIDADES SOMENTE DO 1º GRUPO")
      SENAO
         SE(INDUSTRIA>=0.4) E (INDUSTRIA<0.5) ENTAO
            ESCREVA ("PARALIZA AS ATIVIDADES DO 1º E 2º GRUPO")
         SENAO
            SE(INDUSTRIA>=0.5) ENTAO
               ESCREVA ("PARALIZA AS ATIVIDADES DOS TRES GRUPOS DE INDUSTRIAS")
            FIMSE
         FIMSE
      FIMSE
   FIMSE

fimalgoritmo

Exercício 3.14 - Índice de Poluição

1.      O departamento que controla o índice de poluição do meio ambiente mantém 3 grupos de indústrias que são altamente poluentes do meio ambiente. O índice de poluição aceitável varia de 0,05 até 0,25. Se o índice sobe para 0,3 as indústrias do 1o grupo são intimadas a suspenderem suas atividades, se o índice cresce para 0,4 as do 1o e 2o grupo são intimadas a suspenderem suas actividades e se o índice atingir 0,5 todos os 3 grupos devem ser notificados a paralisarem suas actividades. Escrever um algoritmo que lê o índice de poluição medido e emite a notificação adequada aos diferentes grupos de empresas.

Algoritmo "indice de poluição"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 15/09/2016
var
   INDUSTRIA:REAL
inicio
   ESCREVA("DIGITE O INDICE DE POLUIÇÃO:")
   LEIA(INDUSTRIA)
   SE(INDUSTRIA>=0.05)E (INDUSTRIA<=0.25) ENTAO
      ESCREVA ("INDICE DENTRO DOS PADRÕES ACEITAVEIS.")
   SENAO
      SE(INDUSTRIA>0.25) E (INDUSTRIA<0.4) ENTAO
         ESCREVA ("PARALIZA AS ATIVIDADES SOMENTE DO 1º GRUPO")
      SENAO
         SE(INDUSTRIA>=0.4) E (INDUSTRIA<0.5) ENTAO
            ESCREVA ("PARALIZA AS ATIVIDADES DO 1º E 2º GRUPO")
         SENAO
            SE(INDUSTRIA>=0.5) ENTAO
               ESCREVA ("PARALIZA AS ATIVIDADES DOS TRES GRUPOS DE INDUSTRIAS")
            FIMSE
         FIMSE
      FIMSE
   FIMSE

fimalgoritmo

2ª questão prova parcial - melhorada

Algoritmo "2ª Questão"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Calculo de Conta no Restaurante
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 13/09/2016
Var
   // Seção de Declarações das variáveis
   QTDCHOPP,QTDTIRAGOSTO,QTDINGREDIENTES:INTEIRO
   FORMAPAG:INTEIRO
   CONTATOTAL,GORJETA,CONTAFINAL,DESCONTO,QTDPESSOAS,VALPESSOA:REAL
   CONTAAPAGAR:REAL
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   ESCREVAL("¦&&&&&&&&&&&&&&&&&&&CARDÁPIO&&&&&&&&&&&&&&&&&&&&&&&&&&&&&¦")
   ESCREVAL("¦TULIPA DE CHOPP - R$2,50                                ¦")
   ESCREVAL("¦                                                        ¦")
   ESCREVAL("¦TIRA GOSTO - R$27,00 MAIS R$1,50 POR INGREDIENTE PEDIDO ¦")
   ESCREVAL("¦                                                        ¦")
   ESCREVAL("¦ATENÇÃO: COBRAMOS 10% DE GORJETA PARA O GARÇOM          ¦")
   ESCREVAL("¦OBS: o valor dos 10% é sobre o valor total da conta     ¦")
   ESCREVAL("¦                                                        ¦")
   ESCREVAL("¦FORMAS DE PAGAMENTO                                     ¦")
   ESCREVAL("¦1 - PAGAMENTO À VISTA - &&&& 20% DE DESCONTO            ¦")
   ESCREVAL("¦2 - PAGAMENTO CARTÃO DE CRÉDITO - &&&& 10% DE DESCONTO  ¦")
   ESCREVAL("¦3 - ACEITAMOS CHEQUES - NÃO DAMOS DESCONTO              ¦")
   ESCREVAL
   ESCREVAL("QUANTAS TULIPAS DE CHOPP, VOCÊS DESEJAM?")
   LEIA(QTDCHOPP)
   ESCREVAL
   ESCREVAL("QUANTOS TIRA-GOSTO?")
   LEIA(QTDTIRAGOSTO)
   ESCREVAL
   ESCREVAL("QUAIS INGREDIENTES?")
   LEIA(QTDINGREDIENTES)
   ESCREVAL
   ESCREVAL("QUANTAS PESSOAS ESTÃO NA MESA PARA DIVIDIR A CONTA?")
   LEIA(QTDPESSOAS)
   ESCREVAL("QUAL A SUA FORMA DE PAGAMENTO?")
   LEIA(FORMAPAG)
   CONTATOTAL<-QTDCHOPP*2.5+QTDTIRAGOSTO*27+QTDINGREDIENTES*1.5
   GORJETA<-CONTATOTAL*0.1
   CONTAFINAL<-CONTATOTAL+GORJETA
   SE FORMAPAG=1 ENTAO
      DESCONTO<-CONTATOTAL*0.2
      CONTAAPAGAR<-CONTATOTAL-DESCONTO+GORJETA
   SENAO
      SE FORMAPAG=2 ENTAO
         DESCONTO<-CONTATOTAL*0.1
         CONTAAPAGAR<-CONTATOTAL-DESCONTO+GORJETA
      SENAO
         SE FORMAPAG=3 ENTAO
            CONTAAPAGAR<-CONTAFINAL
            ESCREVAL("SEU PAGAMENTO É EM CHEQUE")
            ESCREVAL("VOCÊ NÃO TERÁ DESCONTO")
         SENAO
            ESCREVAL("OPÇÃO DE PAGAMENTO INVÁLIDA")
         FIMSE
      FIMSE
   FIMSE
   VALPESSOA<-CONTAAPAGAR/QTDPESSOAS
   LIMPATELA
   ESCREVAL("•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
   ESCREVAL("PREZADO CLIENTE SUA CONTA É NO TOTAL DE: R$",CONTAFINAL:4:2)
   ESCREVAL
   ESCREVAL("•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
   ESCREVAL("SENDO QUE DESSE VALOR, O TOTAL DA GORJETA É DE: R$",GORJETA:4:2)
   ESCREVAL
   ESCREVAL("•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
   ESCREVAL("O VALOR DO DESCONTO FOI DE: R$",DESCONTO:4:2)
   ESCREVAL("•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
   ESCREVAL("O VALOR DA CONTA A SER PAGO É : R$",CONTAAPAGAR:4:2)
   ESCREVAL("•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••")
   ESCREVAL("O VALOR A SER PAGO POR CADA UM É: R$",VALPESSOA:4:2)

Fimalgoritmo

1ª questão prova parcial tipo3

Algoritmo "1ª questão prova parcial tipo3"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 13/09/2016
Var
   // Seção de Declarações das variáveis
   num: real

Inicio
   Escreva("Digite um número: ")
   Leia(num)
   se num>0 entao
      escreva("O número é positivo")
   senao
      se num<0 entao
         escreva("O número é negativo")
      senao
         escreva("O número é zero")
      fimse
   fimse
Fimalgoritmo

PRIMEIRA RESPOSTA PARA A 2ª QUESTÃO DA PROVA PARCIAL TIPO03

//2ª Questão Prova Parcia FAMA
//Em um restaurante, uma tulipa de chopp custa R$ 2,50 e um tira gosto grande custa R$27,00 mais R$1,50 por tipo de ingredientes pedido (queijo, presunto, azeitona, etc.).
//Uma turma vai ao barzinho e pede uma determinada quantidade de "chopps" e uma quantidade de tira gosto grande com uma determinada quantidade de ingredientes em cada.
//Faça um algoritmo em VisuAlg que calcule e exiba a conta, (se o pagamento for a vista o cliente terá um desconto de 20%,se o pagamento for em cartão de crédito o desconto é de 10%, se for em cheque não terá desconto) sabendo-se quantas pessoas estão à mesa, mostre também quanto cada um deve pagar. (não esqueça os 10% do garçom que não entra no calculo do desconto e é sobre o valor total)

Algoritmo "2ª Questão"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Calculo de Conta no Restaurante
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 13/09/2016
Var
   // Seção de Declarações das variáveis
   QTDCHOPP,QTDTIRAGOSTO,QTDINGREDIENTES:INTEIRO
   FORMAPAG:INTEIRO
   CONTATOTAL,GORJETA,CONTAFINAL,DESCONTO,QTDPESSOAS,VALPESSOA:REAL
   CONTAAPAGAR:REAL
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   ESCREVAL("¦TULIPA DE CHOPP - R$2,50                                ¦")
   ESCREVAL("¦TIRA GOSTO - R$27,00 MAIS R$1,50 POR INGREDIENTE PEDIDO ¦")
   ESCREVAL("¦ATENÇÃO: COBRAMOS 10% DE GORJETA PARA O GARÇOM          ¦")
   ESCREVAL("¦OBS: o valor dos 10% é sobre o valor total da conta     ¦")
   ESCREVAL("¦FORMAS DE PAGAMENTO                                     ¦")
   ESCREVAL("¦1 - PAGAMENTO À VISTA - &&&& 20% DE DESCONTO            ¦")
   ESCREVAL("¦2 - PAGAMENTO CARTÃO DE CRÉDITO - &&&& 10% DE DESCONTO  ¦")
   ESCREVAL("¦3 - ACEITAMOS CHEQUES - NÃO DAMOS DESCONTO              ¦")
   ESCREVAL("QUANTAS TULIPAS DE CHOPP, VOCÊS DESEJAM?")
   LEIA(QTDCHOPP)
   ESCREVAL("QUANTOS TIRA-GOSTO?")
   LEIA(QTDTIRAGOSTO)
   ESCREVAL("QUAIS INGREDIENTES?")
   LEIA(QTDINGREDIENTES)
   ESCREVAL("QUANTAS PESSOAS ESTÃO NA MESA PARA DIVIDIR A CONTA?")
   LEIA(QTDPESSOAS)
   ESCREVAL("QUAL A SUA FORMA DE PAGAMENTO?")
   LEIA(FORMAPAG)
   CONTATOTAL<-QTDCHOPP*2.5+QTDTIRAGOSTO*27+QTDINGREDIENTES*1.5
   GORJETA<-CONTATOTAL*0.1
   CONTAFINAL<-CONTATOTAL+GORJETA
   SE FORMAPAG=1 ENTAO
      DESCONTO<-CONTATOTAL*0.2
      CONTAAPAGAR<-CONTATOTAL-DESCONTO+GORJETA
   SENAO
      SE FORMAPAG=2 ENTAO
         DESCONTO<-CONTATOTAL*0.1
         CONTAAPAGAR<-CONTATOTAL-DESCONTO+GORJETA
      SENAO
         SE FORMAPAG=3 ENTAO
            CONTAAPAGAR<-CONTAFINAL
            ESCREVAL("SEU PAGAMENTO É EM CHEQUE")
            ESCREVAL("VOCÊ NÃO TERÁ DESCONTO")
         SENAO
            ESCREVAL("OPÇÃO DE PAGAMENTO INVÁLIDA")
         FIMSE
      FIMSE
   FIMSE
   VALPESSOA<-CONTAAPAGAR/QTDPESSOAS
   ESCREVAL("PREZADO CLIENTE SUA CONTA É NO TOTAL DE: R$",CONTAFINAL:4:2)
   ESCREVAL("SENDO QUE DESSE VALOR, O TOTAL DA GORJETA É DE: R$",GORJETA:4:2)
   ESCREVAL("O VALOR DO DESCONTO FOI DE: R$",DESCONTO:4:2)
   ESCREVAL("O VALOR DA CONTA A SER PAGO É : R$",CONTAAPAGAR:4:2)
   ESCREVAL("O VALOR A SER PAGO POR CADA UM É: R$",VALPESSOA:4:2)



Fimalgoritmo

Prova Parcial tipo 03 CST Redes de Computadores

EXERCICIO 3.18

18. Criar um algoritmo que leia o número correspondente ao mês atual e os dígitos
(somente os quatro números) de uma placa de veículo, e através do número
finalizador da placa (algarismo da casa das unidades) determine se o IPVA do veículo
vence no mês corrente.

Algoritmo "exercicio 3.18"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 10/09/2016

 Var
  MES, PLACA: inteiro

Inicio
  Escreval ("1-Janeiro; 2-Fevereiro; 3-Março; 4-Abril; 5-Maio.")
  Escreval ("6-Junho; 7-Julho; 8-Agosto; 9-Setembro; 10-Outubro.")
  Escreva ("Qual o seu mês atual? ")
  Leia (MES)
  Escreva ("Qual os 4 últimos DIGITOS da sua placa: ")
  Leia (PLACA)
  PLACA<-PLACA MOD 1000
  PLACA<-PLACA MOD 100
  PLACA<- PLACA MOD 10
  SE PLACA = MES ENTAO
     SE MES=1 ENTAO
        ESCREVAL("SEU IPVA VENCE NESTE MES DE JANEIRO")
     FIMSE
     SE MES=2 ENTAO
        ESCREVAL("SEU IPVA VENCE NESTE MES DE FEVEREIRO")
     FIMSE
     SE MES=3 ENTAO
        ESCREVAL("SEU IPVA VENCE NESTE MES DE MARÇO")
     FIMSE
     SE MES=4 ENTAO
        ESCREVAL("SEU IPVA VENCE NESTE MES DE ABRIL")
     FIMSE
     SE MES=5 ENTAO
        ESCREVAL("SEU IPVA VENCE NESTE MES DE MAIO")
     FIMSE
     SE MES=6 ENTAO
        ESCREVAL("SEU IPVA VENCE NESTE MES DE JUNHO")
     FIMSE
   SE MES=7 ENTAO
        ESCREVAL("SEU IPVA VENCE NESTE MES DE JULHO")
     FIMSE
   SE MES=8 ENTAO
        ESCREVAL("SEU IPVA VENCE NESTE MES DE AGOSTO")
     FIMSE
   SE MES=9 ENTAO
        ESCREVAL("SEU IPVA VENCE NESTE MES DE SETEMBRO")
     FIMSE
   SENAO
       SE ((PLACA=0) E (MES=10)) ENTAO
          ESCREVAL("SEU IPVA VENCE ESTE MES DE OUTUBRO")
       SENAO
            ESCREVAL("A PLACA NÃO VENCE ENTRE JANEIRO E OUTUBRO")
       FIMSE
  FIMSE

   

Fimalgoritmo

Algoritmo "EXERCICIO 3.16"


var
   hora_ini,hora_final,hora_total,minuto_ini,minuto_final,minuto_total:inteiro
inicio
   escreval("Informe a hora e o minuto inicial do jogo:")
   leia(hora_ini,minuto_ini)
   escreval("Agora informe a hora e o minuto final do jogo")
   leia(hora_final,minuto_final)
   se(hora_ini>23)entao
      escreval("*ERRO* ENTRADA DE DADOS NÃO É VÁLIDA EM HORA INICIAL ERRO")
   senao
      se(minuto_ini>59)entao
         escreval("*ERRO* ENTRADA DE DADOS NÃO É VÁLIDA EM MINUTO INICIAL ERRO")
      senao
         se(hora_final>23)entao
            escreval("*ERRO* ENTRADA DE DADOS NÃO É VÁLIDA EM HORA FINAL ERRO")
         senao
            se(minuto_final>59)entao
               escreval("*ERRO* ENTRADA DE DADOS NÃO É VÁLIDA EM MINUTO FINAL ERRO")
            senao
               se hora_ini < hora_final entao
                  hora_total<- hora_final - hora_ini
               senao
                  se (hora_ini > hora_final) entao
                     hora_total<- (hora_final + 24)- hora_ini
                  fimse
               fimse
               se minuto_ini > minuto_final entao
                  hora_total<- hora_total-1
               fimse
               se minuto_ini < minuto_final entao
                  minuto_total<- minuto_final - minuto_ini
               senao
                  se minuto_ini > minuto_final entao
                     minuto_total<- (minuto_final + 60)- minuto_ini
                  fimse
               fimse
               se ((hora_ini<=23)ou(hora_final<=23)) ou ((minuto_ini<59) ou (minuto_final<59))entao
                  escreval("O tempo de duaração do jogo foi de :",hora_total," horas e ",minuto_total," minutos")
               fimse
            fimse
         fimse
      fimse
   fimse
fimalgoritmo

//3.1 Escreva um algoritmo para calcular, dados três números inteiros, a soma dos dois maiores.
Algoritmo "Exercicio 3.1"
// Disciplina   : ALGORITMOS 
// Professor    : ANGELO DA CUNHA SÁ 
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 06/09/2016
Var
// Seção de Declarações das variáveis 
    SOMA,N1,N2,N3,MAIOR,MEDIO,MENOR:INTEIRO

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc... 
   ESCREVAL("DIGITE TRES NUMEROS")
   LEIA(N1,N2,N3)
   SE ((N1=N2) OU (N2=N3) OU (N1=N3)) ENTAO
      ESCREVAL("EXISTEM NUMEROS IGUAIS")
   FIMSE
   MAIOR<-N1
   MENOR<-N1
   MEDIO<-N1
   SE ((N1>N2) E (N1>N3)) ENTAO
      SE N2>N3 ENTAO
         MENOR<-N3
         MEDIO<-N2
      SENAO
           MENOR<-N2
           MEDIO<-N3
      FIMSE
   FIMSE
   SE ((N2>N1) E (N2>N3)) ENTAO
      SE N1>N3 ENTAO
         MAIOR<-N2
         MENOR<-N3
      SENAO
         MAIOR<-N2
         MEDIO<-N3
      FIMSE
   FIMSE
   SE ((N3>N1) E (N3>N2)) ENTAO
      SE N1>N2 ENTAO
         MAIOR<-N3
         MENOR<-N2
      SENAO
         MAIOR<-N3
         MEDIO<-N2
      FIMSE
   FIMSE
   SOMA<-MAIOR+MEDIO
   ESCREVAL(" A SOMA DOS DOIS NUMEROS MAIORES É: ",SOMA)
   
Fimalgoritmo

Estrutura Condicional

EXERCICIO 3.13 - lê um conjunto de 4 valores i, a, b, c

//3.13. Escrever um algoritmo que lê um conjunto de 4 valores i, a, b, c,
//onde i é um valor inteiro e positivo e a, b, c, são quaisquer
//valores reais e os escreva. A seguir:
//a) Se i=1 escrever os três valores a, b, c em ordem crescente.
//b) Se i=2 escrever os três valores a, b, c em ordem decrescente.
//c) Se i=3 escrever os três valores a, b, c de forma que o maior
//entre a, b, c fique entre os outros dois.


Algoritmo "EXERCICIO 3.13"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 07/09/2016
Var
   // Seção de Declarações das variáveis
   I:INTEIRO
   N1,N2,N3,MAIOR,MENOR,MEDIO:REAL
   

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   ESCREVAL("DIGITE 03 VALORES..")
   LEIA(N1,N2,N3)
   ESCREVAL("DIGITE 1 SE QUISER VER ELES EM ORDEM CRESCENTE.")
   ESCREVAL("DIGITE 2 SE QUISER VER ELES EM ORDEM DECRESCENTE")
   ESCREVAL("DIGITE 3 SE QUISER QUE O MAIOR FIQUE ENTRE OS DOIS")
   LEIA(I)
   SE ((N1>N2) E (N1>N3)) ENTAO
      SE N2>N3 ENTAO
         MAIOR<-N1
         MEDIO<-N2
         MENOR<-N3
      SENAO
         MAIOR<-N1
         MEDIO<-N3
         MENOR<-N2
      FIMSE
   SENAO
      SE ((N2>N1) E (N2>N3)) ENTAO
         SE N1>N3 ENTAO
            MAIOR<-N2
            MEDIO<-N1
            MENOR<-N3
         SENAO
            MAIOR<-N2
            MEDIO<-N3
            MENOR<-N1
         FIMSE
      SENAO
         SE ((N3>N1) E (N3>N2)) ENTAO
            SE N1>N2 ENTAO
               MAIOR<-N3
               MEDIO<-N1
               MENOR<-N2
            SENAO
               MAIOR<-N3
               MEDIO<-N2
               MENOR<-N1
            FIMSE
         FIMSE
      FIMSE
   FIMSE
   SE I=1 ENTAO
      ESCREVAL("OS NUMEROS EM ORDEM CRESCENTE SÃO:..",MENOR,MEDIO,MAIOR)
   FIMSE
   SE I=2 ENTAO
      ESCREVAL("OS NUMEROS EM ORDEM EM ORDEM DECRESCENTE",MAIOR,MEDIO,MENOR)
   FIMSE
   SE I=3 ENTAO
      ESCREVAL("OS NUMEROS EM QUE O MAIOR FIQUE ENTRE OS DOIS",MENOR,MAIOR,MEDIO)
   FIMSE

Fimalgoritmo

O que é Algoritmo?

Site interessante

http://www.dicasdeprogramacao.com.br/o-que-e-algoritmo

EXERCICIO 3.12 credito e saldo médio

//3.12. Um banco concede um crédito especial aos seus clientes,

//variável com o saldo médio no último ano. Construa um algoritmo

//que leia o saldo médio de um cliente e calcule o

//valor do crédito de acordo com a tabela abaixo.

//Mostre uma mensagem informando o saldo médio e o valor do crédito.

//Saldo médio                 Percentagem

//- de 0 a 200                 nenhum crédito

//- de 201 a 400               20% do valor do saldo médio

//- de 401 a 600               30% do valor do saldo médio

//- acima de 601               40% do valor do saldo médio

Algoritmo "EXERCICIO 3.12"

// Disciplina   : ALGORITMOS 

// Professor    : ANGELO DA CUNHA SÁ 

// Descrição   : Aqui você descreve o que o programa faz! (função)

// Autor(a)    : Nome do(a) aluno(a)

// Data atual  : 07/09/2016

Var

// Seção de Declarações das variáveis 

   SALDOMEDIO,VALORCREDITO:REAL

Inicio

// Seção de Comandos, procedimento, funções, operadores, etc...

   ESCREVAL("DIGITE O SALDO MÉDIO DO CLIENTE:...")

   LEIA(SALDOMEDIO)

   SE SALDOMEDIO<=200 ENTAO

      ESCREVAL("NENHUM CRÉDITO")

   SENAO

        SE ((SALDOMEDIO>200) E (SALDOMEDIO<=400)) ENTAO

           VALORCREDITO<-SALDOMEDIO*0.2

           ESCREVAL("O VALOR DO CRÉDITO É:..R$",VALORCREDITO:4:2)

        SENAO

             SE ((SALDOMEDIO>400) E (SALDOMEDIO<=600)) ENTAO

                VALORCREDITO<-SALDOMEDIO*0.3

                ESCREVAL("O VALOR DO CRÉDITO É:..R$",VALORCREDITO:4:2)

             SENAO

                  SE SALDOMEDIO>600 ENTAO

                      VALORCREDITO<-SALDOMEDIO*0.4

                      ESCREVAL("O VALOR DO CRÉDITO É:..R$",VALORCREDITO:4:2)

                  FIMSE

             FIMSE

        FIMSE

   FIMSE

  

Fimalgoritmo

Estrutura de seleção multipla ESCOLHA-CASO

Quer aprender mais sobre o assunto: Comando Escolha---Caso

Acesse o link abaixo:

Estrutura de seleção multipla ESCOLHA-CASO

.

Exercício 2.31 Hipermercado Tabajara

2.31 Para atender a todos os clientes, cada cliente poderá levar apenas um dos tipos de carne da promoção, porém não há limites para a quantidade de carne por cliente. Se compra for feita no cartão Tabajara o cliente receberá ainda um desconto de 5% sobre o total a compra. Escreva um programa que peça o tipo e a quantidade de carne comprada pelo usuário e gere um cupom fiscal, contendo as informações da compra: tipo e quantidade de carne, preço total, tipo de pagamento, valor do desconto e valor a pagar.
//O Hipermercado Tabajara está com uma promoção de carnes que é imperdível. Confira:
Até                                  5 Kg                                            Acima de 5 Kg
File Duplo                  R$ 4,90 por Kg                                R$ 5,80 por Kg
Alcatra                       R$ 5,90 por Kg                                R$ 6,80 por Kg
Picanha                      R$ 6,90 por Kg                                R$ 7,80 por Kg

Algoritmo "EXERCICIO2.31"
// Disciplina : ALGORITMOS

Var
// Seção de Declarações das variáveis
OPCAO,TIPOCARNE,FORMPAG,TIPPAG:CARACTER
QTDCARNE,VALORCOMPRA,DESCONTO,PRECOFINAL:REAL
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
   ESCREVAL("O Hipermercado Tabajara está com uma promoção de carnes")
   ESCREVAL("Confira:")
   ESCREVALMUDACOR("AMARELO","FRENTE")
   ESCREVAL("Até 5 Kg Acima de 5 Kg")
   ESCREVAL("File Duplo R$ 4,90 por Kg R$ 5,80 por Kg")
   ESCREVAL("Alcatra R$ 5,90 por Kg R$ 6,80 por Kg")
   ESCREVAL("Picanha R$ 6,90 por Kg R$ 7,80 por Kg")
   ESCREVAL
   ESCREVAL
   ESCREVAL("QUAL O TIPO DE CARNE ESCOLHIDA?")
   ESCREVAL("DIGITE 1 - PARA FILE DUPLO")
   ESCREVAL("DIGITE 2 - PARA ALCATRA")
   ESCREVAL("DIGITE 3 - PARA PICANHA")
   LEIA(OPCAO)
   ESCOLHA OPCAO
            CASO "1"
                                 TIPOCARNE<-"FILÉ DUPLO"
                                 ESCREVAL("QUAL A QUANTIDADE DESEJADA?")
                                 LEIA(QTDCARNE)
                                 SE QTDCARNE>5 ENTAO
                                       VALORCOMPRA<-QTDCARNE*5.8
                                 SENAO
                                        VALORCOMPRA<-QTDCARNE*4.9
                                 FIMSE
            CASO "2"
                                 TIPOCARNE<-"ALCATRA"
                                 ESCREVAL("QUAL A QUANTIDADE DESEJADA?")
                                 LEIA(QTDCARNE)
                                 SE QTDCARNE>5 ENTAO
                                      VALORCOMPRA<-QTDCARNE*6.8
                                SENAO
                                      VALORCOMPRA<-QTDCARNE*5.9
                                 FIMSE
            CASO "3"
                                 TIPOCARNE<-"PICANHA"
                                 ESCREVAL("QUAL A QUANTIDADE DESEJADA?")
                                 LEIA(QTDCARNE)
                                 SE QTDCARNE>5 ENTAO
                                      VALORCOMPRA<-QTDCARNE*7.8
                                 SENAO
                                     VALORCOMPRA<-QTDCARNE*6.9
                                 FIMSE
             OUTROCASO
                               ESCREVAL("OPÇÃO INVALIDA.... VOCE DEVE ESCOLHER ENTRE 1 E 3")
   FIMESCOLHA
   ESCREVAL("QUAL A FORMA DE PAGAMENTO?")
   ESCREVAL("2 - CARTAO DE CRÉDITO")
  ESCREVAL
   ESCREVAL("QUALQUER OUTRA TECLA - PARA PAGAMENTO A VISTA")
   ESCREVAL
   LEIA(FORMPAG)
   SE FORMPAG="2" ENTAO
          DESCONTO<-VALORCOMPRA*0.05
          PRECOFINAL<-VALORCOMPRA-DESCONTO
          TIPPAG<-"CARTÃO DE CRÉDITO"
   SENAO
          PRECOFINAL<-VALORCOMPRA
          TIPPAG<-"PAGAMENTO A VISTA"
   FIMSE
   LIMPATELA
   MUDACOR("VERMELHO","FRENTE")
   ESCREVAL("ææææææææææ HIPERMERCADO TABAJARA ææææææææææ")
   ESCREVAL
   ESCREVAL("TIPO DE CARNE:.....................",TIPOCARNE)
   ESCREVAL
   ESCREVAL("A QUANTIDADE COMPRADA É:...........",QTDCARNE,"KG")
   ESCREVAL
   ESCREVAL("O VALOR TOTAL É DE:................R$",VALORCOMPRA:4:2)
   ESCREVAL
   ESCREVAL("A FORMA DE PAGAMENTO É:............",TIPPAG)
   ESCREVAL
   ESCREVAL("O VALOR DO DESCONTO É DE:..........R$",DESCONTO:4:2)
   ESCREVAL
   ESCREVAL("O VALOR A PAGAR É DE:..............R$",PRECOFINAL:4:2)
Fimalgoritmo

Exercício 3.20 Calculo de IMC

Construa um algoritmo para determinar se o indivíduo esta com um peso favorável. Essa situação é determinada através do IMC (Índice de Massa Corpórea), que é definida como sendo a relação entre o peso (PESO) e o quadrado da Altura (ALTURA) do indivíduo. Ou seja

Algoritmo "EXERCICIO 3.20"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ

Var

   ALTURA,PESO,IMC:REAL

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
   ESCREVAL("DIGITE A ALTURA DA PESSOA::")
   LEIA(ALTURA)
   ESCREVAL("DIGITE O PESO DA PESSOA..")
   LEIA(PESO)
   IMC<-PESO/(ALTURA^2)
   SE IMC<20 ENTAO
      ESCREVAL("PESSOA ABAIXO DO PESO")
   SENAO
        SE ((IMC>=20) E (IMC<25)) ENTAO
           ESCREVAL("PESSOA COM O PESO NORMAL")
        SENAO
             SE ((IMC>=25) E (IMC<30)) ENTAO
                ESCREVAL("PESSOA COM SOBREPESO")
             SENAO
                  SE ((IMC>=30) E (IMC<40)) ENTAO
                     ESCREVAL("PESSOA OBESA")
                  SENAO
                       ESCREVAL("OBESO MÓRBIDO")
                  FIMSE
             FIMSE
        FIMSE
   FIMSE



Fimalgoritmo

Exercicio 3.10 Múltiplos ou Não são múltiplos.

//3.10 Elaborar um algoritmo que lê 2 valores a e b e os escreve
//com a mensagem: “? E ? São múltiplos” ou “? E ? Não são múltiplos”.
Algoritmo "EXERCICIO 3.10"
// Disciplina   : ALGORITMOS
// Professor    : ANGELO DA CUNHA SÁ
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 06/09/2016
Var
// Seção de Declarações das variáveis
   N1,N2:INTEIRO
   AUX1:REAL

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
   ESCREVAL("DIGITE DOIS NUMEROS ")
   LEIA(N1,N2)
   SE N1>N2 ENTAO
    AUX1<-(N1 MOD N2)
   SENAO
    AUX1<-(N2 MOD N1)
   FIMSE
   SE AUX1=0 ENTAO
      ESCREVAL(N1," E ",N2," SÃO MULTIPLOS")
   SENAO
      ESCREVAL(N1," E ",N2," NÃO SÃO MULTIPLOS")
   FIMSE

Fimalgoritmo