Pascal/Turbo Pascal - M pueden ayudar por favor!!

   
Vista:

M pueden ayudar por favor!!

Publicado por Pablo (1 intervención) el 02/11/2009 03:29:56
hola.. nesecito si alguien me puede ayudar! hacer un programa en pascal!! mucho no entiendo este lenguaje por eso!! me va mejor con borlan c++.

tengo que cargar un vector de 10 numeros.. y usar el metodo ordenacion ordenarlos de menor a mayor y imprimir... por favor si alguien me puede ayudar! hace dias estoy tratando de hacer pero no me sale nada!! desde ya muchas gracias....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:M pueden ayudar por favor!!

Publicado por BrunoBsso (10 intervenciones) el 23/11/2009 12:30:52
Esta forma de ordenamiento se llama "metodo burbuja". Es la mas facil, pero si la usas con un vector muy grande (digamos de miles y miles de datos) te consume mucha memoria y tiempo.
Aca tenes el codigo fuente!

program Burbuja;

type
TVector = array [1..10] of integer;

procedure LeerVector(var V:TVector);
var
Cont,Dato:Integer;
begin
for Cont := 1 to 10 do begin
Write('Ingrese el numero:' );
Readln(Dato);
V[Cont]:=Dato;
end;
end;

procedure Ordenar(var V:TVector);
var
Temp:TVector;
I,J,Dato:Integer;
begin
for I := 1 to 9 do begin
for J := 1 to 10-I do begin
if (V[J]>V[J+1]) then begin
Dato:=V[J];
V[J]:=V[J+1];
V[J+1]:=Dato;
end;
end;
end;
end;

procedure ImprimirVector(V:TVector);
var
I:Integer;
begin
for I := 1 to 9 do
Write(V[I],' - ');
Writeln(V[10]);
end;

var
Vector:TVector;
begin
LeerVector(Vector);
Writeln;
Writeln('Vector antes de ordenar:');
ImprimirVector(Vector);
Writeln;
Writeln('Vector ordenado:');
Ordenar(Vector);
ImprimirVector(Vector);
Readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar