Exercício 06 Estrutura de Seleção - Pascal

6) Elabore 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 2 3 4	À vista em dinheiro ou cheque, recebe 10% de desconto À vista no cartão de crédito, recebe 5% de desconto Em duas vezes, preço normal de etiqueta sem juros Em três vezes, preço normal de etiqueta mais juros de 10%

Program Cond06 ;
var
 vl_final,valor: real;
 opcao: integer;
 Begin
  Write('Valor Produto: ');
  readln(valor);
    WriteLn('                 Menu');
    Writeln('1---A vista em dinheiro ou cheque, recebe 10% de desconto');
    Writeln('2---A vista no cartão de crédito, recebe 5% de desconto');
    Writeln('3---Em duas vezes, preço normal de etiqueta sem juros');
    Writeln('4---Em três vezes, preço normal de etiqueta mais juros de 10%');
     Write('Opcao: ');
     readln(opcao);
     if opcao = 1 then
       vl_final:= valor-((valor*10)/100)
     else if opcao = 2 then
       vl_final:= valor-(valor*5/100)   
     else if opcao = 3 then
       vl_final:= valor
     else if opcao = 4 then
       vl_final:= valor+(valor*10/100)  ;
Writeln('Valor Final: ',vl_final:0:2);       
 End.

Categories: Pascal , Programação