Question

Faça um algoritmo em Visualg, utilizando o comando para até, que receba o preço de custo e o preço de venda de 3 produtos. Mostre como resultado se houve lucro, prejuízo ou empatepara cada produto. Informe media depreço de custo e do preço de venda.

Answer 1

Eu faria assim
   // Função :
   // Autor :

   // Data : 27/11/2017
   // Seção de Declarações

   //Faça um algoritmo em Visualg, utilizando o comando para até,
   //que receba o preço de custo e o preço de venda de 3 produtos.
   //Mostre como resultado se houve lucro, prejuízo ou empate
   // para cada produto. Informe media depreço de custo e do preço de
enda.
   
   var

      custo : real
      preco : real
      somapreco : real
      somacusto : real
      i : inteiro
   inicio
   para i de 1 ate 3 faca
      escreval("Informe o custo do produto ",i)
      leia(custo)
      escreval("Informe o preco do produto ",i )
      leia(preco)
      se custo < preco entao
          escreval("Houve lucro de ", preco-custo)
      senao
           escreval("Houve prejuiso de ", custo-preco)
      fimse
      somapreco <- somapreco + preco
      somacusto <- somacusto + preco

   fimpara
escreval( "A média de custo é ",somacusto/3)
escreval( "A média de preço é ",somapreco/3)


   fimalgoritmo