algoritmo

Prévia do material em texto

Nome: João Vitor Riback
Matricula:2015102531
1-
algoritmo "questaoUm"
var
totalc,totalv:real
venda,compra:vetor[1..3] de real
nome:vetor[1..3] de caracter
i:inteiro
lucro9,lucro1020,lucro21:inteiro
inicio
i<-1
para i<-1 ate 3 faca
escreval("Informe o nome do produto ",i,":")
leia(nome[i])
escreval("Informe o preço de compra:")
leia(compra[i])
totalc<-totalc+compra[i]
Escreval("Informe o preço de venda:")
leia(venda[i])
totalv<-totalv+venda[i]
se (venda[i]<compra[i]*1.10) entao
 lucro9<-lucro9+1
 senao
 se (venda[i]>compra[i]*1.20) entao
 lucro21<-lucro21+1
 senao
 lucro1020<-lucro1020+1
 fimse
fimse
fimpara
escreva("Mercadorias com lucro abaixo de 10%:")
escreval(lucro9)
escreva("Mercadorias com lucro entre 10% e 20%:")
escreval(lucro1020)
escreva("Mercadorias com lucro acima de 20%:")
escreval(lucro21)
escreva("Total de compras em R$:")
escreval(totalc)
escreva("Total de vendas em R$:")
escreval(totalv)
Escreval("Lucro em R$:",totalv-totalc)
fimalgoritmo