CONTOH SCRIPT DASAR PEMBUATAN PROGRAM PADA DELPHI 7 (Part 4)

Naaah,, sebelumnya saya sudah bahas tentang pengertian dari Matrik dalam Pemograman komputer.
Selanjutnya saya akan kasih Contoh Statement penulisan Coding Matrik.

• Statement penulisan Coding Matrik

 

program Project1_matriks;

{$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 A = ' ); readln(KOL);

  write('masukkan Jumlah Baris A = ' ); 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;

  write('masukkan Jumlah Kolom B = ' ); readln(KOL);

  write('masukkan Jumlah Baris B = ' ); readln(BAR);

  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;

  writeln('');

    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;

  writeln('');

   for X := 1 to BAR do

      BEGIN

        for Y := 1 to KOL do

          BEGIN

            write(C[X,Y]:7);

          END;

          writeln;

      END;

      readln;

end.

Dan hasinya seperti ini..

 Silahkan mencoba ^_^ ..