Lista 04 - UFMG

program l4p32;
var
C, I, N, maior: integer;
auxiliar: real;
vetor: array [1..20] of real;
begin
write('Digite o valor N: ');
readln(N);
writeln('Digite os ',N,' valores da variavel composta:');
for C := 1 to N do
readln(vetor[C]);
for C := 1 to N - 1 do
begin
maior := C;
for I := C + 1 to N do
if (vetor[I] > vetor[maior]) then
maior := I;
auxiliar := vetor[maior];
vetor[maior] := vetor[C];
vetor[C] := auxiliar;
end;
writeln('A variavel composta ordenada em ordem decrescente eh:');
for C := 1 to N do
write(vetor[C]:6:3,' ');
end.
program l4p32b;
var
C, I, N: integer;
auxiliar: real;
vetor: array [1..20] of real;
begin
write('Digite o valor N: ');
readln(N);
writeln('Digite os ',N,' valores da variavel composta:');
for C := 1 to N do
readln(vetor[C]);
for C := 1 to N - 1 do
for I := 1 to N - C do
if (vetor[I] < vetor[I + 1]) then
begin
auxiliar := vetor[I];
vetor[I] := vetor[I + 1];
vetor[I + 1] := auxiliar;
end;
writeln('A variavel composta ordenada em ordem decrescente eh:');
for C := 1 to N do
write(vetor[C]:6:3,' ');
end.
N = input('Digite o valor N: ');
fprintf(1,’Digite os %d valores da variavel composta:',N);
for C = 1 : N
vetor(C) = input('');
end
for C = 1 : N - 1
maior = C;
for I = C + 1 : N
if (vetor(I) > vetor(maior))
maior = I;
end
end
auxiliar = vetor(maior);
vetor(maior) = vetor(C);
vetor(C) = auxiliar;
end
fprintf(1,’A variavel composta ordenada em ordem decrescente eh:\n');
for C = 1 : N
fprintf(1,’%f ',vetor(C));
end
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 54