ESTE PROGRAMA REALIZADO EN DELPHI
EFECTUA LA CARGA DE UN VECTOR, LUEGO SUMA TODOS SUS
ELEMENTOS Y TAMBIEN LOS ORDENA EN FORMA
ASCENDENTE.UNA VEZ ORDENADO MUESTRA LAS OPERACIONES
REALIZADAS (CARGA DEL VEC.,SUMA , VECTOR ORDENADO).

BOTON INICIAR:
ESTE BOTON PERMITE INICIALIZAR EL PROGRAMA DE VECTORES.

1 INICIO
2 MIFORMULARIO.INICIAR.CAPTION =' &CANCELAR';
2 MIFORMULARIO.CAPTION= ' INGRESA EL NUMERO DE ELEM. DEL VECTOR';
2 MIFORMULARIO.OKTOTAL.VISIBLE =TRUE;
2 MIFORMULARIO.ORDEN.VISIBLE=TRUE;
2 MIFORMULARIO.BOXTOTAL.VISIBLE=TRUE;
2 MIFORMULARIO.VERDATOS.VISIBLE=FALSE;
2 MIFORMULARIO.BOXDATO.VISIBLE=FALSE;
2 MIFORMULARIO.ACEPTAR.VISIBLE=FALSE;
2 MIFORMULARIO.BOXTOTAL.SETFOCUS;
2 MIFORMULARIO.VERDATOS.CLEAR;
2 FLAP=0;
2 SUMA=0;
3 END

BOTON ACEPTAR: ESTE BOTON ACEPTA EL VALOR NUMERICO QUE VA HA TOMAR LOS
ELEMENTOS DEL VECTOR EN EL CUAL SE REALIZA LAS OPERACIONES .

1 ACEPTAR
2 VALOR, MAYOR, I, J, AUX, ESTAES: INTEGER
3 IF BOXDATO.TEXT <> '' THEN
4 FLAP= FLAP + 1

5 IF FLAP<=TOTAL THEN
6 MIFORMULARIO.CAPTION='TOTAL':'+ INTTOSTR(TOTAL)+ 'INGRESA ELEMENTOS'+ INTTOSTR(FLAP+1)
7 VALOR=STRTOINT(MIFORMULARIO.BOXDATO.TEXT)
7 E[FLAP]=VALOR
7 MIFORMULARIO.VERDATOS.VISIBLE=TRUE;
7 MIFORMULARIO.DATOS.VISIBLE=TRUE;
7 MIFORMULARIO.ORDEN.VISIBLE=FALSE;
7 MIFORMULARIO.VERDATOS.LINES.ADD('E['+INTOSTR(FLAP)+']='+INTTOSTR(E[FLAP]) );
7 MIFORMULARIO.BOXDATO.SETFOCUS;

8 IF FLAP=TOTAL THEN
9 'OPERACIÓN CONCLUIDA!!', 'CARGA DEL VECTOR', MB_OKCANCEL
10 MIFORMULARIO.BOXDATO.VISIBLE=FALSE;
10 MIFORMULARIO.DATOS.VISIBLE=FALSE;
10 MIFORMULARIO.ACEPTAR.VISIBLE=FALSE;
10 MIFORMULARIO.CAPTION='DATOS DEL VECTOR'
11 I =1
12 WILE I <= TOTAL DO
13 SUMA=SUMA + E [I];
13 I= I + 1
14 '' DEBE INGRESAR UN VALOR NUMERICO ''
15 MIFORMULARIO.VERDATOS.LINES.ADD ('LA SUMA' + INTTOSTR (SUMA) );
15 MAYOR= E [1];
15 ESTAEN=0;
16 FOR I=1 TO TOTAL DO
17 IF E[I] > = MAYOR THEN
18 MAYOR= E[I];
18 ESTAEN=I;
19 MIFORMULARIO.VERDATOS.LINES.ADD(EL MAYOR ES E['+ INTTOSTR (ESTAEN)+']= '+INTTOSTR (MAYOR));
20 FOR I=1 TO TOTAL -1 DO
21 FOR J=1 TO TOTAL -1 DO
22 IF E [J] > E [J+1] THEN
23 AUX= E [J];
23 E [J]= E [J+1];
23 E [J+1]= AUX
24 MIFORM.VERDATOS.LINES.ADD (' VECTOR ORDENADO' )
25 FOR I=1 TO TOTAL DO
26 MIFORMULARIO.LINES.ADD(' E[' + INTTOSTR (I) +']='+ INTTOSTR (E[I]));
27 END

BOTON OKTOTAL:
ESTE BOTON RECIBE EL ORDEN QUE VA HA TENER EL VECTOR .

1 OK TOTAL
2 IF BOXTOTAL.TEXT <> '' THEN
3 TOTAL=STRTOINT (MIFORMULARIO.BOXTOTAL.TEXT);
3 MIFORMULARIO.BOXTOTAL.VISIBLE=FALSE;
3 MIFORMULARIO.DATOS.VISIBLE=TRUE;
3 MIFORMULARIO.ORDDEN.VISIBLE=FALSE;
3 MIFORMULARIO.BOXDATOS.VISIBLE=TRUE;
3 MIFORMULARIO.CAPTION='TOTAL:'+INTTOSTR(TO -TAL) +''
3 MIFORMULARIO.ACEPTAR.VISIBLE=TRUE;
3 MIFORMULARIO.BOXDATOS.SETFOCUS;
3 MIFORMULARIO.OKTOTAL.VISIBLE=FALSE;
4 'USTED DEBE INGRESAR EL ORDEN DEL VECTOR'
5 END

BOTON SALIR:
ESTE BOTON PERMITE SALIR DEL PROGRAMA.

1 SALIR
2 MIFORMULARIO.CLOSE
3 END