Exercicio 16 capitulo 3

Escreva um algoritmo que leia os nomes dos três candidatos ao Senado (para uma vaga) com
suas respectivas votações. O algoritmo deve escrever o nome do candidato mais votado. Por
exemplo,
Maior votação: João da Silva
No caso de haver empate entre dois (os mais votados) ou entre os três candidatos, devem ser
escritos os nomes desses candidatos. Por exemplo,
Maior votação: João da Silva, Maria do Socorro

algoritmo "2.16"
// Função :
// Autor : Gustavo
// Data : 28/9/2010
// Seção de Declarações 
var
   nomeCandidato1,nomeCandidato2,nomeCandidato3:literal
   votacaoCand1,votacaoCand2,votacaoCand3:inteiro
inicio
   escreval("Informe o nome e a votacao do candidato 1:")
   escreva("Nome: ")
   leia(nomeCandidato1)
   escreva("Votacao: ")
   leia(votacaoCand1)

   escreval("Informe o nome e a votacao do candidato 2:")
   escreva("Nome: ")
   leia(nomeCandidato2)
   escreva("Votacao: ")
   leia(votacaoCand2)
   
   escreval("Informe o nome e a votacao do candidato 3:")
   escreva("Nome: ")
   leia(nomeCandidato3)
   escreva("Votacao: ")
   leia(votacaoCand3)
   
   escreval
   
   //todo mundo ganhou...
   se ((votacaoCand1 = votacaoCand2) e (votacaoCand2 = votacaoCand3)) entao
      escreva("Maior votacao: ",nomeCandidato1,", ",nomeCandidato2,", ",nomeCandidato3)
   senao
      //se o candidato 1 é igual ao candidato 2, estao empatados. Se os dois forem maior que o 3, sao os vencedores
      se((votacaoCand1=votacaoCand2) e (votacaoCand1>votacaoCand3)) entao
         escreva("Maior votacao: ",nomeCandidato1,", ",nomeCandidato2)
      senao
         //se o candidato 1 é igual ao candidato 3, estao empatados. Se os dois forem maior que o 2, sao os vencedores.
         se ((votacaoCand1=votacaoCand3) e (votacaoCand1>votacaoCand2)) entao
            escreva("Maior votacao: ",nomeCandidato1,", ",nomeCandidato3)
         senao
            //se o candidato 2 é igual ao candidato 3, estao empatados. Se os dois forem maior que o 1, sao os vencedores.
            se ((votacaoCand2=votacaoCand3) e (votacaoCand2>votacaoCand1)) entao
               escreva("Maior votacao: ",nomeCandidato2,", ",nomeCandidato3)
            senao
               //Nao. Nao temos empate, vamos ver quem foi o vencedor.
               se ((votacaoCand1>votacaoCand2) e (votacaoCand1>votacaoCand3)) entao
                  escreva("Maior votacao: ",nomeCandidato1)
               senao
                  se ((votacaoCand2>votacaoCand1) e (votacaoCand2>votacaoCand3)) entao
                     escreva("Maior votacao: ",nomeCandidato2)
                  senao
                     //Nem precisa testar agora né? Pelas regras da probabilidade o candidato 3 venceu
                     escreva("Maior votacao: ",nomeCandidato3)
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse
fimalgoritmo

Exercicio 15 capitulo 3

Escreva um algoritmo que leia duas datas, na forma dia, mês e ano, e informe qual é a mais
recente.

algoritmo "Exercicio 3.14"
// Função :
// Autor : Gustavo
// Data : 24/9/2010
// Seção de Declarações 
var
   ano1,mes1,dia1:inteiro
   ano2,mes2,dia2:inteiro
inicio
   escreval("Informe o ano da primeira data:")
   leia(ano1)
   
   escreval("Informe o mes da primeira data:")
   leia(mes1)
   
   escreval("Informe o dia da primeira data:")
   leia(dia1)
   
   escreval("Informe o ano da segunda data:")
   leia(ano2)
   
   escreval("Informe o mes da segunda data:")
   leia(mes2)
   
   escreval("Informe o dia da segunda data:")
   leia(dia2)
   
   se (ano2 > ano1) entao
      escreva("A data 2 é a mais recente")
   senao
      se(ano2 < ano1) entao
         escreva("A data 1 é a mais recente")
      senao
         se (mes2 > mes1) entao
            escreva("A data 2 é a mais recente")
         senao
            se(mes2 < mes1) entao
               escreva("a data 1 é a maior")
            senao
                se (dia2 > dia1) entao
                  escreva("A data 2 é a mais recente")
                senao
                  se (dia2 < dia1) entao
                     escreva("A data 1 é a mais recente")
                  senao
                     escreva("As datas são iguais")
                  fimse
                fimse
            fimse
         fimse
      fimse
   fimse
fimalgoritmo

Exercicio 14 capitulo 3

Escreva um algoritmo que leia três valores correspondentes ao dia, mês e ano de nascimento de
uma pessoa e outros três valores correspondentes ao dia, mês e ano do dia corrente. O
algoritmo deve escrever a idade da pessoa.

algoritmo "3.14"
// Função :
// Autor : Gustavo
// Data : 28/9/2010
// Seção de Declarações 
var
   //Mesmo sendo tudo do mesmo tipo, separei para ficar mais organizado, mas tanto faz declarar tudo junto.
   anoNasc,mesNasc,diaNasc:inteiro
   anoCorr,mesCorr,diaCorr:inteiro
   anoIdade,mesIdade,diaIdade:inteiro
inicio
   escreval(" - - - Data de nascimento - - - ")
   escreval("Informe sua data de nascimento")
   escreva("Ano: ")
   leia(anoNasc)
   escreva("Mes: ")
   leia(mesNasc)
   escreva("Dia: ")
   leia(diaNasc)
   
   escreval
   escreval(" - - - Data Corrente - - - ")
   escreval("Informe a data corrente.")
   escreva("Ano: ")
   leia(anoCorr)
   escreva("Mes: ")
   leia(mesCorr)
   escreva("Dia: ")
   leia(diaCorr)
   
   anoIdade<- anoCorr-anoNasc
   se (mesCorr>mesNasc) entao
      mesIdade<- mesCorr-mesNasc
   senao
      mesIdade<- 12-(mesNasc-mesCorr)
      se (diaNascdiaNasc) entao
      diaIdade<- diaCorr-diaNasc
      mesIdade<- mesIdade+1
   senao
      diaIdade<- diaNasc-diaCorr
   fimse
   
   se (mesIdade=12) entao
      anoIdade<- anoIdade+1
      mesIdade<- 0
   fimse
   
   escreva("Você tem ",anoIdade," anos, ",mesIdade, " mese(s) e ",diaIdade," dia(s)")
fimalgoritmo

Exercicio 13 capitulo 3

Escreva um algoritmo que leia a altura (em metros), o peso (em quilogramas) e o sexo
(“MASCULINO” ou “FEMININO”) e calcule seu peso ideal, dado por
           peso ideal do homem = (72,7 x altura) – 58
                                                                                       (3.3)
ou
           peso ideal da mulher = (62,1 x altura) – 44,77.
                                                                                       (3.4)
O algoritmo deve, também, informar se a pessoa está abaixo ou acima de seu peso ideal e m
quantos quilos.

algoritmo "Exercicio 3.13"

// Função :

// Autor : Gustavo

// Data : 23/9/2010

// Seção de Declarações 

var

   peso,altura,pesoIdeal:real

   sexo:literal

inicio

   escreval("Informe seu sexo:")

   leia(sexo)

   

   escreval("Informe a sua altura:")

   leia(altura)

   

   escreval("Informe o seu peso:")

   leia(peso)

   

   se ((sexo="MASCULINO") ou (sexo="FEMININO")) entao

      se (sexo="MASCULINO") entao

         pesoIdeal<- (72.7*altura)-58

      senao

         se (sexo="FEMININO") entao

            pesoIdeal<- (62.1*altura)-44.77

         fimse

      fimse

      se (peso>pesoIdeal) entao

            escreva("Voce esta ",(peso-pesoIdeal):5:2," acima do normal")

         senao

            se (peso<pesoIdeal) entao

               escreva("Voce esta ",(pesoIdeal-peso):5:2," abaixo do normal")

            senao

               escreva("Voce esta com o peso ideal")

            fimse

         fimse

   senao

      escreva("Você é um E.T?")

   fimse

   

fimalgoritmo

Exercicio 12 capitulo 3

Escreva um algoritmo que leia as notas das três provas de um aluno (p1, p2 e p3), calcule
sua média aritmética e escreva-a. As notas devem estar no intervalo [0,10].

algoritmo "Exercicio 3.12"
// Função :
// Autor : Gustavo
// Data : 23/9/2010
// Seção de Declarações 
var
   p1,p2,p3,media:real
inicio
   escreval("Informe a nota 1:")
   leia(p1)
   
   escreval("Informe a nota 2:")
   leia(p2)
   
   escreval("Informe a nota 3:")
   leia(p3)
   
   se (((p1=>0) e (p1<=10)) e ((p2=>0) e (p2<=10)) e ((p3=>0) e (p3<=10))) entao
      media<- (p1+p2+p3)/3
      escreva(media)
   senao
      escreva("As notas devem estar no intervalo de 0 (zero) a 10 (dez)
   fimse
fimalgoritmo

Exercicio 11 capitulo 3

Escreva um algoritmo que leia um dia, mês e ano e escreva, para essa data lida, o número de dias
transcorridos no ano.

algoritmo "Exercicio 3.11"
// Função :
// Autor : Gustavo
// Data : 23/9/2010
// Seção de Declarações 
var
   ano,mes,dia,diasCorridos:inteiro
inicio
   escreval("Informe o ano:")
   leia(ano)
   
   escreval("Informe o mes:")
   leia(mes)
   
   escreval("Informe o dia:")
   leia(dia)
   
   se (mes>12) entao
      escreva("Eita!!! Esse mes nao existe!")
   senao
      se ((ano mod 4) = 0) entao
         diasCorridos<- 366
      senao
         diasCorridos<- 365
      fimse

      se (mes <= 12) entao //dezembro.
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 11) entao //novembro
         diasCorridos<- diasCorridos - 30
      fimse

      se (mes <= 10) entao //outubro
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 9) entao //setembro
         diasCorridos<- diasCorridos - 30
      fimse

      se (mes <= 8) entao //agosto
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 7) entao //julho
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 6) entao //junho
         diasCorridos<- diasCorridos - 30
      fimse

      se (mes <= 5) entao //maio
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 4) entao //abril
         diasCorridos<- diasCorridos - 30
      fimse

      se (mes <= 3) entao //marco
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 2) entao //fevereiro
         se ((ano mod 4)=0) entao //bissexto
            diasCorridos<- diasCorridos - 29
         senao
            diasCorridos<- diasCorridos - 28
         fimse
      fimse

      se (mes <= 1) entao //janeiro
         diasCorridos<- diasCorridos - 31
      fimse
      
      diasCorridos<- diasCorridos + dia
      escreva ("Se passou ",diasCorridos," dias")
   
   fimse
fimalgoritmo

Exercicio 10 capitulo 3

Escreva um algoritmo que leia o nome de um nadador e sua idade. O algoritmo deve escrever
            A categoria de Marcos é INFANTIL B
A categoria é determinada conforme abaixo:

• nadadores com idade entre 5 e 7 anos são da categoria INFANTIL A;
• nadadores com idade entre 8 e 10 anos são da categoria INFANTIL B;
• nadadores com idade entre 11 e 13 anos são da categoria JUVENIL A;
• nadadores com idade entre 14 e 18 anos são da categoria JUVENIL B;e
• nadadores com idade superior a 18 anos são da categoria SÊNIOR;

algoritmo "Exercicio 3.10"
var
   idade:inteiro
   nome:literal
inicio
   escreval("Informe o seu nome:")
   leia(nome)
   
   escreval("Informe sua idade:")
   leia(idade)

   se (idade<5) entao
      escreva("Idade insuficiente")
   senao
      se (idade>=5) e (idade<=7) entao
         escreva("A categoria do ",nome," é Infantil 'A'")
      senao
         se(idade>=8) e (idade<=10) entao
            escreva("A categoria do ", nome," é Infantil 'B'")
         senao
            se(idade>=11) e (idade<=13) entao
               escreva("A categoria do ",nome," é Juvenil 'A'")
            senao
               se(idade>=14) e (idade<=17) entao
                  escreva("A categoria do ",nome," é Juvenil 'B'")
               senao
                  escreva("A categoria do ",nome," é Sênior")
               fimse
            fimse
         fimse
      fimse
   fimse
fimalgoritmo

Exercicio 9 capitulo 3

Escreva um algoritmo que implemente uma calculadora de quatro operações. O algoritmo lê o
primeiro operando, a operação (algum dos quatro símbolos: “x”, “-“, “*”, ou “/”) e o segundo
operando. Ele deve escrever
1o operando operação 2o operando = resultado.
Por exemplo, se os valores lidos foram 4, “*” e 5, o algoritmo deve escrever
4*5 = 20.

algoritmo "Exercicio 3.9"
// Função :
// Autor : Gustavo Quirino
// Data : 19/9/2010
// Seção de Declarações 
var
   operando1,operando2,resultado:real
   operacao:literal
inicio
   resultado<- -1
   escreval("Informe o operando1:")
   leia(operando1)
   
   escreval("Informe a operação: (+,-,/,*)")
   leia(operacao)
   
   escreval("Informe o operando2:")
   leia(operando2)

   se (operacao = "+") entao
      resultado<- operando1 + operando2
   senao
      se (operacao = "-") entao
         resultado<- operando1 - operando2
      senao
         se (operacao = "/") entao
            resultado<- operando1 / operando2
         senao
            se (operacao = "*") entao
               resultado<- operando1 * operando2
            senao
               escreva("Operação inválida!")
            fimse
         fimse
      fimse
   fimse

   se (resultado>=0) entao
      escreva("O resultado é: ",resultado:5:2)
   fimse
   
