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

4) Escreva um algoritmo que leia o código de um determinado produto e mostre a sua classificação. Utilize a seguinte tabela como referências:

Código	Classificação
1 2, 3 ou 4 5 ou 6 7 8 até 15 Qualquer outro código	Alimento não-perecível Alimento perecível Vestuário Higiene pessoal Limpeza e utensílios domésticos Inválido

Program Cond04 ;
var
 cod: integer;
 Begin
  Writeln('Tabela de Codigo de Produtos');
  Writeln('         1..15');
  Write('Opcao: ');
   Readln(cod);
    if cod = 1 then
      Writeln('1--------------Alimento nao-perecivel')
    else if (cod >= 2) and (cod <=4) then  
       Writeln('2..4------------Alimento perecivel')
    else if (cod = 5) or (cod = 6) then  
       Writeln('5 ou 6----------Vestuario')  
    else if cod = 7 then     
       Writeln('7---------------Higiene Pessoal') 
    else if (cod >= 8) and (cod <= 15) then
       Writeln('8..15-----------Limpeza e Utencilios Domesticos') 
    else  
       Writeln('Outro Codigo----Invalido') ;
  Writeln('                           by Marcus Vinicius');         
 End.

Categories: Pascal , Programação