programa para mostrar lucro

[ulfreitas 6]

Bom dia, fiz esse algoritmo, queria opnioes se tá escrito certo, se a logica tá bem desenvolvida ou nao?

O exercicio pedia o seguinte:

"Faça um algoritmo que leia o nome. o custo e o preço de 50 produtos. Ao final deverá relacionar os produtos que:

a)tem lucro menor que 10%

b)tem lucro entre 10% e 30%

c)tem lucro maior que 30% "

 

algoritmo "lucro"
// Função : comparar lucro
// Autor : ULFreitas
// Data : 22/6/2011
// Seção de Declarações 
var
nome : vetor[1..5] de caracter
lucro, custo, preco : vetor[1..5] de real
i : inteiro
inicio
// Seção de Comandos 
para i de 1 ate 5 faca
    escreval("Nome do produto")
    leia(nome[i])
    escreval("Preço do produto")
    leia(preco[i])
    escreval("Custo do produto")
    leia(custo[i])
    lucro[i] <- preco[i] - custo[i]
    lucro[i] <- (lucro[i] * 100) / preco[i]
fimpara
escreval("Produtos que tiveram lucro menor que 10%")
para i de 1 ate 5 faca
    se lucro[i] < 10 entao
       escreval(nome[i])
    fimse
fimpara
escreval("Produtos que tiveram lucro entre 10% e 30%")
para i de 1 ate 5 faca
    se (lucro[i] >= 10) e (lucro[i] <= 30) entao
       escreval(nome[i])
    fimse
fimpara
escreval("Produtos que tiveram lucro maior que 30%")
para i de 1 ate 5 faca
    se lucro[i] > 30 entao
       escreval(nome[i])
    fimse
fimpara
fimalgoritmo

 

precisa melhorar?

Obrigado

[KMRodrigo 1]

gostei.

[lordello 0]

Legal... Ta bem enxuto....

[ulfreitas 6]

Valeu eu achei q ficou meio grande o codigo por causa de todos os laços, mas como aprendi a fazer só até aqui entao vou deixar assim mesmo :/