fimalgoritmo

Exercicio 8 capitulo 3

O que será escrito na tela, supondo que o valor de n é 29? Mostre o teste de mesa utilizado para
determinar o valor de b.

 algoritmo "Dec2Bin"
 var
   b: literal
   n, q, r: inteiro
inicio
    b <- " "
    escreva("Entre com um número")
    leia(n)

    q <- n
    r<- q % 2
    q <- q\2
    se r = 0 entao
      b <- "0" + b
    senao
      b <- "1" + b
    fimse

    r <- q % 2
    q <- q\2
    se r = 0 entao
      b <- "0" + b
    senao
      b <- "1" + b
    fimse

    r <- q % 2
    q <- q\2
    se r = 0 entao
      b <- "0" + b
    senao
      b <- "1" + b
    fimse

    r <- q % 2
    q <- q\2
    se r = 0 entao
      b <- "0" + b
    senao
      b <- "1" + b
    fimse

    r <- q % 2
    q <- q\2
    se r = 0 entao
      b <- "0" + b
    senao
      b <- "1" + b
    fimse

    escreva(n, " em decimal é representado por ", b, " em binário")
fimalgoritmo

Seguindo esse algoritmo será impresso 11111 SEMPRE, independente do valor de 'n'
Para corrigir basta trocar o 'numerico' por 'inteiro', nao havera problemas pois estamos convertendo numeros inteiros.

A cada modulo (separados por uma linha) é feito o calculo do novo dividendo e do resto, verifica se o resto é zero ou um e acrescenta na variavel 'b'. Porque a variavel 'b' nao podia ser do tipo inteiro? Pois zero a esquerda nao vale nada, entao o binario 01010 (10 em decimal) seria mostrado '1010'

Exercicio 7 capitulo 3

screva um algoritmo que leia o nome de cinco clientes de uma loja e valor (em reais) que cada
um desses clientes pagou por sua compra. O algoritmo deverá escrever:
1. o valor total pago pelos cinco clientes;
2. o valor médio das compras efetuadas;
3. os nomes dos clientes que efetuaram compras superiores a 20 reais.

algoritmo "Exercicio 3.7"
// Função :
// Autor : Gustavo Quirino
// Data : 19/9/2010
// Seção de Declarações 
var
   nome1,nome2,nome3,nome4,nome5:literal
   vCli1,vCli2,vCli3,vCli4,vCli5,total,media:real
inicio
   escreval("Informe o nome do cliente 1:")
   leia(nome1)
   
   escreval("Informe o valor pago por ele:")
   leia(vCli1)
   ///
   escreval("Informe o nome do cliente 2:")
   leia(nome2)

   escreval("Informe o valor pago por ele:")
   leia(vCli2)
   ///
    escreval("Informe o nome do cliente 3:")
   leia(nome3)

   escreval("Informe o valor pago por ele:")
   leia(vCli3)
   ///
    escreval("Informe o nome do cliente 4:")
   leia(nome4)

   escreval("Informe o valor pago por ele:")
   leia(vCli4)
   ///
    escreval("Informe o nome do cliente 5:")
   leia(nome5)

   escreval("Informe o valor pago por ele:")
   leia(vCli5)
   
   total<- vCli1+vCli2+vCli3+vCli4+vCli5
   media<- total/5
   
   escreval("Nomes dos clientes que gastaram mais de R$ 20,00:")
   se (vCli1>20) entao
      escreval(nome1, " gastou R$",vCli1:5:2)
   fimse
   se (vCli2>20) entao
      escreval(nome2, " gastou R$",vCli2:5:2)
   fimse
   se (vCli3>20) entao
      escreval(nome3, " gastou R$",vCli3:5:2)
   fimse
   se (vCli4>20) entao
      escreval(nome4, " gastou R$",vCli4:5:2)
   fimse
   se (vCli5>20) entao
      escreval(nome5, " gastou R$",vCli5:5:2)
   fimse
fimalgoritmo

Exercicio 6 capitulo 3

Escreva um algoritmo que leia os coeficientes a, b, c, d e f e calcule e escreva os valores de x e y.
Lembre-se de que os denominadores das equações não podem ser zero.

algoritmo "Exercicio 3.6"
// Função :
// Autor : Gustavo Quirino
// Data : 19/9/2010
// Seção de Declarações 
var
   vA,vB,vC,vD,vE,vF,x,y,denominador:real
inicio
   escreval("Informe o valor de 'a':")
   leia(vA)
   
   escreval("Informe o valor de 'b':")
   leia(vB)
   
   escreval("Informe o valor de 'c':")
   leia(vC)
   
   escreval("Informe o valor de 'd':")
   leia(vD)
   
   escreval("Informe o valor de 'e':")
   leia(vE)
   
   escreval("Informe o valor de 'f':")
   leia(vF)

      denominar<- ((vA*vE)-(vB*vD))
   se (denominador=0) entao
      escreva("O valor de 'a', 'e', 'b' e 'd' não podem ser igual a 0(zero)")
   senao
      x<- ((vC*vE)-(vB*vF))/denominador
      y<- ((vA*vF)-(vC*vD))/denominador
      
      escreval("X = ",x)
      escreva("Y = ",y)
   fimse
fimalgoritmo

Exercicio 5 capitulo 3

Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do
segundo.

algoritmo "Exercicio 3.5"
// Função :
// Autor :  Gustavo Quirino
// Data : 19/9/2010
// Seção de Declarações
var
   num1,num2,resto:real
inicio
   escreval("Informe o primeiro número:")
   leia(num1)
   
   escreval("Informe o segundo número:")
   leia(num2)
   
   se (num1>0)entao
      resto<- num1 mod num2
   senao
      resto<- num2 mod num1
   fimse
   
   se (resto>0)entao
      escreva("Não é múltiplo")
   senao
      escreva("É múltiplo")
   fimse
fimalgoritmo

Exercicio 4 capitulo 3

Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser
positivo ou zero.

algoritmo "exercicio 3.4 - Area do circulo"
var
   raio,area:real
inicio
   escreval("Informe o raio:")
   leia(raio)
   
   se (raio>=0) entao
      area<- 3.141518*(raio^2)
      escreva("A área é: ",area:5:2)
   senao
      escreva("O raio deve ser maior ou igual a zero")
   fimse
fimalgoritmo

Exercicio 3 capitulo 2

Quais os valores armazenados em SOMA, NOME e TUDO após executados os passos abaixo,
supondo-se que NUM, X, COR, DIA, TESTE e COD valem, respectivamente, 5, 2, “AZUL”, “TERÇA”, FALSO e VERDADEIRO?
    1. NOME <- DIA
    2. SOMA <- (NUM^2/X) + (X + 1)
    3. TUDO <- não ((TESTE ou COD) e (X <> NUM))

