RE:Insertar ordenado en vector
Hola, conozco otra manera de invertir el vector al momento de imprimirlo, quedaria algo asi.!
Program VECT_INV;
Uses
crt;
Type
Vector= Array [1..10000] of Integer;
Var
Vect:Vector;
V:Integer;
P:Char;
Long:integer;
Begin {*** Estructura Principal ***}
V:=0;
clrscr;
Gotoxy (29,02); writeln ('Inversion de un Vector');
Gotoxy (29,03); writeln ('ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ');
Gotoxy (18,05); writeln ('Longitud del vector:');
Gotoxy (39,05); readln (Long);
For V:= 1 to Long do {*** Llenado y muestreo del vector ***}
Begin
Gotoxy (16,08); writeln ('Posicion [',V,']:');
Gotoxy (30,08); readln (Vect[V]);
Gotoxy (26,V+13); writeln ('[',Vect[V],']');
Gotoxy (20,11); writeln ('Vector Original');
Gotoxy (20,12); writeln ('ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ');
End;
For V:= 1 to Long do {*** Muestreo del vector Invertido ***}
Begin
Gotoxy (42,11); writeln ('Vector Invertido');
Gotoxy (42,12); writeln ('ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ');
Gotoxy (48,13+(Long-V+1) ); writeln ('[',Vect[V],']');
End;
P:=readkey ;
End.
Espero que te sirva
Saludos