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

20 REM * *

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

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

50 REM * *

60 REM **********************************************

70 CLS

80 DIM A(25,25),B(25,25),C(25,25)

90 INPUT "Δώσε τις διάστασεις του πινακα Α";M,N

100 INPUT "Δώσε τις διαστάσεις του πίνακα Β";K,L

110 IF N<>K THEN GOTO 290

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

130 FOR I=1 TO M

140 FOR J=1 TO N

150 PRINT "A(";I;",";J;")=";

160 INPUT A(I,J)

170 NEXT J

180 PRINT

190 NEXT I

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

210 FOR I=1 TO K

220 FOR J=1 TO L

230 PRINT "B(";I;",";J;")=";

240 INPUT B(I,J)

250 NEXT J

260 PRINT

270 NEXT I

280 GOTO 350

290 PRINT "Ο αριθμός των στηλών του πίνακα Α πρέπει να ισούται"

300 PRINT "με τον αριθμό των γραμμών του πίνακα Β"

310 PRINT

320 PRINT "Δώσε πάλι τις διαστάσεις"

330 PRINT

340 GOTO 90

350 PRINT

360 PRINT "Ο πίνακας C=AxB είναι"

370 PRINT

380 FOR I=1 TO M

390 FOR J=1 TO L

400 X=0

410 FOR H=1 TO K

420 X=X+A(I,H)*B(H,J)

430 NEXT H

440 C(I,J)=X

450 PRINT C(I,J);

460 NEXT J

470 PRINT

480 NEXT I