'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'           CALCULO DE DETERMINANTES DE MATRICES CON LA REGLA DE SARROW
'
'
'
'
'
COLOR 15, 15: CLS
LOCATE 25, 1: COLOR 15, 4: PRINT "          C lculo de un determinante de orden 3 usando la regla de Sarrow       ";
LOCATE 1, 1: COLOR 15, 1: PRINT SPACE$(80)
LOCATE 1, 26: PRINT "PROGRAMA DE CµLCULO MATRICIAL"
PALETTE 4, 36
COLOR 15, 15, 10

 LOCATE 7, 18: PRINT "ÚÄÄÄÄÂÄÄÄÄÂÄÄÄÄ¿"
 LOCATE 8, 18: PRINT "³    ³    ³    ³"
 LOCATE 9, 18: PRINT "ÃÄÄÄÄÅÄÄÄÄÅÄÄÄÄ´"
LOCATE 10, 18: PRINT "³    ³    ³    ³"
LOCATE 11, 18: PRINT "ÃÄÄÄÄÅÄÄÄÄÅÄÄÄÄ´"
LOCATE 12, 18: PRINT "³    ³    ³    ³"
LOCATE 13, 18: PRINT "ÀÄÄÄÄÁÄÄÄÄÁÄÄÄÄÙ"

COLOR 26, 15
DO
   LOCATE 8, 19: INPUT "", a11$
LOOP UNTIL LEN(a11$) < 4
a11 = VAL(a11$)
COLOR 15, 15: LOCATE 8, 19: PRINT a11

COLOR 26, 15
DO
   LOCATE 8, 24: INPUT "", a12$
LOOP UNTIL LEN(a12$) < 4
a12 = VAL(a12$)
COLOR 15, 15: LOCATE 8, 24: PRINT a12

COLOR 26, 15
DO
   LOCATE 8, 29: INPUT "", a13$
LOOP UNTIL LEN(a13$) < 4
a13 = VAL(a13$)
COLOR 15, 15: LOCATE 8, 29: PRINT a13


COLOR 26, 15
DO
   LOCATE 10, 19: INPUT "", a21$
LOOP UNTIL LEN(a21$) < 4
a21 = VAL(a21$)
COLOR 15, 15: LOCATE 10, 19: PRINT a21

COLOR 26, 15
DO
   LOCATE 10, 24: INPUT "", a22$
LOOP UNTIL LEN(a22$) < 4
a22 = VAL(a22$)
COLOR 15, 15: LOCATE 10, 24: PRINT a22

COLOR 26, 15
DO
   LOCATE 10, 29: INPUT "", a23$
LOOP UNTIL LEN(a23$) < 4
a23 = VAL(a23$)
COLOR 15, 15: LOCATE 10, 29: PRINT a23


COLOR 26, 15
DO
   LOCATE 12, 19: INPUT "", a31$
LOOP UNTIL LEN(a31$) < 4
a31 = VAL(a31$)
COLOR 15, 15: LOCATE 12, 19: PRINT a31

COLOR 26, 15
DO
   LOCATE 12, 24: INPUT "", a32$
LOOP UNTIL LEN(a32$) < 4
a32 = VAL(a32$)
COLOR 15, 15: LOCATE 12, 24: PRINT a32

COLOR 26, 15
DO
   LOCATE 12, 29: INPUT "", a33$
LOOP UNTIL LEN(a33$) < 4
a33 = VAL(a33$)
COLOR 15, 15: LOCATE 12, 29: PRINT a33
COLOR 0
FOR a = 7 TO 13
   LOCATE a, 18: PRINT "³               ³   "
NEXT
LOCATE 8, 20: PRINT a11
LOCATE 8, 24: PRINT a12
LOCATE 8, 28: PRINT a13
LOCATE 10, 20: PRINT a21
LOCATE 10, 24: PRINT a22
LOCATE 10, 28: PRINT a23
LOCATE 12, 20: PRINT a31
LOCATE 12, 24: PRINT a32
LOCATE 12, 28: PRINT a33

det = (((a11 * a22 * a33) + (a12 * a23 * a31) + (a13 * a21 * a32)) - ((a31 * a22 * a13) + (a11 * a32 * a23) + (a33 * a12 * a21)))

LOCATE 10, 37: PRINT "="; det

SLEEP