document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. program PasanganBilangan;
  2. { menerima inputan array A dan B kemudian menentukan banyaknya pasangan yang dapat dibentuk sehingga A + B = N }
  3.  
  4. { KAMUS }
  5. var
  6.     A,B,i,j,count,N: integer;
  7.     elementA,elementB : array [1..100] of integer;
  8.  
  9. {ALGORITMA UTAMA}
  10. begin
  11.     { Selalu Cek http://falah-kharisma.blogspot.com }
  12.     { Untuk Contoh Pemrograman Pascal Lainnya       }
  13.     // Memasukan banyaknya elemen pada A
  14.     write(\'Masukan banyak elemen pada A : \');
  15.     readln(A);
  16.    
  17.     // Memasukan nilai - nilai dari elemen A
  18.     writeln(\'Masukan elemen pada A: \');
  19.     for i:=1 to A do
  20.     begin
  21.         read(elementA[i]);
  22.     end;
  23.    
  24.     // Memasukan banyaknya elemen pada B
  25.     write(\'Masukan banyak elemen pada B : \');
  26.     readln(B);
  27.    
  28.     // Memasukan nilai - nilai dari elemen B
  29.     writeln(\'Masukan elemen pada B: \');
  30.     for i:=1 to B do
  31.     begin
  32.         read(elementB[i]);
  33.     end;
  34.    
  35.     // Memasukan nilai N
  36.     write(\'Masukan nilai N : \');
  37.     readln(N);
  38.    
  39.     // Akan ditentukan banyaknya pasangan sehingga nilai Elemen dari array A dan array B berjumlah N
  40.     count:=0;
  41.     for i:=1 to A do
  42.     begin
  43.         for j:=1 to B do
  44.         begin
  45.             if (elementA[i] + elementB[j] = N) then
  46.             begin
  47.                 count:=count+1;
  48.             end;
  49.         end;
  50.     end;
  51.    
  52.     // Menampilkan banyaknya pasangan A dan B sehingga A+B berjumlah N
  53.     writeln(\'Banyak pasangan ada sebanyak \',count);
  54. end.
');