PROGRAM PASCAL PERTAMBAHAN MATRIK ORDO 3X3

mengulas artikel yang kemarin tentang program sederhana pascal sedikit pengenalan program selanjutnya, mungkin sobat sekalian mau mencoba 

inilah source code nya..

silahkan coba :

PERTAMBAHAN MATRIK ORDO 3X3

PROGRAM MATRIK;

USES CRT;

CONST

   B=3;

   K=3;

VAR

   M1,M2,JUMLAH : ARRAY [1..B,1..K] OF INTEGER;

   P,I,J : INTEGER;

BEGIN

   REPEAT

      CLRSCR;

      WRITELN ('PERTAMBAHAN MATRIK ORDO 3X3');

      WRITELN ('---------------------------');

      WRITELN ('[1] ISI MATRIK A');

      WRITELN ('[2] ISI MATRIK B');

      WRITELN ('[3] HASIL A+B');

      WRITELN ('[4] SELESAI');

      WRITE ('PILIHAN 1/2/3/4 : ');

      READLN (P);

      CLRSCR;

      IF (P=1) THEN

      BEGIN

         WRITELN ('ISI MATRIK A');

         WRITELN ('------------');

         FOR I:=1 TO B DO

            BEGIN

               FOR J:=1 TO K DO

                  BEGIN

                     WRITE ('MATRIK [',I,',',J,']',': ');

                     READLN (M1[I,J]);

                  END;

            END;

      END

      ELSE

      IF (P=2) THEN

      BEGIN

         WRITELN ('ISI MATRIK B');

         WRITELN ('------------');

         FOR I:=1 TO B DO

            BEGIN

               FOR J:=1 TO K DO

                  BEGIN

                     WRITE ('MATRIK [',I,',',J,']',': ');

                     READLN (M2[I,J]);

                  END;

            END;

      END

      ELSE

      IF (P=3) THEN

      BEGIN

         WRITELN ('HASIL A+B');

         WRITELN ('---------');

         FOR I:=1 TO B DO

         BEGIN

JUMLAH[I,J]:=0;

            FOR J:=1 TO K DO

            BEGIN

JUMLAH[I,J]:=M1[I,J]+M2[I,J];

            END;

         END;

         FOR I:=1 TO B DO

         BEGIN

            FOR J:=1 TO K DO

            BEGIN

               WRITE (JUMLAH[I,J]:3);

            END;

            WRITELN;

         END;

      END

      ELSE

      IF (P=4) THEN

         EXIT

      ELSE

         WRITELN ('PILIHAN TIDAK TERDEFINISI');

      READLN;

      UNTIL KEYPRESSED;

END.