SOAL :
Praktekkan pada buku Algoritma dan Pemrograman halaman 418 s/d 423, buat notasi algoritma pseudo code, pascal, C dan Java. Soal dan Jawaban di posting di website pribadi masing - masing.
JAWABAN :
1. NOTASI PSEUDOCODE
PROGRAM Matriks
{ Menjumlahkan dua
buah Matriks dengan meng-inputkan banyaknya baris dan kolom dan meng-input
setiap elemen dari Matriks A dan B sehingga menghasilkan output-an hasil penjumlahan
dari Matriks A + B }
{ DEKLARASI }
const Nbar = 20 { jumlah baris Maksimum }
const Nkol = 20 { jumlah kolom Maksimum }
type MatriksInt = array [1..Nbar, 1..Nkol] of integer
A, B, C: MatriksInt
p, q : integer
{ PROCEDURE
BacaMatriks }
procedure BacaMatriks ( output A, B : MatriksInt, input
Nbar, Nkol : integer);
{ Mengisi elemen
matriks A[1..Nbar, 1..Nkol] dan elemen matriks B[1..Nbar, 1..Nkol] dari papan
ketik }
{ DEKLARASI }
i : integer { Indeks baris }
j : integer { Indeks kolom }
{ ALGORITMA }
write ('- Matriks A : ')
for i ß 1 to Nbar do
for j ß 1 to Nkol do
read(A[i,j])
end for
end for
write('- Matriks B : ')
for i ß 1 to Nbar do
for j ß 1 to Nkol do
read(B[i,j])
end for
end for
end for
{ Seluruh elemen
Matriks A dan B sudah berisi nilai yang dibaca dari papan ketik }
{ PROCEDURE
TulisMatriks }
procedure TulisMatriks (output A, B : MatriksInt, input
Nbar, Nkol : integer)
{ Mencetak Elemen
Matriks A[1..Nbar, 1..Nkol] dan B[1..Nbar, 1..Nkol] ke layar }
{ DEKLARASI }
i : integer; { Indeks baris }
j : integer; { Indeks kolom }
{ ALGORITMA }
write('- Matriks A :')
for i ß 1 to Nbar do
for j ß 1 to Nkol do
write(A[i,j],' ')
end for
end for
write('- Matriks B :')
for i ß 1 to Nbar do
for j ß 1 to Nkol do
write(B[i,j],' ')
end for
end for
end for
{ Seluruh elemen
Matrisk tertulis di layar. }
{ PROCEDURE
JumlahDuaMatriks }
procedure JumlahDuaMatriks (input A, B : MatriksInt, input
Nbar, Nkol : integer, output C : MatriksInt)
{ Menjumlahkan
matriks A dan B, yaitu A + B = C }
{ DEKLARASI }
i : integer { indeks baris }
j : integer { indeks kolom }
{ ALGORITMA }
for i ß 1 to Nbar do
for j ß 1 to Nkol do
C[i, j] = A[i, j] + B[i, j]
end for
end for
end for
{ Matriks C berisi
hasil penjumlahan A dan B }
{ PROGRAM UTAMA
}
{ ALGORITMA }
write ('Memasukkan data ukuran matriks : ')
write ('Berapa jumlah baris (1-20) : ')
read (p)
write ('Berapa jumlah kolom (1-20) : ')
read(q)
BacaMatriks(A, B, p,
q) { Memanggil Procedure BacaMatriks }
write ('Bentuk matriks A dan B : ')
TulisMatriks(A, B, p,
q) { Memanggil Procedure
TulisMatriks }
write('Hasil penjumlahan dari Matriks A dan B : ')
write('A + B = ')
JumlahDuaMatriks(A,
B, p, q, C) { Memanggil Procedure JumlahDuaMatriks
}
end.
2. BAHASA PASCAL :
- Link Bahasa Pascal : https://onlinegdb.com/7xdMJZiiw
program Matriks;
{ Menjumlahkan dua buah Matriks dengan meng-inputkan banyaknya baris dan kolom dan meng-input setiap elemen dari
Matriks A dan B sehingga menghasilkan output-an hasil dari Matriks A + B }
{ DEKLARASI }
const Nbar = 20; { jumlah baris Maksimum }
const Nkol = 20; { jumlah kolom Maksimum }
type MatriksInt = array [1..Nbar, 1..Nkol] of integer;
var
A, B, C: MatriksInt;
p, q : integer;
{ PROCEDURE BacaMatriks }
procedure BacaMatriks ( var A, B : MatriksInt; var Nbar, Nkol : integer);
{ Mengisi elemen matriks A[1..Nbar, 1..Nkol] dan elemen matriks B[1..Nbar, 1..Nkol] dari papan ketik }
{ DEKLARASI }
var
i : integer; { Indeks baris }
j : integer; { Indeks kolom }
{ ALGORITMA }
begin
writeln;
writeln ('- Matriks A : ');
for i := 1 to Nbar do
begin
for j := 1 to Nkol do
begin
write ('Ketikkan elemen A[',i,',', j,'] : ');
readln (A[i,j]);
end;
end;
writeln;
writeln ('- Matriks B : ');
for i := 1 to Nbar do
begin
for j := 1 to Nkol do
begin
write ('Ketikkan elemen B[',i,',', j,'] : ');
readln (B[i,j]);
end;
end;
end;
{ Seluruh elemen Matriks A dan B sudah berisi nilai yang dibaca dari papan ketik }
{ PROCEDURE TulisMatriks }
procedure TulisMatriks (var A, B : MatriksInt; var Nbar, Nkol : integer);
{ Mencetak Elemen Matriks A[1..Nbar, 1..Nkol] dan B[1..Nbar, 1..Nkol] ke layar }
{ DEKLARASI }
var
i : integer; { Indeks baris }
j : integer; { Indeks kolom }
{ ALGORITMA }
begin
writeln;
writeln ('- Matriks A :');
for i := 1 to Nbar do
begin
for j := 1 to Nkol do
begin
write (A[i,j],' ');
end;
writeln; { Pindahkan kursor ke awal baris berikutnya }
end;
writeln;
writeln ('- Matriks B :');
for i := 1 to Nbar do
begin
for j := 1 to Nkol do
begin
write (B[i,j],' ');
end;
writeln; { Pindahkan kursor ke awal baris berikutnya }
end;
end;
{ Seluruh elemen Matrisk tertulis di layar. }
{ PROCEDURE JumlahDuaMatriks }
procedure JumlahDuaMatriks (var A, B : MatriksInt; var Nbar, Nkol : integer; var C : MatriksInt);
{ Menjumlahkan matriks A dan B, yaitu A + B = C }
{ DEKLARASI }
var
i : integer; { indeks baris }
j : integer; { indeks kolom }
{ ALGORITMA }
begin
for i := 1 to Nbar do
begin
for j := 1 to Nkol do
begin
C[i, j] := A[i, j] + B[i, j];
write (C[i, j], ' ');
end;
writeln; { Pindahkan kursor ke awal baris berikutnya }
end;
end;
{ Matriks C berisi hasil penjumlahan A dan B }
{ PROGRAM UTAMA }
{ ALGORITMA }
begin
writeln;
writeln ('====================================================');
writeln ('| NAMA : ANGGI ALAMSYAH |');
writeln ('| NIM : 0402221017 |');
writeln ('| PRODI : TEKNIK INFORMATIKA |');
writeln ('| FAKULTAS : ILMU KOMPUTER |');
writeln ('| UNIVERSITAS NAHDLATUL ULAMA |');
writeln ('====================================================');
writeln;
writeln (' PROGRAM MENJUMLAHKAN MATRIKS A + B ');
writeln ('====================================================');
writeln ('');
writeln ('Memasukkan data ukuran matriks : ');
write ('Berapa jumlah baris (1-20) : ');
readln (p);
write ('Berapa jumlah kolom (1-20) : ');
readln (q);
writeln ('.........................................');
BacaMatriks(A, B, p, q); { Memanggil Procedure BacaMatriks }
writeln;
writeln ('Bentuk matriks A dan B : ');
writeln ('.........................................');
TulisMatriks(A, B, p, q); { Memanggil Procedure TulisMatriks }
writeln;
writeln ('Hasil penjumlahan dari Matriks A dan B : ');
writeln ('.........................................');
writeln ('A + B = ');
JumlahDuaMatriks(A, B, p, q, C); { Memanggil Procedure JumlahDuaMatriks }
end.
OUTPUT PROGRAM :
3. BAHASA C :
- Link Bahasa C : https://onlinegdb.com/KT5Ds5g4o
/* PROGRAM Matriks */
/* Menjumlahkan dua buah Matriks dengan meng-inputkan banyaknya baris dan kolom dan meng-input setiap elemen dari
Matriks A dan B sehingga menghasilkan output-an hasil dari Matriks A + B */
#include <stdio.h>
#define Nbaris 20 /* jumlah baris Maksimum */
#define Nkolom 20 /* Jumlah kolom Maksimum */
typedef int MatriksInt [Nbaris][Nkolom];
void BacaMatriks(MatriksInt A, MatriksInt B, int Nbar, int Nkol);
/* Mengisi elemen matriks A[1..Nbar, 1..Nkol] dan elemen matriks B[1..Nbar, 1..Nkol] dari papan ketik */
void TulisMatriks(MatriksInt A, MatriksInt B, int Nbar, int Nkol);
/* Mencetak Elemen Matriks A[1..Nbar, 1..Nkol] dan B[1..Nbar, 1..Nkol] ke layar */
void JumlahDuaMatriks(MatriksInt A, MatriksInt B, int Nbar, int Nkol, MatriksInt C);
/* Menjumlahkan matriks A dan B, yaitu A + B = C */
int main()
{
/* DEKLARASI */
MatriksInt A, B, C;
int Nbar;
int Nkol;
/* ALGORITMA */
printf("\n====================================================");
printf("\n| NAMA : ANGGI ALAMSYAH |");
printf("\n| NIM : 0402221017 |");
printf("\n| PRODI : TEKNIK INFORMATIKA |");
printf("\n| FAKULTAS : ILMU KOMPUTER |");
printf("\n| UNIVERSITAS NAHDLATUL ULAMA |");
printf("\n====================================================");
printf("\n\n");
printf(" PROGRAM MENJUMLAHKAN MATRIKS A + B\n");
printf("====================================================\n\n");
printf("Hello World");
/* PROGRAM UTAMA */
printf("Memasukkan ukuran Matriks : \n");
printf("Berapa jumlah baris? (1-20) : ");
scanf("%d", &Nbar);
printf("Berapa jumlah kolom? (1-20) : ");
scanf("%d", &Nkol);
printf(".........................................\n");
BacaMatriks(A, B, Nbar, Nkol); /* Memanggil Procedure BacaMatriks */
printf("\n");
printf("Bentuk matriks A dan B : \n");
printf(".........................................");
TulisMatriks(A, B, Nbar, Nkol); /* Memanggil Procedure TulisMatriks */
printf("\n");
printf("Hasil penjumlahan dari Matriks A dan B : \n");
printf(".........................................\n");
printf("A + B = \n");
JumlahDuaMatriks(A, B, Nbar, Nkol, C); /* Memanggil Procedure JumlahDuaMatriks */
return 0;
}
/* Procedure BacaMatriks */
void BacaMatriks(MatriksInt A, MatriksInt B, int Nbar, int Nkol) {
/* Mengisi elemen matriks A[1..Nbar, 1..Nkol] dan elemen matriks B[1..Nbar, 1..Nkol] dari papan ketik */
/* DEKLARASI */
int i; /* Indeks Baris */
int j; /* Indeks Kolom */
/* ALGORITMA */
printf("\n");
printf("- Matriks A : \n");
for (i = 1; i <= Nbar; i++)
{
for (j = 1; j<=Nkol; j++)
{
printf ("Ketikkan Elemen A [%d][%d] : ", i, j);
scanf ("%d", &A[i][j]);
}
}
printf("\n");
printf("- Matriks B : \n");
for (i = 1; i <= Nbar; i++)
{
for (j = 1; j<=Nkol; j++)
{
printf ("Ketikkan Elemen B [%d][%d] : ", i, j);
scanf ("%d", &B[i][j]);
}
}
}
/* Seluruh elemen Matriks A dan B sudah berisi nilai yang dibaca dari papan ketik */
/* Procedure TulisMatriks */
void TulisMatriks(MatriksInt A, MatriksInt B, int Nbar, int Nkol) {
/* Mencetak Elemen Matriks A[1..Nbar, 1..Nkol] dan B[1..Nbar, 1..Nkol] ke layar */
/* DEKLARASI */
int i; /* Indeks baris */
int j; /* Indeks kolom */
/* ALGORITMA */
printf("\n");
printf("- Matriks A : \n");
for (i=1; i<=Nbar; i++)
{
for (j=1; j<= Nkol; j++)
{
printf("%d ",A[i][j]);
}
printf("\n"); /* Pindahkan kursor ke awal baris berikutnya */
}
printf("\n");
printf("- Matriks B : \n");
for (i=1; i<=Nbar; i++)
{
for (j=1; j<= Nkol; j++)
{
printf("%d ",B[i][j]);
}
printf("\n"); /* Pindahkan kursor ke awal baris berikutnya */
}
}
/* Seluruh elemen Matrisk tertulis di layar. */
/* Procedure JumlahDuaMatriks */
void JumlahDuaMatriks(MatriksInt A, MatriksInt B, int Nbar, int Nkol, MatriksInt C) {
/* Menjumlahkan matriks A dan B, yaitu A + B = C */
/* DEKLARASI */
int i; /* Indeks baris */
int j; /* Indeks kolomn */
/* ALGORITMA */
for (i=1; i<=Nbar; i++)
{
for (j=1; j<=Nkol; j++)
{
C[i][j] = A[i][j] + B[i][j];
printf("%d ", C[i][j]);
}
printf("\n"); /* Pindahkan kursor ke awal baris berikutnya */
}
}
/* Matriks C berisi hasil penjumlahan A dan B */
OUTPUT PROGRAM :
4. BAHASA JAVA
- Link Bahasa Java : https://onlinegdb.com/ZxvgVLFTc
// PROGRAM Matriks //
/* Menjumlahkan dua buah Matriks dengan meng-inputkan banyaknya baris dan kolom dan meng-input setiap elemen dari
Matriks A dan B sehingga menghasilkan output-an hasil dari Matriks A + B */
import java.util.Scanner;
public class Main
{
public static void main(String[] args) {
Scanner input = new Scanner (System.in);
// DEKLARASI
int [][] A, B, C;
int Nbar, Nkol;
// PROGRAM UTAMA
System.out.println();
System.out.println("===================================================");
System.out.println("| NAMA : ANGGI ALAMSYAH |");
System.out.println("| NIM : 0402221017 |");
System.out.println("| PRODI : TEKNIK INFORMATIKA |");
System.out.println("| FAKULTAS : ILMU KOMPUTER |");
System.out.println("| UNIVERSITAS NAHDLATUL ULAMA |");
System.out.println("===================================================");
System.out.println();
System.out.println(" PROGRAM MENJUMLAHKAN MATRIKS A + B");
System.out.println("===================================================");
// ALGORITMA
System.out.println();
System.out.println("Memasukkan ukuran Matriks : ");
System.out.print("Berapa jumlah baris? (1-20) : ");
Nbar = input.nextInt();
System.out.print("Berapa jumlah kolom? (1-20) : ");
Nkol = input.nextInt();
System.out.println(".........................................");
A = new int[Nbar][Nkol];
B = new int[Nbar][Nkol];
C = new int[Nbar][Nkol];
BacaMatriks(A, B, Nbar, Nkol, input); // Memanggil Procedure BacaMatriks
System.out.println("");
System.out.println("Bentuk matriks A dan B : ");
System.out.println(".........................................");
TulisMatriks(A, B, Nbar, Nkol); //Memanggil Procedure TulisMatriks
System.out.println("");
System.out.println("Hasil penjumlahan dari Matriks A dan B : ");
System.out.println(".........................................");
System.out.println("A + B = ");
JumlahDuaMatriks(A, B, C, Nbar, Nkol); // Memanggil Procedure JumlahDuaMatriks
}
// Procedure BacaMatriks
public static void BacaMatriks(int[][] A, int[][] B, int Nbar, int Nkol, Scanner input) {
// Mengisi elemen matriks A[1..Nbar, 1..Nkol] dan elemen matriks B[1..Nbar, 1..Nkol] dari papan ketik.
// DEKLARASI
int i; // Indeks Baris
int j; // Indeks Kolom
// ALGORITMA
System.out.println("");
System.out.println("- Matriks A : ");
for (i = 0; i <Nbar; i++)
{
for (j = 0; j<Nkol; j++)
{
System.out.print("Ketikkan Elemen A ["+(i+1)+"]["+(j+1)+"] : ");
A[i][j] = input.nextInt();
}
}
System.out.println("");
System.out.println("- Matriks B : ");
for (i = 0; i <Nbar; i++)
{
for (j = 0; j<Nkol; j++)
{
System.out.print("Ketikkan Elemen B ["+(i+1)+"]["+(j+1)+"] : ");
B[i][j] = input.nextInt();
}
}
}
// Procedure TulisMatriks
public static void TulisMatriks(int[][] A, int[][] B, int Nbar, int Nkol) {
// Mencetak Elemen Matriks A[1..Nbar, 1..Nkol] dan B[1..Nbar, 1..Nkol] ke layar
// DEKLARASI
// Tidak ada
// ALGORITMA
System.out.println("");
System.out.println("- Matriks A : ");
for (int i = 0; i < Nbar; i++)
{
for (int j = 0; j < Nkol; j++)
{
System.out.print(A[i][j] + " ");
}
System.out.println();
}
System.out.println("");
System.out.println("- Matriks B : ");
for (int i = 0; i < Nbar; i++)
{
for (int j = 0; j < Nkol; j++)
{
System.out.print(B[i][j] + " ");
}
System.out.println();
}
}
// Seluruh elemen Matrisk tertulis di layar.
// Procedure JumlahDuaMatriks
public static void JumlahDuaMatriks(int[][] A, int[][] B, int[][] C, int Nbar, int Nkol) {
/* Menjumlahkan dua matriks A dan B menjadi matriks C */
// DEKLARASI
// Tidak ada
// ALGORITMA
for (int i = 0; i < Nbar; i++)
{
for (int j = 0; j < Nkol; j++)
{
C[i][j] = A[i][j] + B[i][j];
System.out.print(C[i][j]+" ");
}
System.out.println("");
}
}
// Matriks C berisi hasil penjumlahan A dan B
}
