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
  • yhs-per_003
  • array 1Tips Gaul World Cup 2014. Read more ... » dimensi delphi
  • array 2 dimensi delphi
  • contoh program delphi array
  • array 2 dimensi pada delphi
  • contoh program array dinamis delphi
  • penjumlahan matriks di delphi
  • membuat program array pada delphi
  • membuat array di delphi
  • membuat array di delphi 7
  • perkalian array dua dimensi pada delphi
  • Perkalian matriks delphi 2dimensi
  • penjunlahan matrik di delphi
  • tutorialEditing Drop Down Tanggal dengan Database. Read more ... » array pada delphi 7
  • script pascal penjumlahan
  • program penjumlahan matriks pada delphi
  • program penjumlahan matrik di 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: