Lista 04 - UFMG

program l4p23;
var
C, J, n, nvezes : integer;
anterior : real;
vetORIG, vetSRP : array [1..1000] of real;
begin
write('Digite o valor de n: ');
readln(n);
writeln('Digite os numeros em ordem crescente: ');
for C := 1 to n do
readln(vetORIG[C]);
anterior := vetORIG[1];
nvezes := 1;
vetSRP[1] := vetORIG[1];
J := 1;
for C := 2 to n do
begin
if (vetORIG[C] = anterior) then
nvezes := nvezes + 1
else
begin
writeln('O numero ',anterior:6:4,' se repete ',nvezes,' vezes');
J := J + 1;
vetSRP[J] := vetORIG[C];
anterior := vetORIG[C];
nvezes := 1;
end;
end;
writeln('O numero ',anterior:6:4,' se repete ',nvezes,' vezes');
writeln('O vetor sem numeros repetido eh: ');
for C :=1 to J do
write(vetSRP[C]:6:4, ' ');
end.
n = input('Digite o valor de n: ');
fprintf(1,’Digite os numeros em ordem crescente: \n');
for C = 1 : n
vetORIG(C) = input('Digite: ');
end
anterior = vetORIG(1);
nvezes = 1;
vetSRP(1) = vetORIG(1);
J = 1;
for C = 2 : n
if (vetORIG(C) == anterior)
nvezes = nvezes + 1;
else
fprintf(1,’O numero %f se repete %d vezes \n',anterior,nvezes);
J = J + 1;
vetSRP(J) = vetORIG(C);
anterior = vetORIG(C);
nvezes = 1;
end
end
fprintf(1,’O numero %f se repete %d vezes \n',anterior,nvezes);
fprintf(1,’O vetor sem numeros repetido eh: ');
for C = 1 : J
fprintf(1,'%f ',vetSRP(C));
end
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 34