Elaborado por: Marly Fernández

1. Abrir el Programa

2. Agregamos un label, un groupbox;un botón, y un grid(4columnas x 4filas). (Cambiándole los nombres a cada componente).

3. Adicionamos dos nuevos : verificar y salir. Los cuales programaremos luego. Cambiamos el color del formulario y agregamos una imagen.

4. Ahora nos vamos al unity declaramos nuestro arreglo y nuestras variables.

5. Programamos los botones:salir, ingresar número.

(Botón Salir)procedure TForm1.Button16Click(Sender: TObject);begin

close;end;

(Botón Ingresar Números)procedure TForm1.boton1Click(Sender: TObject);begini:= 0;j:= 0;for i:= 1 to 4 dofor j:= 1 to 4 do

beginmat[j,i]:= strtoint(inputbox('Ingrese un Numero','','0'));grid1.Cells[j -1 , i -1]:= inttostr(mat[j,i]);carga:= mat[j,i];end;

button15.Enabled:=true;boton1.Enabled:=false;

end;

6. Programamos el botón Verificarprocedure TForm1.Button15Click(Sender: TObject);varconta:integer;contb:integer;x,y:integer;begin

conta:= 0;contb:=0;for i:= 1 to 4 dofor j:= 1 to 4 dobeginresultado[i,j]:=0;

end;

for i:= 1 to 3 dofor j:= 2 to 4 do

beginif (i<>j) and ((mat[i,j]) = 0 )thenbeginconta:= conta + 1;resultado[i,j]:= mat[i,j];

end;

(Continúa en el siguiente cuadro)

if (conta = 6) thenbeginshowmessage('Es de tipo: Triangular Superior');button15.Enabled:=false;boton1.Enabled:=true;endelse

if (contb = 6) thenbeginshowmessage('Es de tipo: Triangular Inferior');button15.Enabled:=false;boton1.Enabled:=true;endelse

if (conta <> 6) and (contb <> 6) thenbeginshowmessage('La Matriz es Diagonal');button15.Enabled:=false;boton1.Enabled:=true;end;

for x:=1 to 4 dofor y:=1 to 4 dogrid1.Cells[x-1,y-1]:='';

end;

6. Así se ve nuestra pantalla corrida

6. Así se ve nuestra pantalla corrida

Triangular Inferior

Triangular Superior

Diagonal