resolução exercicio do Gabriel

[Luiz Walnei]

Ae Galera,

  Fiz um dos exercícios q o Gabriel mandou p gente se liga..

Tem aqui exercicio entao:

 

1) Crie um algoritmo que calcule o que deve ser pago por um produto, considerando o preço normal de etiqueta e a escolha da condição de pagamento. Utilize os códigos da tabela a seguir para ler qual a condição de pagamento escolhida e efetuar o cálculo adequado.

Código Condição de Pagamento
1 À vista em dinheiro ou cheque, recebe 10% de desconto
2 À vista no cartão de crédito, recebe 5% de desconto
3 Em 2 vezes, preço normal de etiqueta sem juros
4 Em 3 vezes, preço normal de etiqueta mais juros de 10%

 

segue o algoritmo

algoritmo "Forma de Pagamento"

// Função : Calcular valores apartir da forma de pagamento

// Autor :   Luiz Walnei

// Data : 26/02/2011

// Seção de Declarações 

var

vmercadoria:real

forma:real

parcela:real

inicio

// Seção de Comandos

Escreval ("Entre com o Valor da Mercadoria:")

leia (vmercadoria)

Escreval ("Forma de Pagamento:")

escreval ("Dinheiro digite 1")

escreval ("Cheque Digite 2")

escreval ("Cartão de Crédito Digite 3")

leia(forma)

escreval ("Parcelas:")

escreval ("1 - Á vista")

escreval ("2 - 2 vezes")

escreval ("3 - 3 vezes")

leia (parcela)

// Aqui coloquei as condições para a opção em dinheiro

SE (forma = 1) E (parcela = 1) ENTAO

ESCREVA ("O Valor a ser Pago é de ", vmercadoria*90/100:2:2, " Reais a Vista - 10% de Desconto")

FIMSE

SE (forma = 1) E (parcela = 2) ENTAO

ESCREVA ("O Valor a ser Pago é 2 Parcelas de: ", vmercadoria/2:2:2, " Reais")

FIMSE

SE (forma = 1) E (parcela = 3) ENTAO

ESCREVA ("O Valor a ser Pago 3 Parcelas de: ", vmercadoria/3+10/100:2:2, " Reais - 10% de Juros")

FIMSE

//Aqui coloquei as condições de forma de pagamento  em cheque.

SE (forma = 2) E (parcela = 1) ENTAO

ESCREVA ("O Valor a ser Pago é de ", vmercadoria*95/100:2:2, " Reais a Vista - 5% de Desconto")

FIMSE

SE (forma = 2) E (parcela = 2) ENTAO

ESCREVA ("O Valor a ser Pago é 2 Parcelas de: ", vmercadoria/2:2:2, " Reais")

FIMSE

SE (forma = 2) E (parcela = 3) ENTAO

ESCREVA ("O Valor a ser Pago 3 Parcelas de: ", vmercadoria/3+10/100:2:2, " Reais - 10% de Juros")

FIMSE

// Pagamento com cartão de crédito

SE (forma = 3) E (parcela = 1) ENTAO

ESCREVA ("O Valor a ser Pago é de: ", vmercadoria*110/100:2:2, " Reais a Vista - Taxa de 10% Sobre o Valor da Etiqueta")

FIMSE

SE (forma = 3) E (parcela = 2) ENTAO

ESCREVA ("O Valor a ser Pago é 2 Parcelas de: ", vmercadoria*110/100/2:2:2, " Reais")

FIMSE

SE (forma = 3) E (parcela = 3) ENTAO

ESCREVA ("O Valor a ser Pago 3 Parcelas de: ", vmercadoria*110/100/3:2:2, " Reais - 10% de Juros")

FIMSE

fimalgoritmo

[Gabriel Lopes]

Deixa eu so explicar aqui uma coisa q expliquei pra ele caso algumas pessoas nao entendam. Quando a  coisa ta escrita da seguinte forma: "//(texto)" como por exemplo "//Seçao de comandos", sao apenas anotaçoes feitas pelo programador so pra ele poder saber o q esta sendo feito em cada lugar, so mesmo pra facilitar. Cada programador escreve o q quiser. Se vcs quiserem, podem tirar esses textos pq n muda o programa em absolutamente nada. No Visualg, o negocio aparece na cor verde justamente pra vc saber q aquilo é so uma simples anotaçao, nada de especial.

