Sayfa 5

CARPIM PRİNT MATRIS MA TNLOGP

EXEC EKXEC REM REM MATRISIN TERSİ REM PRİNT K OLAN Isiİ:EXEC SATIR&SUTUN IF 618 IF THEN EXEC 5 PRİNT YAPILIYOR..." EXEC TERS IF FFsf THEN :EXEC ÜR DER CENTRE AT(0,12)”"YERİLEN MATRISIN TE RSI YOKTUR!":POKE 198,11

GOTO 688 EXEC PRİNT POKE 198,0:CALL MAINLOOP REM REM MATRISIN TRANSPOZU REM PRİNT BULU

NACAK OLAN SATIR&SUTUN IF THEN EXEC

YAPILIYOR..." ESEC DEYVRİK EREC PRİNT MATRIS CALL MATNLOOP REM REM REM PRİNT "<4ADİMNI<RIGHT>DETERMİNANTI B ULUNACAK ULAN MATRISIN:; "<DO LAN >” SATIR&SUTUN IF 848 İF THEN EXEC Ss YAP ESEC DETERMİNANT PRİNT B OR DER CENTRE CENTRE 198,0:

MATRISIN DETERMİNANTI

REM REM EK MATRİS REM PRİNT "<4ADOLİN><RIİGHT>EK MATRISI BUL

UNACAK OLAN MATRISIN; "EPRİNT >" İS1İ:EXEC SATIR&SUTUN IF RN<>CNGOTO İF RNSC1)<>”

THEN GET MAİRİS PRİNT "<CLR>":CENTRE YAPILIYOR. .." EXEC DETERMİNANT

IF THEN >*:EXEC B OR DER CENTRE MATRISIİN EK MATRISI YOKTUR!” PÖKE iİ98,1:FOKE 198,0:60 TO 18648

FOR Js1i TO RNEFÖR TO EXEC SKALERCARPIM EXEC PRİNT MATRİS CALL

REM REM öle e koli ole öl ole ale le REM REM PROC TO PLAMA REM

FOR Js1 TÜ TO NEXT END PROC REM PROC SKALERCARPIM REM kkk FOR Jz1 TO TO CN:ME<J,K) END PROC REM PROC CARPIM REM FOR TO TO CNC2):M İzi TO CNC1) NEXT NEXT NEXT END PROC REM PROC TERS REM x4xk

FOR Isi TO RNEFOR Jz1 TO RNEMacI,J) NEXT İzi TO RNİMİCE,İ,RN*

NEXT PROC IF AND M-<RN) THEN 1368 IF THEN PROC FOR TO :GOTO 1398 REM kkk PROC DEYRİK REM kkk FOR JIs1 TO RNEFOR TO