10 REM *********** ΠΡΟΓΡΑΜΜΑ Π104 ***************

20 REM * Πολλαπλασιασμός πινάκων με αποθήκευση *

30 REM * σε μονοδιάστατη μορφή *

40 REM *********** ΠΡΟΓΡΑΜΜΑ Π ***************

50 REM * *

60 REM * *

70 REM * *

80 REM * *

90 REM **********************************************

100 CLS

110 DIM A(20),B(20),C(40)

120 INPUT "Δώσε τις διάστασεις το Α";M,R

130 INPUT "Δώσε τis διάστασεις του Β";L,N

140 IF R=L THEN GOTO 170

150 PRINT "Οι διαστάσεις είναι λάθος ? ? Ξαναπροσπάθησε"

160 GOTO 120

170 ML=M*L

180 LN=L*N

190 PRINT "Δώσε τα στοιχεία του πίνακα Α κατά γραμμή"

200 FOR I= 1 TO ML

210 INPUT A(I)

220 IF INT(I/M)*M=I AND I<>ML THEN PRINT"επόμενη γραμμή"

230 NEXT I

240 PRINT "Δώσε τα στοιχεία του πίνακα Β κατά γραμμή"

250 FOR I=1 TO LN

260 INPUT B(I)

270 IF INT(I/L)*L=I AND I<>LN THEN PRINT"επόμενη γραμμή"

280 NEXT I

290 TC=1

300 AL=0

310 FOR I=1 TO M

320 AU=AL+L

330 AL=AL+1

340 FOR J=1 TO N

350 TB=J

360 X=0

370 FOR K=AL TO AU

380 X=A(K)*B(TB)+X

390 TB=TB+N

400 NEXT K

410 C(TC)=X

420 TC=TC+1

430 NEXT J

440 AL=L

450 NEXT I

460 PRINT "-----------------------------------------------"

470 PRINT " Το γινόμενο των πινάκων Α και Β είναι C=A x B"