Fiz umas modificaçoes no programa dele pq so dps realmente descobri alguns erros e algumas coisas q deveriam ser mudadas. Desculpem ai gente, é so q a primeiro olhar, parecia tar tudo perfeito mas dps é q reparei em alguns erros (erros so de valor pq n reparou o enunciado :P).

Aqui vao as modificaçoes:

algoritmo "Forma de Pagamento"

// Função : Calcular valores apartir da forma de pagamento

// Autor :   Luiz Walnei

// Data : 26/02/2011

// Seção de Declarações

var

vmercadoria:real

forma:real

parcela:real

inicio

Escreval ("Digite o valor da mercadoria:")

leia (vmercadoria)

escreval ("")

Escreval ("Selecione um número para definir o tipo de pagamento")

escreval ("1 - Dinheiro")

escreval ("2 - Cheque")

escreval ("3 - Cartão de Crédito")

escreva ("Tipo de pagamento escolhido: ")

leia(forma)

escreval ("")

escreval ("Selecione um número para escolher em quantas parcelas deseja fazer o pagamento")

escreval ("1 - Á vista")

escreval ("2 - 2 vezes")

escreval ("3 - 3 vezes")

escreva ("Tipo de parcela escolhida: ")

leia (parcela)

escreval ("")

// Aqui coloquei as condições para a opção em dinheiro

SE (forma = 1) E (parcela = 1) ENTAO

ESCREVA ("Irá pagar em 1 parcela de: ", vmercadoria*0.9:2:2, " reais a Vista - 10% de Desconto")

FIMSE

SE (forma = 1) E (parcela = 2) ENTAO

ESCREVA ("Irá pagar em 2 parcelas de: ", vmercadoria/2:2:2, " reais")

FIMSE

SE (forma = 1) E (parcela = 3) ENTAO

ESCREVA ("Irá pagar em 3 parcelas de: ", vmercadoria*1.1/3:2:2, " reais - 10% de Juros")

FIMSE

//Aqui coloquei as condições de forma de pagamento  em cheque.

SE (forma = 2) E (parcela = 1) ENTAO

ESCREVA ("Irá pagar em 1 parcela de: ", vmercadoria*0.90:2:2, " reais a Vista - 10% de Desconto")

FIMSE

SE (forma = 2) E (parcela = 2) ENTAO

ESCREVA ("Irá pagar em 2 parcelas de: ", vmercadoria/2:2:2, " reais")

FIMSE

SE (forma = 2) E (parcela = 3) ENTAO

ESCREVA ("Irá pagar em 3 parcelas de: ", vmercadoria*1.1/3:2:2, " reais - 10% de Juros")

FIMSE

// Pagamento com cartão de crédito

SE (forma = 3) E (parcela = 1) ENTAO

ESCREVA ("Irá pagar em 1 parcela de: ", vmercadoria*0.95:2:2, " reais a Vista - 5% de Desconto")

FIMSE

SE (forma = 3) E (parcela = 2) ENTAO

ESCREVA ("Irá pagar em 2 parcelas de: ", vmercadoria*/2:2:2, " reais")

FIMSE

SE (forma = 3) E (parcela = 3) ENTAO

ESCREVA ("Irá pagar em 3 parcelas de: ", vmercadoria*1.1/3:2:2, " Reais - 10% de Juros")

FIMSE

fimalgoritmo

------------------------------------------------------------------------------------------------------

 

Crédito do programa: Luiz

Valeu ai, ficou show cara :D

Abraço,

Gabriel

PS: Qualquer coisa q n entendam no programa, podem pedir que eu ou o Luiz explicamos para voces. Valeu pessoal.

---

From: luizw...@hotmail.com
To: logica_mat...@googlegroups.com
Subject: resolução exercicio do Gabriel
Date: Sat, 26 Feb 2011 20:53:16 +0000