[Resolvido] Algoritmo no visualg

[Ana Carol 0]

Gente preciso de ajuda nesse algoritmo,pq eu consegui fazer so ate um pedaço!!

 

Crie um algoritmo no Visualg que possibilite:

(É obrigatório a utilização do laço de repetição)

 

1 - Ler 10 produtos com código, nome, quantidade e preço unitário

2 - Calcule o preço total de cada produto

3 - Escreva o código, nome, quantidade, preço unitário, valor total de cada produto

4 - No final escreva o valor total da compra

5 - Calcule 10% de desconto sobre o valor total da compra

6 - Subtraia o valor do desconto do valor total da compra.

7 - Mostre o valor total da compra com o desconto

algoritmo "semnome"
// Função :
// Autor :
// Data : 25/3/2010
// Seção de Declarações 
var
Codigo : Real
Nome : Literal
Valor: Real
Media : Real
I: inteiro
Total: Real
Qnt : real
inicio
// Seção de Comandos
Para I de 1 Ate 10 Faca
Escreva ("Nome do Produto: ")
Leia (Nome)
Escreva ("Código do Produto: ")
Leia (Codigo)
Escreva ("Valor Unitario do produto: ")
Leia (Valor)
Escreva ("Quantidade do Produto: ")
Leia (Qnt)
Media <-(Valor * Qnt)
Escreval( "O Valor total deste produto é: ", Media)
Fimpara
fimalgoritmo

 

Fiz ate essa parte e nao sei terminar!!

[Lost Dark 0]

Acho que assim da certinho!!

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

algoritmo "semnome"
// Função :
// Autor :
// Data : 30/03/2010
// Seção de Declarações 
var
Codigo : Real
Nome : Literal
Valor: Real
Media : Real
I: inteiro
Total: Real
Qnt : real
desc : real
total_desc : real
inicio
// Seção de Comandos
Para I de 1 Ate 10 Faca
Escreva ("Nome do Produto: ")
Leia (Nome)
Escreva ("Código do Produto: ")
Leia (Codigo)
Escreva ("Valor Unitario do produto: ")
Leia (Valor)
Escreva ("Quantidade do Produto: ")
Leia (Qnt)
total <-(Valor * Qnt)
Escreval( "O Valor total deste produto é: ", total)
media <- (total+media)
escreval ("Total da compra é" , media)
desc <- (media*10/100)
escreval (" o desconto foi de" , desc)
total_desc <-(media-desc)
escreval ("Total a pagar com o desconto oferecido é ", total_desc)
Fimpara
fimalgoritmo

[Ana Carol 0]

Vlw msms, muito obrigada!!!

[Lost Dark 0]

foi nad's!!