----------

NOME = "TERÇA"

SOMA = 15.5

TUDO = FALSO

Exercicio 2 capitulo 3

Avalie (forneça o resultado da expressão lógica)

             (((5/2 = 5/2) e (3.0 <> 3.1)) ou (5 >= 4)) e (não(5 = 5.0))

mostrando todos os passos utilizados para obtenção da solução.

(((5/2 = 5/2) e (3.0 <> 3.1)) ou (5 >= 4)) e (não(5 = 5.0)) = F

(5/2 = 5/2) = V
(3.0 <> 3.1) = V

Primeiro conjunto (e) é verdadeiro.
() = V

 - - - - - - 

(5 >= 4) = V

() = V

Resultado do primeiro conjunto com este se torna verdade, nem era preciso testar esse segundo pois foi usado o condicional ou, só pelo fato do primeiro ser verdadeiro já validava a sentença.

(não(5 = 5.0)) = F

Apesar de 5 ser igual a 5.0, o resultado foi invertido pelo nao, tornando se falso. O resultado do conjunto () e esse último, se torna falso pois para o condicional e, os dois testes deveriam ser verdadeiros.

Exercicio 1 capitulo 3

Resolva as expressões lógicas:
1.   2 >3                                            2. (6 < 8) ou (3 > 7)
3.  não (2 <> 2.0)                                   4. 5 >= 6 ou 6 < 7 ou não ( a+ 5 – 6 = 8)
                                                  onde a = 5
5.   ( 34 < 9 e 5 + u = 34) ou (5 = 15/3 e 8 > 12) onde u = 29
----------------------------
1. Falsa
2. Verdadeira
3. Vedadeira
4. Verdadeira
5. Falsa

Condicionais - Categoria de um nadador

algoritmo "Categoria do nadador"
var
   idade:inteiro
inicio
   escreval("Informe sua idade:")
   leia(idade)
   
   se (idade<5) entao
      escreva("Idade insuficiente")
   senao
      se (idade>=5) e (idade<=7) entao
         escreva("Infantil 'A'")
      senao
         se(idade>=8) e (idade<=10) entao
            escreva("Infantil 'B'")
         senao
            se(idade>=11) e (idade<=13) entao
               escreva("Juvenil 'A'")
            senao
               se(idade>=14) e (idade<=17) entao
                  escreva("Juvenil 'B'")
               senao
                  escreva("Adulto")
               fimse
            fimse
         fimse
      fimse
   fimse
fimalgoritmo

Condicionais - Múltiplos ou não

algoritmo "Verificar se é multiplo"
var
   a,b,resto:real
inicio
   escreval("Informe o valor para 'a':")
   leia(a)
   
   escreval("Informe o valor para 'b':")
   leia(b)
   
   //Verificando quem é maior para decidir quem será o divisor ou dividendo
   se (a>0) entao
      resto<- b mod a
   senao
      resto<- a mod b
   fimse
   
   //Verificando se o resto é diferente de zero
   se (resto=0) entao
      escreva("São múltiplos")
   senao
      escreva("Não são múltiplos")
   fimse
fimalgoritmo

Condicionais - Maior número entre três.

algoritmo "Receber tres numeros e falar qual é o maior"
var
   a,b,c:real
inicio
      escreval("Informe o numero 1:")
      leia(a)
      
      escreval("Informe o numero 2:")
      leia(b)
      
      escreval("Informe o número 3:")
      leia(c)
      
      se (a>b) e (a>c) entao
         escreva("O primeiro número é maior")
      senao
         se (b>c) e (b>a) entao
            escreva("O segundo número é maior")
         senao
            escreva("O terceiro número é maior")
         fimse
      fimse
fimalgoritmo

Condicionais - Aprovado ou não

Faça um fluxograma que receba duas notas e calcule a média e mostre uma das seguintes mensagens:
>= 5 : Aprovado
<5 : Reprovado

algoritmo "Calcular média e mostrar se é aprovado ou nao"

var

   nota1,nota2,media:real

inicio

   escreval("Informe a primeira nota:")

   leia(nota1)

   escreval("Informe a segunda nota:")

   leia(nota2)

   media<-(nota1 + nota2)/2      
   se media>=5 entao

      escreva("Media:",media,", Aprovado!")

   senao

      escreva("Media:",media,", Reprovado!")

   fimse

fimalgoritmo

Redes

Dois amigos meu fazendo redes na FATEC....

Jogos em GameMaker

Para quem quiser baixar a video aula, eu postei no megaupload:

http://www.megaupload.com/?d=N4927A7Q

O vídeo abaixo está com qualidade pequena devido à compressão que o blogger faz, se você desejar ver o vídeo com qualidade maior, pode fazer o download com qualidade maxima, ou pode acessar a rede da FATEC pois vou disponibilizar lá também.

Para quem quiser baixar a video aula, eu postei no megaupload:

http://www.megaupload.com/?d=N4927A7Q

Exercicio 21 capitulo 2

A comissão de formatura de um curso está organizando a festa de formatura de sua turma e
levantou as seguintes informações:
25
1. custo do salão (capacidade de 800 pessoas com mesas de 4 pessoas) R$ 2000.00;
2. custo da sonorização: R$ 500,00
3. custo da decoração: R$ 800,00
Além desses custos, que serão rateados igualmente entre os formandos, há custos cuja divisão é
proporcional ao número de convidados do formando. São eles:
1. segurança: necessário um segurança para cada 80 pessoas da festa;
2. garçom: um garçom consegue atender 48 pessoas (ou 12 mesas de 4 pessoas); e
3. bebida.
Escreva um algoritmo que leia o nome de cada um dos cinco formandos com seus respectivos
números de convidados. Ele também deve ler os custos de um segurança, de um garçom e da
bebida. O algoritmo deve calcular e escrever, para cada formando o número de mesas desitnadas
para seus convidados e o custo da festa para eles. As mesas poderão ser compartilhadas entre
convidados de diferentes formandos.

algoritmo "Exercicio 2-21"
var
   //Nomes
   nomeFormando1,nomeFormando2,nomeFormando3,nomeFormando4,nomeFormando5:literal
   //Qtde de convidados
   qtdeConvidadosF1,qtdeConvidadosF2,qtdeConvidadosF3,qtdeConvidadosF4,qtdeConvidadosF5,totalConvidados:inteiro
   //Servicos
   precoBebida,precoGarcom,precoSeguranca:real
   //Custos
   //custoFixoIndividual,custoVariavelIndividualF1,custoVariavelIndividualF2,custoVariavelIndividualF3,custoVariavelIndividualF4,custoVariavelIndividualF5:real
   custoFixoIndividual,custoTotalGarcom,custoTotalSeguranca,custoTotalF1,custoTotalF2,custoTotalF3,custoTotalF4,custoTotalF5:real
inicio
   escreval("Informe o nome do formando 1:")
   leia(nomeFormando1)
   
   escreval("Informe a quantidade de convidados do formando 1:")
   leia(qtdeConvidadosF1)
   
   ///////////////////////////////////////
   escreval("Informe o nome do formando 2:")
   leia(nomeFormando2)
   
   escreval("Informe a quantidade de convidados do formando 2:")
   leia(qtdeConvidadosF2)
   
   ////////////////////////////////////////
   escreval("Informe o nome do formando 3:")
   leia(nomeFormando3)
   
   escreval("Informe a quantidade de convidados do formando 3:")
   leia(qtdeConvidadosF3)
   
   ////////////////////////////////////////
   escreval("Informe o nome do formando 4:")
   leia(nomeFormando4)
   
   escreval("Informe a quantidade de convidados do formando 4:")
   leia(qtdeConvidadosF4)
   
   ////////////////////////////////////////
   escreval("Informe o nome do formando 5:")
   leia(nomeFormando5)
   
   escreval("Informe a quantidade de convidados do formando 5:")
   leia(qtdeConvidadosF5)
   
   ////////////////////////////////////////
   escreval("Informe o custo para um seguranca:")
   leia(precoSeguranca)
   
   escreval("Informe o custo para um garçom:")
   leia(precoGarcom)
   
   escreval("Informe o custo da bebida por convidado:")
   leia(precoBebida)
   
   ///////////////////////////////////////
   //Calculando custos fixos por formando:
   //400 do salao
   //100 da sonorizacao
   //800 da decoracao
   custoFixoIndividual<- 400+100+160
   
   totalConvidados<- qtdeConvidadosF1+qtdeConvidadosF2+qtdeConvidadosF3+qtdeConvidadosF4+qtdeConvidadosF5
   
   //Descobrimos quantos garçons serao necessarios e multiplicamos o custo de cada garcom
   //Por exemplo: 80 convidados no total / 48 = 1.6666666666... garcons. Nao tem como medir um garcom e meio oÔ. Entao pego o inteiro desse resultado = 1 e somo mais 1 = 2 garcons
   //Se nos ja usassemos verificacoes condicionais, daria para ver quando adicionariamos 1 ou nao. Se o total de conviddos fosse multiplo de 48, nunca precisariamos somar 1.
   custoTotalGarcom<- ((totalConvidados div 48)+1)*precoGarcom
   
   //Descobrimos quantos segurancas serao necessarios e multiplicamos o custo de cada seguranca
   //Se nos ja usassemos verificacoes condicionais, daria para ver quando adcionariamos 1 ou nao
   custoTotalSeguranca<- ((totalConvidados div 80)+1)*precoSeguranca
   
   custoTotalF1<- ((custoTotalGarcom/totalConvidados)*qtdeConvidadosF1) + ((custoTotalSeguranca/totalConvidados) + (precoBebida*qtdeConvidadosF1)*qtdeConvidadosF1)+custoFixoIndividual
   custoTotalF2<- ((custoTotalGarcom/totalConvidados)*qtdeConvidadosF2) + ((custoTotalSeguranca/totalConvidados) + (precoBebida*qtdeConvidadosF2)*qtdeConvidadosF2)+custoFixoIndividual
   custoTotalF3<- ((custoTotalGarcom/totalConvidados)*qtdeConvidadosF3) + ((custoTotalSeguranca/totalConvidados) + (precoBebida*qtdeConvidadosF3)*qtdeConvidadosF3)+custoFixoIndividual
   custoTotalF4<- ((custoTotalGarcom/totalConvidados)*qtdeConvidadosF4) + ((custoTotalSeguranca/totalConvidados) + (precoBebida*qtdeConvidadosF4)*qtdeConvidadosF4)+custoFixoIndividual
   custoTotalF5<- ((custoTotalGarcom/totalConvidados)*qtdeConvidadosF5) + ((custoTotalSeguranca/totalConvidados) + (precoBebida*qtdeConvidadosF5)*qtdeConvidadosF5)+custoFixoIndividual
   
   escreval("* * * * * * * *  C U S T O S * * * * * * * *")
   escreval("O formando ",nomeFormando1," gastará ",custoTotalF1:5:2," R$")
   escreval("O formando ",nomeFormando2," gastará ",custoTotalF2:5:2," R$")
   escreval("O formando ",nomeFormando3," gastará ",custoTotalF3:5:2," R$")
   escreval("O formando ",nomeFormando4," gastará ",custoTotalF4:5:2," R$")
   escreval("O formando ",nomeFormando5," gastará ",custoTotalF5:5:2," R$")
   escreval
   escreval("* * * * * * * * M E S A S  * * * * * * * * * ")
   escreval("O formando ",nomeFormando1," precisará de ",qtdeConvidadosF1/4)
   escreval("O formando ",nomeFormando2," precisará de ",qtdeConvidadosF2/4)
   escreval("O formando ",nomeFormando3," precisará de ",qtdeConvidadosF3/4)
   escreval("O formando ",nomeFormando4," precisará de ",qtdeConvidadosF4/4)
   escreval("O formando ",nomeFormando5," precisará de ",qtdeConvidadosF5/4)
   
fimalgoritmo

Exercicio 20 capitulo 2

O custo final de um carro é a soma do custo de fábrica com o percentual de revenda mais impostos,
ambos aplicados ao custo de fábrica. Escreva um algoritmo que leia o nome do modelo de um carro,
seu custo de fábrica e os percentuais de revenda e de impostos e escreva o custo ao consumidor do
carro.

algoritmo "2-20"
var
   nome:literal
   valorHora,qtdeHoras,salarioLiquido,salarioBruto:real
inicio
   escreval("Informe o nome do funcionário:")
   leia(nome)

   escreval("Informe a quantidade de horas trabalhadas do ",nome)
   leia(qtdeHoras)

   escreval("Informe o valor da hora:")
   leia(valorHora)

   salarioBruto<- qtdeHoras*valorHora
   salarioLiquido<- salarioBruto-(salarioBruto*0.09)-(salarioBruto*0.08)

   escreva("O salário líquido do ",nome," é: ",salarioLiquido," R$")
fimalgoritmo

Exercicio 19 capitulo 2

O custo final de um carro é a soma do custo de fábrica com o percentual de revenda mais impostos,
ambos aplicados ao custo de fábrica. Escreva um algoritmo que leia o nome do modelo de um carro,
seu custo de fábrica e os percentuais de revenda e de impostos e escreva o custo ao consumidor do
carro.

algoritmo "Exercicio 2-19"
var
   modeloCarro:literal
   precoFabrica,percentualImpostos,percentualRevenda,precoFinal:real
