Exercício 07 Estrutura de Seleção 2 - Pascal

7) Faça um programa que receba:

• O código de um produto comprado, supondo que a digitação do código do produto seja sempre válida, ou seja, um número inteiro entre 1a 10.

• O peso do produto em quilos.

• O código do país de origem, supondo que a digitação do código do

país seja sempre válida, ou seja, um número inteiro entre 1 a 3.

Calcule e mostre:

• O peso do produto convertido em gramas

• O preço total do produto comprado

• O valor do imposto, sabendo-se que o imposto é cobrado sobre o preço total do produto comprado e que depende do país de origem

• O valor total, preço total do produto mais imposto.

Program Cond07 ;
var
 codigo,pais: integer;
 peso: real;
 preco: real;
 preco_final: real;
 
 Begin
  Writeln('Produto | Preco/Grama');
  Writeln(' 1 a 4  |    10');
  Writeln(' 5 a 7  |    25');
  Writeln(' 8 a 10 |    35');
  Write('Produto:  ');
  readln(codigo);
   if codigo = 1 then
    codigo := 10
   else if codigo = 2 then
    codigo := 25
   else if codigo = 3 then 
    codigo := 35;
  
  Writeln('Pais | Imposto');
  Writeln(' 1   |   0%');
  Writeln(' 2   |   15%');
  Writeln(' 3   |   25%');
  Write('Pais: ');
  read(pais);
   if pais = 1 then
    pais := 0
   else if pais = 2 then
    pais := 15
   else if pais = 3 then
    pais := 25;
     
   Writeln;
   Writeln('Informe Peso kl: ');
   readln(peso);
    peso := peso * 1000;
    preco := peso * codigo;
    preco_final := preco+ (preco*pais/100);
   Writeln('Preco: ',preco:0:2);
   Writeln('Preco Mais Imposto: ',preco_final:0:2);  
 Writeln('                                 by Marcus Vinicius');  
 End.

Categories: Pascal , Programação