Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
program l4p33;<br />
var<br />
C, I, n, nvezes : integer;<br />
auxiliar, anterior : real;<br />
vetor: array [1..1000] of real;<br />
begin<br />
write('Digite o valor de n: ');<br />
readln(n);<br />
writeln('Digite os numeros da variavel composta: ');<br />
for C := 1 to n do<br />
readln(vetor[C]);<br />
for C := 1 to n - 1 do<br />
for I := 1 to n - C do<br />
if (vetor[I] > vetor[I + 1]) then<br />
begin<br />
auxiliar := vetor[I];<br />
vetor[I] := vetor[I + 1];<br />
vetor[I + 1] := auxiliar;<br />
end;<br />
writeln('O vetor ordenado eh: ');<br />
for C := 1 to n do<br />
write(vetor[C]:6:4, ' ');<br />
writeln('');<br />
anterior := vetor[1];<br />
nvezes := 1;<br />
for C := 2 to n do<br />
begin<br />
if (vetor[C] = anterior) then<br />
nvezes := nvezes + 1<br />
else<br />
begin<br />
writeln('O numero ',anterior:6:4,' se repete ',nvezes,' vezes');<br />
anterior := vetor[C];<br />
nvezes := 1;<br />
end;<br />
end;<br />
writeln('O numero ',anterior:6:4,' se repete ',nvezes,' vezes');<br />
end.<br />
n = input('Digite o valor de n: ');<br />
fprintf(1,’Digite os numeros da variavel composta: \n');<br />
for C = 1 : n<br />
vetor(C) = input('');<br />
end<br />
for C = 1 : N - 1<br />
for I = 1 : N - C<br />
if (vetor(I) > vetor(I + 1))<br />
auxiliar = vetor(I);<br />
vetor(I) = vetor(I + 1);<br />
vetor(I + 1) = auxiliar;<br />
end<br />
end<br />
end<br />
fprintf(1,’O vetor ordenado eh: \n');<br />
for C = 1 : n<br />
fprintf(1,’%f ',vetor(C));<br />
end<br />
fprintf(1,’\n');<br />
anterior = vetor(1);<br />
nvezes = 1;<br />
for C = 2 : n<br />
if (vetor(C) == anterior)<br />
nvezes = nvezes + 1;<br />
else<br />
fprintf(1,’O numero %f se repete %d vezes\n',anterior,nvezes);<br />
anterior = vetor(C);<br />
nvezes = 1;<br />
end<br />
end<br />
fprintf(1,’O numero %f se repete %d vezes\n',anterior,nvezes);<br />
<strong>UFMG</strong> – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 57