Meu algoritimo só dá erro

[Rodrigo Cabral 0]

 

Prezados amigos, Boa Noite, sou iniciante e tenho este trabalho da faculdade para desenvolver. fiz o código abaixo mas só dá erro. Preciso de ajuda. Muito obrigado.

 

Meu código:

 

Algoritmo "MediaHarmonica"

 

var

a, b, c, d: real

x, f, g, h, i, j, MH, z: real

desc: real

NOME: caractere

ca,ce,ci,sal,venda:real

total : real

desconto : real

humor, suspense, infanto, ficcao : real

 

 

inicio

REPITA

ESCREVAL ("LOCAÇÃO DE 10 LIVROS")

ESCREVAL ("==================")

ESCREVAL (" Humor - Valor R$ 20 - Desconto 5%")

ESCREVAL (" Suspense - Valor R$ 15 - Desconto 8%")

ESCREVAL (" Infanto - Valor R$ 10 - Desconto 10%")

ESCREVAL (" Ficcao - Valor R$ 5 - Desconto 12%")

 

//z <- 1

//Repita

escreva("Entre com o Gênero do primeiro livro desejado: ")

leia(nome)

escreval ("Entre com o valor do primeiro livro desejado")

escreva("Digite o valor: ")

leia(a)

escreva("Entre com o Gênero do segundo livro desejado: ")

leia(nome)

escreval ("Entre com o valor do segundo livro desejado")

escreva("Digite o valor: ")

leia(B)

escreva("Entre com o Gênero do terceiro livro desejado: ")

leia(nome)

escreval ("Entre com o valor do terceiro livro desejado")

escreva("Digite o valor: ")

leia©

escreva("Entre com o Gênero do quarto livro desejado: ")

leia(nome)

escreval ("Entre com o valor do quarto livro desejado")

escreva("Digite o valor: ")

leia(d)

escreva("Entre com o Gênero do quinto livro desejado: ")

leia(nome)

escreval ("Entre com o valor do quinto livro desejado")

escreva("Digite o valor: ")

leia(x)

escreva("Entre com o Gênero do sexto livro desejado: ")

leia(nome)

escreval ("Entre com o valor do sexto livro desejado")

escreva("Digite o valor: ")

leia(f)

escreva("Entre com o Gênero do setimo livro desejado: ")

leia(nome)

escreval ("Entre com o valor do setimo livro desejado")

escreva("Digite o valor: ")

leia(g)

escreva("Entre com o Gênero do oitavo livro desejado: ")

leia(nome)

escreval ("Entre com o valor do oitavo livro desejado")

escreva("Digite o valor: ")

leia(h)

escreva("Entre com o Gênero do nono livro desejado: ")

leia(nome)

escreval ("Entre com o valor do nono livro desejado")

escreva("Digite o valor: ")

leia(i)

escreva("Entre com o Gênero do decimo livro desejado: ")

leia(nome)

escreval ("Entre com o valor do decimo livro desejado")

escreva("Digite o valor: ")

leia(j)

 

MH <- (a + b + c + d + x + f + g + h + i +j)

escreval("O valor total da locação foi: ", MH, ",00 Reais")

 

escreva("entre com genero:")

leia(nome)

 

se nome = humor entao

desconto <- a * 0.05 senao

se nome = suspense entao

desconto <- a * 0.08 senao

se nome = infanto entao

desconto <- a * 0.10 senao

se nome = ficcao entao

desconto <- a * 0.12

fimse

fimse

fimse

 

total <- MH - desconto

escreval("O valor total da locação foi: ", total, ",00 Reais")

 

 

 

 

 

// z <- z + 1

ate z = 1

 

FimAlgoritmo

[Vinicius Rangel 208]

primeiro acho que você deixar para o usuário escolher o valor não é certo.

você vai precisar trabalhar com as condições

 

if genero == 1 entao desconto <- 0.05

 

e logo depois de pegar o genero e o valor já fazer a multplicação

 

totalGenero1 = valor * desconto; 

um exemplo ficaria

 

20 * 00.5

[Rodrigo Cabral 0]

Olá Vinicius, Boa Tarde,

 

Obrigado pela contribuição,

 

Olha o que fiz antes,

 

Algoritmo "MediaHarmonica"

 

var

a, b, c, d : real

x, f, g : real

h, i, j : real

pr: real

desc: real

valor: inteiro

codigo: inteiro

op: inteiro

 

inicio

REPITA

ESCREVAL ("Locadora de Livros: Arara-Azul")

ESCREVAL ("==================")

ESCREVAL ("PORTIFÓLIO DE LIVROS:")

ESCREVAL ("Cod: 01 - A Grande Família - Gênero Humor - Valor R$ 20 - Desconto 5%")

ESCREVAL ("Cod: 02 - Crepúsculo - Gênero Ficcao - Valor R$ 5 - Desconto 12%")

ESCREVAL ("Cod: 03 - Hanninal - Gênero Suspense - Valor R$ 15 - Desconto 8%")

ESCREVAL ("Cod: 04 - Pequeno Príncipe- Gênero Infanto - Valor R$ 10 - Desconto 10%")

ESCREVAL ("Cod: 05 - Escola de Rock - Gênero Humor - Valor R$ 20 - Desconto 5%")

