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 ... » Delphi[Video] Transfer Data antar Form di Delphi. 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
  • contoh kodeMembuat Kode Acak dengan PHP. Read more ... » delphi penjumlahan array
  • perkalian delphi array 2 dimensi
  • penjumlahan matriks pada delphi
  • program delphi 7 matrik 2×3
  • penjumlahan matriks delphi contoh
  • penjumlahan matriks 2 dimensi pascal
  • penjumlahan dua nilai dengan delphi
  • Rumus delphi dalam tabel penjumlahan dan perkalian matrik
  • program menginputkan nilai hp delphi array
  • program penjumlahan matriks dengan delphi
  • program perkalian matrik delphi
  • cara penjumlahan array pascal
  • rumus delphi penjumlahan matriks
  • rumus penjumlahan 2 begin pada pascal
  • scrip aplikasi yang berisi array di delphi7
  • script queueDelphi - Program Queue (Console Application). Read more ... » delphi 7
  • membuat rumus pada delphi console

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: