Delphi – Penjumlahan Array 2 Dimensi

Penjumlahan_Array_2_Dimensi_pada_Delphi

Penjumlahan_Array_2_Dimensi_pada_Delphi


Ini adalah source codeLangkah Awal Belajar Java dengan NetBeans. Read more ... » DelphiDownload Delphi IDE Theme Editor. Read more ... » untuk penjumlahanPenjumlahan Tanggal, Bulan dan Tahun dengan PHP. Read more ... » array 2 dimensi:

program Array2Dimensi_Penumlahan;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  larik = array[1..100, 1..100] of integer;

var
  A, B, C : larik;
  i, j, nbar, nkol : integer;

procedure matrikA(nbar, nkol: integer; var A: larik);
var
  i, j : integer;
begin
  for i := 1 to nbar do
  begin
    writeln;
    for j := 1 to nkol do
    begin
      write('Input nilai larik ke ',i,',',j,' : '); readln(A[i,j]);
    end;
  end;
end;

procedure cetak_A(nbar, nkol: integer; var A: larik);
var
  i, j : integer;
begin
  for i := 1 to nbar do
  begin
    for j := 1 to nkol do
    begin
      write(A[i,j], '   ');
    end;
    writeln;
  end;
end;

procedure matrikB(nbar, nkol: integer; var B: larik);
var
  i, j : integer;
begin
  for i := 1 to nbar do
  begin
    writeln;
    for j := 1 to nkol do
    begin
      write('Input nilai larik ke ',i,',',j,' : '); readln(B[i,j]);
    end;
  end;
end;

procedure cetak_B(nbar, nkol: integer; var B: larik);
var
  i, j : integer;
begin
  for i := 1 to nbar do
  begin
    for j := 1 to nkol do
    begin
      write(B[i,j], '   ');
    end;
    writeln;
  end;
end;

procedure JumlahMatriks(A, B : larik; var C : larik; nbar, nkol: integer);
var
  i, j : integer;  { indeks baris }

begin
  for i := 1 to nbar do
  begin
    for j := 1 to nkol do
    begin
      C[i,j] := A[i,j] + B[i,j];   { penjumlahan matriks 	A dan B }
      write(C[i,j], '   ');
    end;
    writeln;
  end;
end;

begin
  write('input nilai baris : '); readln(nbar);
  write('input nilai kolom : '); readln(nkol);

  writeln;
  writeln('Matrik A');
    write('--------');
  matrikA(nbar, nkol, A);
  writeln; writeln;
  cetak_A(nbar, nkol, A);

  writeln;
  writeln('Matrik B');
    write('--------');
  matrikB(nbar, nkol, B);
  writeln; writeln;
  cetak_B(nbar, nkol, B);

  writeln;
  write('Tekan [Enter] untuk memulai perhitungan...');
  readln;

  writeln;
  writeln('Jumlah Matrik');
  writeln('-------------');
  JumlahMatriks(A, B, C, nbar, nkol);

  readln;
end.

Popular Keywords

  • contoh program delphi 7
  • yhs-0001
  • contoh array 2 dimensi
  • fungsi array pada delphi
  • array pada delphi
  • contoh penjumlahan array pada pascal
  • cara membuat program delphi 7
  • cara membuat desain penjumlahan didalam formMembuat Kode Acak dengan PHP. Read more ... » delpi
  • membuat array dengan delphi
  • contoh program pascal penjumlahan dua dimensi
  • cara buat penjumlahan di delphi
  • contoh dataMySQL : Sorting Non-Sortable Data. Read more ... » penjumlahan larik dua dimensi
  • membuat perkalian dengan delphi 7
  • source code delphi array
  • source code array delphi
  • progam untuk menjumlahkan 2 array
  • perkalian matriks program delphi
  • penjumlahan matrik delphi console dengan while do
  • membuat program array 2 dimensi
  • list program array 1 dimensi untuk data form
  • contoh program array 2dimensi dhelphi form
  • contoh program array delphi

Aa

Masih seorang pelajar yang belum bosan menuntut ilmu. Ilmu tentang pemrograman, networking, website, anime dan lain sebagainya. Yuk kenalan.

You may also like...

Silahkan tinggalkan pesan agar saya bisa membantu Anda

Baca juga artikel iniclose
%d bloggers like this: