Exercicio 4 de Logica de Programação em (VisualG)

algoritmo "Vetor"

var
i:inteiro
descri : vetor[1..3] de literal
quant : vetor[1..3] de inteiro
preco : vetor[1..3] de real
fatura:real
inicio
fatura:=0
para i de 1 ate 3 faca
escreva(" Entre com a descricao da mercadoria :")
leia(descri[i])
escreva(" entre com o preço unitario da mercadoria ")
leia(preco[i])
escreva(" entre com a quantidade vendida no mês da mercadoria ")
leia(quant[i])
fatura:=fatura+((quant[i])*(preco[i]))
fimpara
escreval(".................................................................")
para i de 1 ate 3 faca
escreval(" A mercadoria ",descri[i], " lida, tem preço unitário = ", preco[i])
escreval( " Teve uma quantidade vendida no mês = " ,quant[i])
fimpara
escreva(" O faturamento Mensal é : ",fatura)
fimalgoritmo