ESCREVAL ("Cod: 06 - Biografia Casseta e Planeta - Gênero Humor - Valor R$ 20 - Desconto 5%")

ESCREVAL ("Cod: 07 - Açucena - Gênero Ficcao - Valor R$ 5 - Desconto 12%")

ESCREVAL ("Cod: 08 - Ronaldo Fenômeno - Gênero Suspense - Valor R$ 15 - Desconto 8%")

ESCREVAL ("Cod: 09 - Biografia anderson Spider Silva - Gênero Suspense - Valor R$ 15 - Desconto 8%")

ESCREVAL ("Cod: 10 - Star War - Guerra dos Clones - Gênero Ficcao - Valor R$ 5 - Desconto 12%")

 

escreva("Entre com o Código do primeiro livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do primeiro livro desejado")

escreva("Digite o valor: ")

leia(a)

escreva("Entre com o Código do segundo livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do segundo livro desejado")

escreva("Digite o valor: ")

leia(B)

escreva("Entre com o Código do terceiro livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do terceiro livro desejado")

escreva("Digite o valor: ")

leia©

escreva("Entre com o Código do quarto livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do quarto livro desejado")

escreva("Digite o valor: ")

leia(d)

escreva("Entre com o Código do quinto livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do quinto livro desejado")

escreva("Digite o valor: ")

leia(x)

escreva("Entre com o Código do sexto livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do sexto livro desejado")

escreva("Digite o valor: ")

leia(f)

escreva("Entre com o Código do sétimo livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do setimo livro desejado")

escreva("Digite o valor: ")

leia(g)

escreva("Entre com o Código do oitavo livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do oitavo livro desejado")

escreva("Digite o valor: ")

leia(h)

escreva("Entre com o Código do nono livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do nono livro desejado")

escreva("Digite o valor: ")

leia(i)

escreva("Entre com o Código do décimo livro desejado: ")

leia(codigo)

escreval ("Entre com o valor do décimo livro desejado")

escreva("Digite o valor: ")

leia(j)

 

se codigo = 01 entao

escreval ("A Grande Família")

se codigo = 01 entao

escreval ("Gênero: Humor")

se codigo = 02 entao

escreval ("Crepúsculo")

se codigo = 02 entao

escreval ("Gênero: Ficção")

se codigo = 03 entao

escreval ("Hannibal")

se codigo = 03 entao

escreval ("Gênero: Suspense")

se codigo = 04 entao

escreval ("Pequeno Príncipe")

se codigo = 04 entao

escreval ("Gênero: Infanto-Juvenil")

se codigo = 05 entao

escreval ("Escola de Rock")

se codigo = 05 entao

escreval ("Gênero: Humor")

se codigo = 06 entao

escreval ("Biografia: Casseta e Planeta")

se codigo = 06 entao

escreval ("Gênero: Humor")

se codigo = 07 entao

escreval ("Açucena")

se codigo = 07 entao

escreval ("Gênero: Ficção")

se codigo = 08 entao

escreval ("Ronaldo Fenômeno")

se codigo = 08 entao

escreval ("Gênero: Suspense")

se codigo = 09 entao

escreval ("Biografia Anderson Spider Silva")

se codigo = 09 entao

escreval ("Gênero: Suspense")

se codigo = 10 entao

escreval ("Gênero: Star Wars - Guerra dos Clones")

se codigo = 10 entao

escreval ("Gênero: Ficção")

 

 

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

fimse

 

 

// Seção de Comandos

 

 

pr <- ( a + b + c + d + x + f + g + h + i + j )

desc <- ( a - a * 0.05 + b - b * 0.08 + c - c * 0.08 + d - d * 0.10 + x - x * 0.05 + f - f * 0.05 + g - g * 0.12 + h - h * 0.08 + i - i * 0.08 + j - j * 0.12)

 

escreval("O valor total da locação foi: ", pr, ",00 Reais")

escreval("Valor total da locação com desconto: ", desc, " Reais")

 

ate op=10

 

FimAlgoritmo

 

 

 

 

 

 

primeiro acho que você deixar para o usuário escolher o valor não é certo.

você vai precisar trabalhar com as condições

 

if genero == 1 entao desconto <- 0.05

 

e logo depois de pegar o genero e o valor já fazer a multplicação

 

totalGenero1 = valor * desconto; 

um exemplo ficaria

 

20 * 00.5

[poet 0]

cara, na minha Opinião eu acho que você deveria Trocar o comando SE , pelo comando ESCOLHA CASO.

[quitZAUMMM 18]

bom vamos lá..

usar o comando 'se' ou o comando 'caso' tanto faz.. os 2 no final das contas irão te apresentar o resultado desejado..

se no exercício seu professor quer que use uma estrutura de repetição, creio que ele qr algo assim:

//OBS: nunca utilizei programas como o visualg então irei postar como aprendi no papelzaoo msm..

 

Inteiro livros;
livros = 0;
Para livros de 1 até 10 faça
   Escreva ("Escreva o " + livros + "º livro: ");
   Leia (livros);
Fim_para

 

acho que você fazendo isso já da uma enxugada legalllll no seu algoritmo, eu usei como exemplo o comando 'para', se você ainda não aprendeu poste ae q damos um jeito..

 

[]s