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