terça-feira, abril 19, 2011

LP - Tipo Record - Pascal

Program Pzim;

Type funcionario = record
    nome     : String;
    endereco : String;
    idade    : Integer;
    salario  : Real;
  end;   
 
 contribuinte = record
  nome     : String;
    endereco : String;
    idade    : Integer;
 end;
 
Var  func_rh,func_lancadoria:funcionario;
     contribuinte_piraju,contribuinte_sarutaia,contribuinte_tejupa:contribuinte;

Begin
  Writeln('Cadastro de funcionario do RH');
  Write('Digite seu nome.....: ');
  Readln(func_rh.nome);
 
  Write('Digite seu endereço.: ');
  Readln(func_rh.endereco);
    
  Write('Digite sua idade....: ');
  Readln(func_rh.idade);
    
  Write('Digite seu salario..: ');
  Readln(func_rh.salario);       
  Writeln(' ');
  Writeln('Cadastro de funcionario da Lançadoria');
  Write('Digite seu nome.....: ');
  Readln(func_lancadoria.nome);
 
  Write('Digite seu endereço.: ');
  Readln(func_lancadoria.endereco);
    
  Write('Digite sua idade....: ');
  Readln(func_lancadoria.idade);
    
  Write('Digite seu salario..: ');
  Readln(func_lancadoria.salario);
 
  Writeln(' ');
  Writeln('Funcionario do RH');   
  Writeln('Seu nome é........: ',func_rh.nome);
  Writeln('Seu endereço é....: ',func_rh.endereco);
  Writeln('Sua idade é.......: ',func_rh.idade);
  Writeln('Seu salario é.....: ',func_rh.salario);     
  Writeln(' ');
  Writeln('Funcionario da Lançadoria');   
  Writeln('Seu nome é........: ',func_lancadoria.nome);
  Writeln('Seu endereço é....: ',func_lancadoria.endereco);
  Writeln('Sua idade é.......: ',func_lancadoria.idade);
  Writeln('Seu salario é.....: ',func_lancadoria.salario);      
 
  Writeln(' ');
 
  Writeln('Cadastro de contribuinte de Piraju');
  Write('Digite seu nome.....: ');
  Readln(contribuinte_piraju.nome);

  Write('Digite seu endereço.: ');
  Readln(contribuinte_piraju.endereco);
    
  Write('Digite sua idade....: ');
  Readln(contribuinte_piraju.idade);
 
  Writeln(' '); 
    
  Writeln('Cadastro de contribuinte de Tejupa');
  Write('Digite seu nome.....: ');
  Readln(contribuinte_tejupa.nome);
 
  Write('Digite seu endereço.: ');
  Readln(contribuinte_tejupa.endereco);
     
  Write('Digite sua idade....: ');
  Readln(contribuinte_tejupa.idade);
 
  Writeln(' '); 
    
  Writeln('Cadastro de contribuinte de Sarutaia');
  Write('Digite seu nome.....: ');                  
  Readln(contribuinte_sarutaia.nome);
 
  Write('Digite seu endereço.: ');
  Readln(contribuinte_sarutaia.endereco);
    
  Write('Digite sua idade....: ');
  Readln(contribuinte_sarutaia.idade);
 
  Writeln(' ');
   
  Writeln('Contribuinte de Piraju');   
  Writeln('Seu nome é........: ',contribuinte_piraju.nome);
  Writeln('Seu endereço é....: ',contribuinte_piraju.endereco);
  Writeln('Sua idade é.......: ',contribuinte_piraju.idade);
  Writeln(' ');
 
  Writeln('Contribuinte de Tejupa');   
  Writeln('Seu nome é........: ',contribuinte_tejupa.nome);
  Writeln('Seu endereço é....: ',contribuinte_tejupa.endereco);
  Writeln('Sua idade é.......: ',contribuinte_tejupa.idade);
  Writeln(' ');
     
  Writeln('Contribuinte de Sarutaia');   
  Writeln('Seu nome é........: ',contribuinte_sarutaia.nome);
  Writeln('Seu endereço é....: ',contribuinte_sarutaia.endereco);
  Writeln('Sua idade é.......: ',contribuinte_sarutaia.idade);   
end.

Nenhum comentário:

Postar um comentário