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
  • contoh penjumlahan array pada pascal
  • array pada delphi
  • cara membuat program delphi 7
  • cara membuat desain penjumlahan didalam formMembuat Kode Acak dengan PHP. Read more ... » delpi
  • membuat array dengan delphi
  • membuat perkalian dengan delphi 7
  • array 1Tips Gaul World Cup 2014. Read more ... » dimensi delphi
  • array 2 dimensi pada delphi
  • cara buat penjumlahan di delphi
  • source code delphi array
  • source code array delphi
  • progam untuk menjumlahkan 2 array
  • perkalian matriks program delphi
  • membuat program array 2 dimensi
  • contoh program array 2dimensi dhelphi form
  • array dimensi dua delphi
  • list program array 1 dimensi untuk dataMySQL : Sorting Non-Sortable Data. Read more ... » form
  • delphi array cara
  • contoh array 2 dimensi delphi
  • contoh program array 1 dimensi delphi
  • 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: