LynxLunk


Buatkan program pertambahan 2 matrik ordo 3x3



PROGRAM JUMLAH_MATRIK_ORDO3X3;
USES WINCRT;
VAR
   COL, ROW, A : INTEGER;
   MATRIK   : ARRAY[1..2,1..3,1..3]OF INTEGER;
   MATRIK1  : ARRAY[1..3,1..3]OF INTEGER;
BEGIN
    FOR A := 1 TO 2 DO
    BEGIN
    WRITELN ('MATRIK KE-',A);
    FOR COL := 1 TO 3 DO
    BEGIN
        FOR ROW := 1 TO 3 DO
        BEGIN
             WRITE('MASUKAN ELEMEN MATRIK KE',COL,' - ',ROW,' : ');READLN(MATRIK[A,COL,ROW]);
        END;
    END;
    END;
    FOR A := 1 TO 3 DO
        BEGIN
             MATRIK1[A,1] := MATRIK[1,A,1] + MATRIK[2,A,1];
             MATRIK1[A,2] := MATRIK[1,A,2] + MATRIK[2,A,2];
             MATRIK1[A,3] := MATRIK[1,A,3] + MATRIK[2,A,3];
        END;
    {MENAMPILKAN MATRIK }
    WRITELN('JUMLAH MATRIK ORDO 3X3');
    WRITE('| ',MATRIK[1,1,1],'   ',MATRIK[1,1,2],'   ',MATRIK[1,1,3],' |       ');
    WRITE('| ',MATRIK[2,1,1],'   ',MATRIK[2,1,2],'   ',MATRIK[2,1,3],' |       ');
    WRITELN('| ',MATRIK1[1,1],'   ',MATRIK1[1,2],'   ',MATRIK1[1,3],' |');
    WRITE('| ',MATRIK[1,2,1],'   ',MATRIK[1,2,2],'   ',MATRIK[1,2,3],' |   +   ');
    WRITE('| ',MATRIK[2,2,1],'   ',MATRIK[2,2,2],'   ',MATRIK[2,2,3],' |   =   ');
    WRITELN('| ',MATRIK1[2,1],'   ',MATRIK1[2,2],'   ',MATRIK1[2,3],' |');
    WRITE('| ',MATRIK[1,3,1],'   ',MATRIK[1,3,2],'   ',MATRIK[1,3,3],' |       ');
    WRITE('| ',MATRIK[2,3,1],'   ',MATRIK[2,3,2],'   ',MATRIK[2,3,3],' |       ');
    WRITELN('| ',MATRIK1[3,1],'   ',MATRIK1[3,2],'   ',MATRIK1[3,3],' |');
END.

Categories: , ,

Leave a Reply