Comando Registro Pascalzim
Por: Thalles Rocha • 4/6/2015 • Trabalho acadêmico • 1.443 Palavras (6 Páginas) • 473 Visualizações
Program TipoResgistro;
Type Funcionario=Record
Nome:string[40];
Idade:Integer;
Salario:real;
end;
Var
idade:integer;
busca:string;
n:string[40];
i:integer;
Funcionarios:array [1..3] of Funcionario;
Begin
for i:= 1 to 3 do
begin
writeln('--------------------------------');
writeln('Digite o nome: ');
readln(Funcionarios[i].Nome);
writeln('Digite a idade: ');
readln(Funcionarios[i].Idade);
writeln('Digite o salario: ');
readln(Funcionarios[i].Salario);
end;
clrscr;
writeln('Deseja executar a busca por nome ou idade? ');
readln(busca);
if (busca='Nome') or (busca='n') or (busca='nome') or (busca='N') or (busca='NOME') then
begin
writeln('Digite o nome que deseja procurar');
readln(n);
for i:= 1 to 3 do
begin
if n=(Funcionarios[i].Nome) then
begin
writeln('==========================================');
writeln('Nome: ',Funcionarios[i].Nome);
writeln('Idade: ',Funcionarios[i].Idade,' ano(s)');
writeln('Salário: R$',Funcionarios[i].Salario:0:2);
writeln('==========================================');
end;
end;
end;
if (busca='Idade') or (busca='i') or (busca='idade') or (busca='I') or (busca='IDADE') then
begin
writeln('Digite a idade a ser procurada');
...