FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
ordenacion de un array mediante el metodo de la burbuja
muy buenas a todos
soy novato en eso de delphi y queria hacer un programa que me ordena un array(p.e de 5 elementos) mediante el metodo de la bubuja pero al compilarlo me da error que no se localizarlo haber por favor si me podeis hechar la mano esta es la codificacion que hice var Form1 : TForm1; vector:array[1..5]of integer; i,cont:integer; implementation procedure ordenar; var ord :string; k,l,j,tmp:integer; begin ord:=' '; for l:=1 to 5 do for j:=1 to 4 do begin if (vector[j+1]<vector[j])then begin tmp:=vector[j+1]; vector[j+1]:=vector[j]; vector[j]:=tmp; end; end; for k:=1 to 5 do ord:=ord+' '+inttostr(vector[k]); Form1.lblordenado.caption:='los datos del array ordenado sera '+ord; end; procedure mostrar; var s :string; l :integer; begin s:=' '; for l:=1 to 5 do s:=s+' '+inttostr(vector[l]); Form1.lblsinorde.Caption:='los datos del array son : '+s; end; {$R *.dfm} procedure TForm1.BBTclClick(Sender: TObject); begin close; end; procedure TForm1.bbtacepClick(Sender: TObject); var n:integer; begin i:=i+1; // el indice k me lleva la cuenta de los datos en el array n:=strtoint(Edtnum.Text); cont:=cont+1; // contador de los datos if (cont=6)then mostrar // llamo al procedimiento mostrar else vector[i]:=n; Edtnum.Clear; Edtnum.SetFocus; end; procedure TForm1.btnorClick(Sender: TObject); begin ordenar; end; end. gracias de antemano disculparme compadres si existe la solucion en otro sitio saludos cordiales |
#2
|
||||
|
||||
Este código es muy poco claro, edita el mensaje y utiliza la etiqueda de código delphi para hacerlo más legible (y si puedes añade identación).
Se verá así:
|
#3
|
||||
|
||||
Además de lo que comenta kuan-yiu, indica cuál es el error que te da, porque de otra forma es muy difícil ayudarte.
// Saludos |
#4
|
||||
|
||||
Cita:
Pero lo que me gustaría saber es exactamente el error que te da. Eso nos daría una pista de pro donde empezar. |
#5
|
|||
|
|||
gracias semone por la reescitura del codigo
en el momento de compilarlo me salta al fichero del project poniendo el cursor a la ultima linea pero antes un mensaje de violacion de memoria .... |
#6
|
||||
|
||||
Cita:
De todas formas, parece que el problema es que accedes a un componente que no esta creado. Pero viendo el código no se donde puede estar el error. |
#7
|
||||
|
||||
Cita:
// Saludos |
#8
|
|||
|
|||
nose que os digo compadres
acabo de ejecutarlo varias veces y no me daba el error que me estaba dando antes el problema que me resulta ahora al insertar numeros iguales en el edit en el momento de llamar al metodo ordenar se muestra el mismo numero 2 veces aunque no se insertan en el mismo orden |
#9
|
|||
|
|||
tiene razon roman
pero aquel indice tio solamente lo hago para que se muestra al lado del control(label) la cuenta de los numeros que voy insertando |
#10
|
|||
|
|||
Cita:
Cita:
En fin, espero no confundir mas. Saludos
__________________
Saludos Alfredo |
#11
|
|||
|
|||
gracias jagach
entonces a cada vaz k kiero insertar tengo k efectuar la busqueda para saber si esta el elemento o no ¿? saludos ==> recordar nuestros origines nos ayuda a no olvidar quien somos |
#12
|
|||
|
|||
Si, asi es...
__________________
Saludos Alfredo |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
ordenacion arrays | halizia | PHP | 7 | 07-02-2007 10:47:03 |
metodo de burbuja utilizando el random() | soma25 | C++ Builder | 3 | 21-06-2006 01:36:15 |
Metodos de Ordenamiento. QuickSort vs Burbuja Mejorado | Delphius | Varios | 9 | 22-07-2005 02:37:50 |
Como Asignar Variable Tipo Array de Tform a otro Array del Mismo tipo | morfeo21 | Varios | 5 | 17-08-2004 17:39:51 |
Ordenacion tabla | jfloro | OOP | 1 | 03-09-2003 02:08:51 |
|