inicio
   escreval("Informe o modelo do veículo:")
   leia(modeloCarro)
   
   escreval("Informe o preco de fábrica:")
   leia(precoFabrica)
   
   escreval("Informe o percentual de impostos: (%)")
   leia(percentualImpostos)
   percentualImpostos<- percentualImpostos/100
   
   escreval("Informe o percentual de revenda: (%)")
   leia(percentualRevenda)
   percentualRevenda<- percentualRevenda/100
   
   precoFinal<- precoFabrica+(precoFabrica*percentualImpostos)+(precoFabrica*percentualRevenda)
   escreva("O preco final do ",modeloCarro," é:",precoFinal:5:2," R$")
fimalgoritmo

Exercicio 18 capitulo 2

Uma revenda de carros paga a seus vendedores um salário de X reais por mês, acrescido de uma
comissão de y reais para cada carro vendido e 4% do valor total de vendas. Escreva um algoritmo
que leia o nome do vendedor, seu salário, número de carros que ele vendeu no mês e o valor total
de suas vendas. O algoritmo deve escrever o nome e o salário final do vendedor.

algoritmo "Exercicio 2-18"
var
   nome:literal
   salarioFixo,valorCarrosVendidos,comissaoPorCarro,salarioLiquido:real
   qtdeCarrosVendidos:inteiro
inicio
   escreval("Informe o nome do vendedor:")
   leia(nome)
   
   escreval("Informe o salário fixo do ",nome,":")
   leia(salarioFixo)
   
   escreval("Informe a comissão por carro vendido:")
   leia(comissaoPorCarro)
   
   escreval("Informe a quantidade de carros vendidos:")
   leia(qtdeCarrosVendidos)
   
   escreval("Informe o total monetario de suas vendas:")
   leia(valorCarrosVendidos)
   
   salarioLiquido<- salarioFixo+(comissaoPorCarro*qtdeCarrosVendidos)+(valorCarrosVendidos*0.04)
   
   escreva("O salário líquido do ",nome," será de: ",salarioLiquido:5:2," R$")
fimalgoritmo

Exercicio 17 capitulo 2

Faça um algoritmo que leia o dia do mês ( valor de 1 a 31), e o dia da semana correspondente (1 a
7). O algoritmo deve calcular e escrever o dia da semana (1 a 7) correspondente ao primeiro dia do
mês.

????

Exercicio 16 capitulo 2

Escreva um algoritmo que leia um valor composto apenas de 0’s e 1’s representando um número na
base binária (com até 6 dígitos ou bits). O algoritmo deve escrever esse mesmo número na base
decimal. A conversão de binário para decimal é feita somando –se os produtos de cada digito do
número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2°), o seguinte tem
peso 2 (21), 4 (22), 8 (23), etc. Por exemplo 110101 é 53 .
2 10
(1x32 + 1x 16 + 0x8 + 1x4 + 0x 2 + 1x1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)

algoritmo "Exercicio 2-16"
var
   b0,b1,b2,b3,b4,b5: inteiro
   decimal: real
inicio
   escreva("Informe 0 ou 1")
   escreval
   leia(b0)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b1)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b2)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b3)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b4)
   
   escreva("Informe 0 ou 1")
   escreval
   leia(b5)

   decimal<- (b5*2^5) + (b4*2^4) + (b3*2^3) + (b2*2^2) + (b1*2^1) + (b0*2^0)
   
   escreva("Decimal: ",decimal)
fimalgoritmo

Exercicio 15 capitulo 2

Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.

algoritmo "Exercicio 2-15"
var
   raio,area:real
inicio
   escreval("Informe o raio da circunferencia:")
   leia(raio)
   
   area<- 3.14*raio^2
   escreva("A área é:",area)
fimalgoritmo

Exercicio 13 capitulo 2

Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão
geométrica dada por:
an = a1 * q^(n-1)
onde a1, é o primeiro termo da série, an, é o enésimo termo, q é a razão e n é o numero de termos.
Os valores de a1, q e n serão fornecidos pelo usuário.

algoritmo "Exercicio 2-13"
var
   an,a1,n,q:real
inicio
   escreval("Informe o valor para 'n':")
   leia(n)
   
   escreval("Informe o valor para 'a1':")
   leia(a1)
   
   escreval("Informe o valor para 'q':")
   leia(q)
   
   an<- a1*q^(n+1)
   
   escreva("O resultado é:",an)
fimalgoritmo

Exercicio 12 capitulo 2

Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão
aritmética dada pela formula:
sn = ((a1 + an) / 2) * n
Onde a1, é o primeiro termo da progressão, an, é o ultimo e n é o numero de termos, tal que:
n = ((an – a1) / r) + 1
Os valores de a1, an e r (a razão da progressão) serão fornecidas pelo usuário.

algoritmo "Exercicio 2-12"
var
   a1,an,sn,r,n:real
inicio
   escreval("Informe o valor para 'a1':")
   leia(a1)
   
   escreval("Informe o valor para 'an':")
   leia(an)

   escreval("Informe o valor para 'r':")
   leia(r)
   
   n<- ((an - a1)/2)+1
   sn<- ((a1 + an)/2)*n
   
   escreva("O resultado é:",sn)
fimalgoritmo

Exercicio 11 capitulo 2

Em uma pizzaria, cada tulipa de chope custa R$ 2,80 e, uma pizza mista grande custa R$ 20.00 mais
R$ 1.50 por tipo de cobertura pedida (queijo, presunto, banana, etc.). Uma turma vai à pizzaria e
pede uma determinada quantidade de chopes e pizzas grandes com uma determinada quantidade
de coberturas. Escreva um algoritmo que calcula a conta e, sabendo quantas pessoas estão à mesa,
quanto cada uma deve pagar (não esqueça os 10% do garçom).

algoritmo "Exercicio 2-11"
var
   qtdeChope,qtdePizza,qtdeCobertura,qtdePessoas:inteiro
   garcom,subTotal,total,totalPorPessoa:real
inicio
   escreval("Informe a quantidade de pessoas à mesa:")
   leia(qtdePessoas)
   
   escreval("Informe a quantidede de chopes servidos:")
   leia(qtdeChope)
   
   escreval("Informe a quantidade de pizzas servidas:")
   leia(qtdePizza)
   
   escreval("Informe a quantidade de coberturas servidas com as pizzas:")
   leia(qtdeCobertura)
   
   //Precos:
   //Chope> 2,80
   //Pizza> 20,00
   //Cobertura> 1,50
   subTotal<- (qtdePizza*20) + (qtdeChope*2.80) + (qtdeCobertura*1.50)
   garcom<- subTotal*0.1 //Exemplo: 100,00 * 0.1 = 10
   total<- subTotal+garcom
   totalPorPessoa<- total/qtdePessoas
   escreva("Cada pessoa deverá pagar: ",totalPorPessoa:5:2," R$")
fimalgoritmo

Exercicio 10 capitulo 2

Escreva um algoritmo que leia o nome de um piloto, uma distância percorrida em quilômetros e o
tempo que o piloto levou para percorrê-la (em minutos). O algoritmo deve calcular a velocidade em
km/h, e exibir a seguinte frase:
A velocidade média do foi
km/h

algoritmo "Exercicio 10 capitulo 2"
var
   nome:literal
   media,distancia:real
   tempo:inteiro
