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