CONTOH SCRIPT MATRIK (PART 4)

SCRIPT MATRIK PADA PROGRAM DELPHI 7

·         nah selanjutnya saya akan memberikan contoh tentang coding matriks

·         rumus: 

•        Statement penulisan coding matrik

        

·          

·            program membuat_matrik_bil_ganjil;

·         {$APPTYPE CONSOLE}

·          

·         uses

·           SysUtils;

·           VAR

·          A,B,C:ARRAY[1..10,1..10]OF INTEGER;

·          X,Y,KOL,BAR:INTEGER;

·         begin

·           WRITE('MASUKKAN JUMLAH KOLOM= ');READLN(KOL);

·           WRITE('MASUKKAN JUMLAH BARIS= ');READLN(BAR);

·           WRITELN;

·           WRITELN('MASUKKAN DATA MATRIK A');

·           FOR X := 1 TO BAR DO

·           BEGIN

·           FOR Y := 1 TO KOL DO

·           BEGIN

·           WRITE('MATRIK A[',X,':',Y,']=');

·           READLN(A[X,Y]);

·           END;

·           END;

·          

·            WRITELN;

·            WRITELN('MASUKKAN DATA MATRIK B');

·           FOR X := 1 TO BAR DO

·           BEGIN

·           FOR Y := 1 TO KOL DO

·           BEGIN

·           WRITE('MATRIK B[',X,':',Y,']=');

·           READLN(B[X,Y]);

·           END;

·           END;

·          

·           FOR X := 1 TO BAR DO

·           BEGIN

·           FOR Y := 1 TO KOL DO

·           BEGIN

·           C[X,Y]:=A[X,Y]+B[X,Y];

·           END;

·           END;

·          

·           FOR X := 1 TO BAR DO

·           BEGIN

·           FOR Y := 1 TO KOL DO

·           BEGIN

·           WRITE(C[X,Y]:6);

·           END;

·           WRITELN;

·           END;

·          

·           READLN;

·         end.

·          

·         dan inilah hasilnya:

·