Lista 04 - UFMG

program l4p27;
var
RECENTE1, RECENTE2, RECENTE3, C : integer;
NEMP, NMESES: array [1..300] of integer;
begin
for C := 2 to 3 do {Inicializa o 2. e 3. valores}
NMESES[C] := 0; {do vetor para a comparacao no if}
write('Digite o numero do empregado: ');
readln(NEMP[1]);
write('Digite o numero de meses de trabalho: ');
readln(NMESES[1]);
RECENTE1 := 1;
RECENTE2 := 2;
RECENTE3 := 3;
C := 1;
while ((NEMP[C] 0) or (NMESES[C] 0)) do
begin
if (NMESES[C] < NMESES[RECENTE1]) then
begin
RECENTE3 := RECENTE2;
RECENTE2 := RECENTE1;
RECENTE1 := C;
end
else if (NMESES[C] < NMESES[RECENTE2]) then
begin
RECENTE3 := RECENTE2;
RECENTE2 := C;
end
else if (NMESES[C] < NMESES[RECENTE3]) then
RECENTE3 := C;
C := C + 1;
write('Digite o numero do empregado: ');
readln(NEMP[C]);
write('Digite o numero de meses de trabalho: ');
readln(NMESES[C]);
end;
if (C = 1) then {O usuario digitou zero na primeira vez}
writeln('Nao foi digitado nenhum empregado!')
else
begin
writeln('O 1o empregado mais recente eh o de numero: ',NEMP[RECENTE1]);
writeln('O 2o empregado mais recente eh o de numero: ',NEMP[RECENTE2]);
writeln('O 3o empregado mais recente eh o de numero: ',NEMP[RECENTE3]);
end;
end.
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 41