Resoluçaõ de algoritmo

[geraldo senac 0]

Criar um algoritimo que leia valores de venda de discos cd,e fita k7 de uma loja em um dia

,desconte a comicão do vendedor (3%) eo repasse ao fornecedor (50%) para gerar o ganho da loja na venda de cada peça, o algoritmo deverar imprimir o valor da venda a comição,o repasse,e o ganho da loja para cada venda totalizando os valores ao final.os dados de entrada terminam com o valor da venda sendo menor ou igual a 0

[tockie 1]

Caro, se você tem alguma dúvida especifica em relação exercício, por favor explicite. Porque ninguém irá se dispor a fazer o exercício para você.

[Sergio Cavalcante 6]

var

quantFita,quantCd,quantDisc,precoDisc:inteiro

PrecCd,precFita,precDisc,PorcentCd,Porcent:real

inicio

Escreval("Menu")

Escreval("¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨")

Escreva("informe o preço unit do CD : ")

leia(PrecCd)

Escreva("Informe o preco unit da Fita K7: ")

leia(precFita)

Escreva("Informe o preco unit do Disco: ")

leia(precDisc)

Escreval("¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨")

Escreval("O preco do CD e R$: ",precCd )

Escreval("O preco da Fita K7 e R$: ",precFita)

Escreval("O preco da Fita K7 e R$: ",precDisc)

Escreval("")

Escreva("informe a quantidade de Cds vendido: ")

leia(quantCd)

Porcent <-(quantCd*PrecCd)*0.03)

Escreva("Informe a quantidade de Fitas K7 vendidas: ")

leia(quantFita)

Escreva("Informe a quantidade de Cds vendidos: ")

leia(quantCd)

Escreva("Informe a quantidade de Discos vendidos: ")

leia(quantDisc)

Escreva("A comissão pela venda de Cds e:",Porcent)

..................................................... continue