Lista de Exercicios

8. Construir um programa para ordenar e mostrar 6 valores em ordem númerica crescente.

program P8;
uses crt;
var
v1, v2, v3, v4, v5, v6 : real;
houve_troca : boolean;
procedure tela;
begin
clrscr;
highvideo;
gotoxy(18,2);
write('PROGRAMA FEITO POR KARINE E MARIA DA GLORIA');
gotoxy(15,4);
write('Para ordenar valores utilizando vari veis simples');
lowvideo;
end;
function ler(x : char) : real;
var
z : real;
begin
write ('Entre com a vari vel V',x,' :');
readln (z);
ler := z;
end;
procedure ordena (var prim,seg : real);
var
tmp : real;
begin
if prim > seg then
begin
tmp := prim;
prim := seg;
seg := tmp;
houve_troca := true;
end;
end;
procedure escr_val_ord;
begin
clrscr;
highvideo;
gotoxy(32,2);
write('VALORES ORDENADOS');
lowvideo;
gotoxy(1,4);
writeln (v1:40:2);
writeln (v2:40:2);
writeln (v3:40:2);
writeln (v4:40:2);
writeln (v5:40:2);
writeln (v6:40:2);
end;
{PROGRAMA PRINCIPAL}
begin
tela;
gotoxy(1,8);
v1 := ler ('1');
v2 := ler ('2');
v3 := ler ('3');
v4 := ler ('4');
v5 := ler ('5');
v6 := ler ('6');
repeat
houve_troca := false;
ordena (v1,v2);
ordena (v2,v3);
ordena (v3,v4);
ordena (v4,v5);
ordena (v5,v6);
until not houve_troca;
escr_val_ord;
repeat until keypressed;
end.

Para retornar a tela principal clique aqui.