![2º PASO: PROGRAMAR EL BOTON (CARGAR MATRIZ)PRIMERO DECLARAMOS LA MATRIZ ASI:var Form1: TForm1;matrizDiagonal:array [1..n,1..n] of integer;implementation{$R *.dfm}](https://image.slidesharecdn.com/presentacionmatrizdiagonal-110901122448-phpapp01/85/Presentacion-matriz-diagonal-4-320.jpg)
![2º PASO: PROGRAMAR EL BOTON (CARGAR MATRIZ)LUEGO PROGRAMAMOS EL BOTON ASI:procedure TForm1.CARGAR_MATRIZClick(vari,j:integer;beginfor i:=1 to n dofor j:=1 to n doif (i=j)thenbeginmatrizDiagonal[i,j]:=strtoint(inputbox('CAPTURA DE DATO','INTRODUCE EL NUMERO PARA LLENA LA MATRIZ',''));grid.Cells[j-1,i-1]:=inttostr( matrizDiagonal[i,j]);endelsegrid.Cells[j-1,i-1]:='0';end;](https://image.slidesharecdn.com/presentacionmatrizdiagonal-110901122448-phpapp01/85/Presentacion-matriz-diagonal-5-320.jpg)
![3º PROGRAMAMOS EL BOTON BORRAR MATRIZESTE BOTON SE PROGRAMA ASI:procedureTForm1.BORRAR_MATRIZClick(Sender: TObject);vari,j:integer;beginfor i:=1 to n dofor j:=1 to n dogrid.Cells[j-1,i-1]:='';end;](https://image.slidesharecdn.com/presentacionmatrizdiagonal-110901122448-phpapp01/85/Presentacion-matriz-diagonal-6-320.jpg)
![4º PROGRMAMAOS EL BOTON SALIR (OPCIONAL)DE ESTA MANERA: procedureTForm1.SALIRClick(Sender: TObject);beginbeginIF MESSAGEDLG ('¿DESEA TERNINAR DE TRABAJAR?',MTWARNING,[MBYES,MBNO],0)=MRNO THEN SHOWMESSAGE('PUEDES CONTINUAR.........!')ELSE CLOSE;end;end;](https://image.slidesharecdn.com/presentacionmatrizdiagonal-110901122448-phpapp01/85/Presentacion-matriz-diagonal-7-320.jpg)
Presentacion matriz diagonal
- 1. BIENVENIDOS A ESTA PREENTACION DE DIAPOSITIVAS
- 2. República Bolivariana de VenezuelaMinisterio de Educación UniversitariaUniversidad Pedagógica Experimental Libertador“Luis Beltrán Prieto Figueroa”MATRIZ DIAGONALAUTOR:TREJO ELIANA SECCION: 102 PAENA-2011PROFA.: ANAIDA ESCALONABARQUISIMETO, AGOSTO DE 2011
- 3. 1º PASO REALIZAMOS EL FORMULARIOINSERTAMOS UN TITULO (LABEL)INSERTAMOS UN MEMO DONDE SE INDIQUE LA FINALIDAD DEL PROGRAMINSERTAMOS UNA IMAGEN BMP PARA HACER VISTISO EL PROGRAMAINSERTAMOS LOS BOTONES QUE DESEAMOS COLOCARINSERTAMOS UN STRINGRID QUE MUESTRE LA MATRIZ
- 4. 2º PASO: PROGRAMAR EL BOTON (CARGAR MATRIZ)PRIMERO DECLARAMOS LA MATRIZ ASI:var Form1: TForm1;matrizDiagonal:array [1..n,1..n] of integer;implementation{$R *.dfm}
- 5. 2º PASO: PROGRAMAR EL BOTON (CARGAR MATRIZ)LUEGO PROGRAMAMOS EL BOTON ASI:procedure TForm1.CARGAR_MATRIZClick(vari,j:integer;beginfor i:=1 to n dofor j:=1 to n doif (i=j)thenbeginmatrizDiagonal[i,j]:=strtoint(inputbox('CAPTURA DE DATO','INTRODUCE EL NUMERO PARA LLENA LA MATRIZ',''));grid.Cells[j-1,i-1]:=inttostr( matrizDiagonal[i,j]);endelsegrid.Cells[j-1,i-1]:='0';end;
- 6. 3º PROGRAMAMOS EL BOTON BORRAR MATRIZESTE BOTON SE PROGRAMA ASI:procedureTForm1.BORRAR_MATRIZClick(Sender: TObject);vari,j:integer;beginfor i:=1 to n dofor j:=1 to n dogrid.Cells[j-1,i-1]:='';end;
- 7. 4º PROGRMAMAOS EL BOTON SALIR (OPCIONAL)DE ESTA MANERA: procedureTForm1.SALIRClick(Sender: TObject);beginbeginIF MESSAGEDLG ('¿DESEA TERNINAR DE TRABAJAR?',MTWARNING,[MBYES,MBNO],0)=MRNO THEN SHOWMESSAGE('PUEDES CONTINUAR.........!')ELSE CLOSE;end;end;
- 8. EL PROGRAMA EJECUTADO SERIA ASI:PRESIONAMOS F9 PARA LLEGAR A ESTA PANTALLA
- 9. EL PROGRAMA YA EJECUTADO ES ASI:UNA VEZ QUE EJECUTAS E INTRODUCES LOS NUMEROS QUE DESEAS POR MEDIOS DE UN IMPUTBOX, SE TE MOSTRARA ESTA PANTALLA
- 10. GRACIAS POR SU ATENCIONELABORADO POR: ELIANA TREJO MEMAIL: ELIANATRJO21@GMAIL.COM