inicio
   escreval("Informe o nome do piloto:")
   leia(nome)
   
   escreval("Informe a distancia percorrida em km:")
   leia(distancia)
   
   escreval("Informe o tempo gasto em minutos:")
   leia(tempo)
   
   media<- distancia/(tempo/60)
   escreva("A velocide media do piloto",nome," foi de",media," km/h")
fimalgoritmo

Exercicio 9 capitulo 2

Um representante comercial realizará uma viagem de vários dias com um automóvel, e, após,
deseja saber a quilometragem média por litro de gasolina. Para isso, ele anotará a quilometragem
no velocímetro ao sair de viagem e, depois, a quilometragem na chegada, ele também vai somar
toda gasolina (em litros) usada para abastecer o carro durante a viagem. Escreva um algoritmo que,
a partir desses dados, informe a quilometragem média por litro de gasolina.

algoritmo "exercicio 2-9 Consumo do carro"
var
   gasInicio,gasFim, kmInicio, kmFim:inteiro
   consumo:real
inicio
   escreval("Calculador de consumo de um automóvel")
   
   escreval("Informe com quantos quilômetros seu víuculo estava antes do percurso")
   leia(kmInicio)
   
   escreval("Informe quantos litros de combustível seu veículo tinha antes do percurso")
   leia(gasInicio)
   
   escreval("Informe com quantos quilômetros seu veículo ficou depois do percurso")
   leia(kmFim)

   escreval("Informe com quantos litros de combústivel seu veiculo ficou depois do percurso")
   leia(gasFim)
   
   consumo<- ((kmInicio-kmFim)/(gasFim-gasInicio))
   escreva("O consumo do carro é de",consumo:5:2," quilômetros por litro")

fimalgoritmo

Exercicio 8 capitulo 2

No seguinte algoritmo existem erros de sintaxe? Em caso afirmativo, onde ?

altoritmo "Teste"  //troque altoritmo por algoritmo
var
marca: literal
idade: numérico    //variaveis e tipos nao devem conter acentos, tire-os
letra: literal
marca : numérico   //variaveis e tipos nao devem conter acentos, tire-os. Alem disso, a variavel marca ja existe
início             //separador de estrutura nao devem conter acentos, tire-os
leia(idade)
escreva(idade)
idade = 678        //Em algoritmo, nao se usa '=' para atribuicao de valor, use '<-'
leia("letra")      //O comando 'leia()' precisa saber o nome da variavel que ira receber o valor lido, tire as aspas e o sistema verificara que existe uma variavel chamada 'letra' e atribuira o valor a ela.
leia(ABC)          //Variavel 'ABC' nao existe
escreva (letra)
letra <- 4         //Variavel letra e do tipo literal, nao pode receber numeros
fimalgoritmo

Exercicio 7 capitulo 2

Escreva um algoritmo que calcule o valor de base expoente . O algoritmo deve ler o valor da base e do
expoente. Após, ele deve escrever o valor de base expoente .

algoritmo "Exercicio 7 capitulo 2"
var
   base,expoente,resultado:real
inicio
   escreval("Informe o valor da base:")
   leia(base)
   
   //O espaco que coloco entre as etapas é somente para organizar, nao interfere
   //no funcionamento
   escreval("Informe o valor do expoente:")
   leia(expoente)
   
   resultado<- base^expoente
   //Porque 'escreva' em vez de 'escreval'? Porque nao preciso pular linha mais,
   //é a ultima vez que escreverei na tela
   escreva("O resultado é:", resultado)
fimalgoritmo

Exercicio 6 capitulo 2

Assinale com um X os comandos de atribuição considerados inválidos:

Exercicio 5 capitulo 2

Assinale com um X os nomes de variáveis válidos:

Exercicio 4 capitulo 2

Classifique os valores das constantes abaixo, de acordo com seu tipo, assinalando com N os dados
numéricos e com L os literais:

Exercício 3 capitulo 2

Resolva a expressão aritmética abaixo montando todos os passos utilizados para a obtenção da
solução:
(20%7) + 7 – 3.0 + 7/2 + (19\5) + (20 + 4)/4*3

algoritmo "Exercicio 3 capitulo 2"
var
   total:real
inicio
   total <- (20%7) + 7 - 3.0 + 7/2 + (19\5) + (20 + 4)/4*3
   escreva("O valor da expressao e: ", total)
fimalgoritmo

Exercicio 2 capitulo 2

Escreva as expressões abaixo na forma convencional:
1. (12 + 1)/ (4*a/45)^0.5                         2. (a + x^(2 + w) -3*a)/2
3. 12*x/(36 – 9^y)                                   4. (17^0.5 + 4)/3

Exercício 1 capitulo 2

1) raizq(((2+x)*x+u)/(a+b+c))
2) x^2+(3*x^(x+1))/2+raizq(x+1)
3) h-((45/7*x)-4*h*(3+a))^3
4) (-b-(raizq((b^2-4)*a*c)))/(2*a)
5) -raizq((-6^x+2*y)/3^9)
6) raizq(6)+((x*y)/(2*x))+3^2-(x^2/3)

Peso ideal (IMC = 25)

Faça um algoritmo que receba a altura de uma pessoa e informe seu peso ideal:

IMC = peso/altura²

algoritmo "IMC"
var
   altura,pesoIdeal:real
inicio
      escreval("Informe a sua altura:")
      leia(altura)
      
      //Perceba como nomeei essa variável. Vairaveis nao podem conter espaco
      //entre si, entao tive que juntar as duas palavras 'peso' e 'ideal'.
      //Nesse caso, para diferenciar a segunda palavra e facilitar a compreensao,
      //a segunda palavra comeca com maiuscula. Exemplo: variavelCompostaDeVariasPalavras.
      //Lembre-se: NADA de acentos em nome de variaveis.
      pesoIdeal<- (25*altura^2)
      escreva("O seu peso ideal é: ",pesoIdeal:5:2)
      
fimalgoritmo

Converter segundos em, horas, minutos e segundos

Esse blog foi criado a muito tempo atrás como forma de divulgar os trabalhos da faculdade aos colegas de classe. Hoje ele se encontra abandonado mas você pode visitar o meu site, onde encontrará bastante conteúdo relacionado à tecnologia e informática

www.gqferreira.com.br

Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expresso em segundos e mostre-o expresso em horas, minutos e segundos.

algoritmo "Segundos em hora,minutos e segundos Ex.6"
var
   segundos,minutos,horas:inteiro
inicio
      escreval("Informe o tempo em segundos:")
      leia(segundos)
      
      horas<- segundos div 3600
      minutos<- (segundos-(horas*3600)) div 60
      segundos<- segundos-(horas*3600)-(minutos*60)
      
      escreva(horas," horas,",minutos," minutos e",segundos," segundos")
fimalgoritmo

Média ponderada

Faça um algoritmo que leia as 3 notas de um aluno e calcule a média final deste aluno.
Considerar que a média é ponderada e que o peso das notas é: 2, 3 e 5, respectivamente.

algoritmo "Media ponderada Ex.5"
var
   nota1,nota2,nota3,media:real
inicio
      escreval("Informe a nota 1:")
      leia(nota1)
      
      escreval("Informe a nota 2:")
      leia(nota2)
      
      escreval("Informe a nota 3:")
      leia(nota3)
      
      media<- (((nota1*2)+(nota2*3)+(nota3*5))/10)
      escreva("A média é:",media:5:2)
fimalgoritmo

Idade em anos para, anos, meses e dias

Esse blog foi criado a muito tempo atrás como forma de divulgar os trabalhos da faculdade aos colegas de classe. Hoje ele se encontra abandonado mas você pode visitar o meu site, onde encontrará bastante conteúdo relacionado à tecnologia e informática

www.gqferreira.com.br

Faça um algoritmo que leia a idade de uma pessoa expressa em dias, e mostre-a expressa em anos, meses e dias:

algoritmo "Pegar idade em dias e converter em anos,meses e dias Ex.4"
var
   dias,meses,anos:inteiro
inicio
      escreval("Informe quantos dias vividos você tem:")
      leia(dias)
      
      anos<- dias div 360
      meses<- (dias-(anos*360)) div 30
      dias<- dias-(anos*360)-(meses*30)
      
      escreva("Você viveu",anos," ano(s) e",meses," mês(s) e",dias," dia(s)")

fimalgoritmo

Idade para dias

Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e mostre-a expressa apenas em dias:

algoritmo "Idade Ex.3"
var
   anos,meses,dias:inteiro
inicio
      escreval("Informe quantos anos você tem:")
      leia(anos)
      
      escreval("Informe quantos meses você tem:")
      leia(meses)
      
      escreval("Informe quantos dias você tem:")
      leia(dias)
      
      escreva("Você tem:",dias+(meses*30)+(anos*360)," dias vividos")
      
fimalgoritmo

Calcular expressao

Escreva um algoritmo que leia 3 números inteiros positivos (A, B, C) e calcule a seguinte expressão:
D = (R+S)/2
Onde:
R = (A+B)^2
S = (B+C)^2

algoritmo "Calculo de expressao Ex.2"
var
   a,b,c,r,s:real
inicio
      escreval("Informe o valor de 'a':")
      leia(a)
      
      escreval("Informe o valor de 'b':")
      leia(b)
      
      escreval("Informe o valor de 'c':")
      leia(c)
      
      r<- (a+b)^2
      s<- (b+c)^2
      escreva("O resultado é:",(r+s)/2)
fimalgoritmo

Distancia entre dois pontos

Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer do plano, P(x1, y1) e P(x2,y2), escreva a distância entre eles.
A fórmula que efetua tal cálculo é:
d=raizq(((x2-x1)^2) + ((y2-y1)^2))

algoritmo "Plano cartesiano Ex.1"
var
   x1,x2,y1,y2,resultado:real
inicio
      escreval(">>Primeiro ponto(X1,Y1)")
      
      escreval("Informe o valor do X1:")
      leia(x1)

      escreval("Informe o valor do Y1:")
      leia(y1)
      
      ////////////Segundo ponto
      escreval(">>Segundo ponto(X2,Y2)")
      
      escreval("Informe o valor do X2:")
      leia(x2)
      
      escreval("Informe o valor do Y2:")
      leia(y2)
      
      resultado<- raizq(((x2-x1)^2) + ((y2-y1)^2))
      ////Realizando e mostrando o cáculo
      escreva("O resultado é:",resultado:5:2)
fimalgoritmo

Ração para gatos

Você possui 2 gatos e acabou de comprar um pacote de ração (Kg). Você deve dividir as porções da ração levando em consideração o peso de cada gato. Sabendo que para cada 1Kg de gato, deverá ser servido 50g de ração diariamente.
Faça um algoritmo que solicite o peso de cada gato e o peso (kg) do pacote de ração.
O algoritmo deverá calcular as porções diárias e mostrar o quanto (em gramas) existe no pacote de ração após 5 dias:

algoritmo "Gato"
var
   gato1,gato2,racao,gramasDiariasGato1,gramasDiariasGato2,soma: real
inicio
      //Pedindo o peso do gato 1 em quilogramas
      escreval("Informe o peso do gato 1:")
      leia(gato1)
      
      //Pedindo o peso do gato 2 em quilogramas
      escreval("Informe o peso do gato 2:")
      leia(gato2)
      
      //Pedindo o peso do pacote de ração em quilogramas
      escreval("Informe o peso do pacote de ração:")
      leia(racao)
      
      //Cada um quilo de gato equivale a 50 gramas de racao. Exemplo: 2kg de gato X 50g de ração = 100g de ração.
      gramasDiariasGato1<- gato1*50
      gramasDiariasGato2<- gato2*50
      
      //Soma é a somatoria de todo o consumo de ração de dos dois gatos durante cinco dias.
      soma<- 5*(gramasDiariasGato1+gramasDiariasGato2)
      //Mostrando o que sobrou no pacote depois de calculado o consumo para cinco dias
      escreval("Ração após cinco dias:",(racao*1000)-soma," gramas")
      escreval("Consumo diário do gato 1:",gramasDiariasGato1," gramas")
      escreva("Consumo diário do gato 2:",gramasDiariasGato2," gramas")
fimalgoritmo

Área do triângulo equilátero

Calcular a área de um triângulo equilátero, onde todos os lados sao inguais.

algoritmo "Triangulo equilatero"
var
   base,altura,area:real
inicio
      escreval("Informe a base do triangulo:")
      leia(base)
      
      altura <- (base*(raizq(3)/2))
      area<- ((base*altura)/2)
      //5:2 é para formatar. Quero dizer que farei um arredondamento para no máximo 5 digitos, sendo 2 a parte decimal(depois da vírgula)
      escreva("A area é: ",area:5:2)
fimalgoritmo

Área do triângulo

Calcular a área do triângulo:

algoritmo "Cálculo da área do triângulo"
var
   base, altura:real
inicio
      escreval("Informe a base do triângulo:")
      leia(base)
      
      escreval("Informe a altura do triângulo:")
      leia(altura)
      
      escreva("A área é: ",(base*altura)/2)
fimalgoritmo

Média

Receber tres valores e calcular a média

algoritmo "Media"
var
   n1,n2,n3,media : real
inicio

      //lembre-se: escreval(): escreve e pula uma linha
      //           escreva():  escreve e nao pula linha, ou seja, a proxima vez que voce for escrever, vai sair na frente e nao embaixo
      escreval("Informe a nota 1:")
      leia(n1)
      
      escreval("Informe a nota 2:")
      leia(n2)
      
      escreval("Informe a nota 3:")
      leia(n3)
      
      media <- (n1+n2+n3)/3
      escreva ("A média é: ", media:5:2)
      
fimalgoritmo