Question

tenho 5 perguntas sobre algoritmos na programação:
1) Faça um algoritmo que calcule a média de dois números com atribuição fixa e exiba a média na tela;
2)Refaça o algoritmo anterior de cálculo de média de dois números com a entrada de dados sendo realizada pelo usuário;
a)Trate a entrada de dados,utilizando "escreva" antes do "leia".
3)Faça um algoritmo utilizando atribuições de cálculos simples e exemplo do uso de variável lógica;
4)Faça um algoritmo que recebe a quantidade e o preço unitário de uma vendo.Calcule e exiba o valor total da venda e o valor total da venda dividido em duas parcelas;
5)Faça um algoritmo que leia três números inteiros,calcule e exiba a soma e a média dos três números;

Answer 1

1)algoritimo "Media"
   var
   cont:inteiro
   Not:Vetor [1..2] de Real
   Media:Real
  inicio
      Para cont de 1 ate 2 faca
            Escreva(cont,"a Nota: ")
            Leia(Not[c])
     FimPara
    Media <- (Not[1] + Not[2]) / 2
   Escreval("Média do Aluno: ",Media)
fimalgoritimo

2)algoritimo "Media2"
   var
   cont:inteiro
   Not:Vetor [1..10] de Real
   Media:Real
   NT:Inteiro
  inicio
      Escreva("Quantas Notas Serão Calculadas: ")
      Leia(NT)
      Para cont de 1 ate NT faca
            Escreva(cont,"a Nota: ")
            Leia(Not[c])
     FimPara
    Media <- (Not[1] + Not[2]) / NT
   Escreval("Média do Aluno: ",Media)
fimalgoritimo
3)algoritimo "Lógica"
   var
    log:logica
   ID,Filhos:Inteiro
  inicio
    Repita 
    Escreva("Quantos anos voce tem?")
    Leia(ID)
    Esvreva("Quantos Filhos Voce Tem?")
    Leia(Filhos)
    Se (Filhos <= ID) entao
         log <- verdadeiro
   senao
         log <- falso
   fimse
   ate (log = falso)
   Escreval(log)
fimalgoritimo
4)algoritimo "Vendas"
   var
   c,j:inteiro
   Pç:Vetor [1..100] de Real
   It:Vetor [1..100] de Caractere
  sn:Caractere
  inicio
    Repita
            Escreva("Nome do item Vendido: ")
            Leia(It[c])
           Escreval("Preço: ")
          Leia(Pç[c])
         c <- c + 1
        Escreva("Quas continuar? [S/N]")
        Leia(sn)
       ate (sn = "N")
      Para j de 1 ate c faca
             Escreval("Preço ",j,": ",Pç[j])
             Escreval("Nome do item: ",it[j])
             Escreval("Preço parcelado em 2 vezes: ",Pç[j] / 2)
             Escreval("---------------------------")
    FimPara
fimalgoritimo
5)algoritimo "Somador"
   var
   cont,Som:inteiro
   Num:Vetor [1..3] de Real
   Media:Real
  inicio
      Para cont de 1 ate 3 faca
            Escreva(cont,"o Número: ")
            Leia(Num[c])
     FimPara
    Media <- (Num[1] + Num[2] + Num[3]) / 2
   Som <- Num[1] + Num[2] + Num[3]
   Escreval("Média dos Numeros: ",Media)
  Escreval(Num[1],"+",Num[2],"+",Num[3],"=",Som)
fimalgoritimo