1- CARGAR(INICIO)
2- VAR AUX,H,K:INTEGER; V:ARRAY[1..100] OF INTEGER;
3- IF BOXDATOS.TEXT <> '' THEN
4- IF J<>N THEN
5- J:=J+1;
5- M[I,J]:=STRTOINT(MIFORMULARIO.BOXDATOS.TEXT);
5- BOXDATOS.TEXT:='';
5- MIFORMULARIO.BOXDATOS.SETFOCUS;
6- IF I=J THEN
7- SUMA:=SUMA+M[I,J];
8- I:=I+1;
8- J:=1;
8- M[I,J]:=STRTOINT(MIFORMULARIO.BOXDATOS.TEXT);
8- BOXDATOS.TEXT:='';
8- MIFORMULARIO.BOXDATOS.SETFOCUS;
9- IF (I=N)AND(J=N) THEN
10- FINALIZÓ LA CARGA','CARGA DE MATRIZ'
11- MIFORMULARIO.VERDATOS.VISIBLE:=TRUE;
11- MIFORMULARIO.BOXDATOS.VISIBLE:=FALSE;
11- MIFORMULARIO.ACEPTAR.VISIBLE:=FALSE;
12- FOR I:=1 TO N DO
13- FOR J:=1 TO N DO
14-IFORMULARIO.VERDATOS.LINES.ADD('M['+INTTOSTR(I)+','+INTTOSTR(J)+']: '+INTTOSTR(M[I,J]));
15- FOR I:=1 TO N DO
16- FOR J:=1 TO N DO
17- IF I=J THEN
18- V[I]:=M[I,J];
19- FOR I:=1 TO N DO
20- FOR J:=I+1 TO N DO
21- IF V[I]>V[J] THEN
22- AUX:=V[I];
22- V[I]:=V[J];
22- V[J]:=AUX;
23- FOR I:=1 TO N DO
24- FOR J:=1 TO N DO
25- IF I=J THEN
26- M[I,J]:=V[I];
26- MIFORMULARIO.VERDATOS.LINES.ADD('');
26- MIFORMULARIO.VERDATOS.LINES.ADD('LA SUMA DE LA DIAGONAL PRINCIPAL ES:');
26- MIFORMULARIO.VERDATOS.LINES.ADD(INTTOSTR(SUMA));
26- MIFORMULARIO.VERDATOS.LINES.ADD('');
26- MIFORMULARIO.VERDATOS.LINES.ADD('LOS ELEMENTOS ORDENADOS DE LA DIAGONAL PRINCIPAL SON:');
26- T2.VISIBLE:=FALSE;
27- FOR I:=1 TO N DO
28- FOR J:=1 TO N DO
29- IF I=J THEN
30-MIFORMULARIO.VERDATOS.LINES.ADD('M['+INTTOSTR(I)+','+INTTOSTR(J)+']: '+INTTOSTR(M[I,J])
30- MIFORMULARIO.INICIAR.VISIBLE:=TRUE;
31- SHOWMESSAGE('INGRESE UN VALOR');
32- BOXDATOS.SETFOCUS;
AMBOS SE ENCUENTRAN EN EL PRIMER DIGRAMA REPRESENTADO
33- END.(FIN)

1-OK TOTAL(INICIO)
2-IF BOXTOTAL.TEXT <> '' THEN
3- MIFORMULARIO.OKTOTAL.VISIBLE:=FALSE;
3- MIFORMULARIO.BOXTOTAL.VISIBLE:=FALSE;
3- MIFORMULARIO.BOXDATOS.VISIBLE:=TRUE;
3- MIFORMULARIO.ACEPTAR.VISIBLE:=TRUE;
3- N:=STRTOINT(BOXTOTAL.TEXT);
3- MIFORMULARIO.BOXDATOS.SETFOCUS;
3- I:=1; J:=0; SUMA:=0;
3- T1.VISIBLE:=FALSE;
3- T2.VISIBLE:=TRUE;
4- SHOWMESSAGE('INGRESE UN VALOR');
5- BOXTOTAL.SETFOCUS;
6- END.(FIN)

1- INICIAR CLICK(NICIO)
2- MIFORMULARIO.BOXTOTAL.VISIBLE:=TRUE;
2- MIFORMULARIO.OKTOTAL.VISIBLE:=TRUE;
2- MIFORMULARIO.BOXTOTAL.SETFOCUS;
2- MIFORMULARIO.VERDATOS.TEXT:='';
2- MIFORMULARIO.VERDATOS.LINES.ADD('LOS ELEMENTOS SON:');
2- MIFORMULARIO.VERDATOS.VISIBLE:=FALSE;
2- T1.VISIBLE:=TRUE;
2- T2.VISIBLE:=FALSE;
2- BOXTOTAL.TEXT:='';
2- INICIAR.VISIBLE:=FALSE;
3- END(FIN)