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 desain penjumlahan didalam formMembuat Kode Acak dengan PHP. Read more ... » delpi
  • cara membuat program delphi 7
  • contoh kodeMembuat Kode Acak dengan PHP. Read more ... » delphi penjumlahan array
  • perkalian delphi array 2 dimensi
  • penjumlahan matriks pada delphi
  • contoh program delphi array 2 dimensi
  • script queueDelphi - Program Queue (Console Application). Read more ... » delphi 7
  • rumus penjumlahan 2 begin pada pascal
  • rumus delphi penjumlahan matriks
  • Rumus delphi dalam tabel penjumlahan dan perkalian matrik
  • program perkalian matrik delphi
  • program penjumlahan matriks dengan delphi
  • program menginputkan nilai hp delphi array
  • program delphi 7 matrik 2×3
  • contoh listing penjumlahan matriks array 2 dimensi dengan mengunakan fungsi
  • contoh aplikasi perkalian 3 matrik di delphi
  • penjumlahan matriks delphi contoh
  • penjumlahan dua nilai dengan delphi
  • cara penjumlahan array pascal

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

Switch to our mobile site

%d bloggers like this: