Mencoba Meraih Sukses

Setelah mengerti struktur program dengan pascal, marilah kita membuat program pertama. Silakan lihat kode di bawah ini:

Program Penjumlahan_Matrik;
uses wincrt;

var
matrikA,matrikB, hasil: array[1..3,1..3] of integer;
i,j :integer;

Begin
Clrscr;
Writeln(‘Program Penjumlahan Matrik dengan Satu Baris dan Satu Kolom’);
Writeln(‘=====================’);
Writeln;
{input matrik A}
writeln('elemen matrik A');
i:= 1;
begin
for j:= 1 to 3 do
begin
write('elemen baris-',i,' kolom-',j,'= ');
readln(matrikA[i,j]);
end;
end;
writeln;
{input matrik B}
writeln('input elemen B');
for i:=1 to 2 do
begin
j:= 1;
begin
write('elemen baris-',i,' kolom-',j,'= ');
readln(matrikB[i,j]);
end;
end;
{proses penjumlahan matrik A dan matrik B}
for i:= 1 to 3 do
begin
for j:= 1 to3 do
begin
hasil[i,j]:= matrikA[i,j] + matrikB[i,j];
end;
end;
writeln;
{proses cetak hasil}
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
writeln(‘matrik C adalah : ‘);
write(hasil[i,j]:4);
end;
writeln;
end;
readln;
end.

PROGRAM PERKALIAN

Program Perkalian_Matrik;
uses wincrt;

var
matrikA,matrikB, hasil: array[1..3,1..3] of integer;
i,j :integer;

Begin
Clrscr;
Writeln(‘Program Perkalian Matrik dengan Satu Baris dan Satu Kolom’);
Writeln(‘==================’);
Writeln;
{input matrik A}
writeln('elemen matrik A');
i:= 1;
begin
for j:= 1 to 3 do
begin
write('elemen baris-',i,' kolom-',j,'= ');
readln(matrikA[i,j]);
end;
end;
writeln;
{input matrik B}
writeln('input elemen matrik B');
for i:=1 to 3 do
begin
for j:=1;
begin
write('elemen baris-',i,' kolom-',j,'= ');
readln(matrikB[i,j]);
end;
end;
{proses perkalian matrik A dan matrik B}
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
hasil[i,j]:= matrikA[i,j] * matrikB[i,j];
end;
end;
writeln;
{proses cetak hasil}
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
writeln(‘matrik D adalah : ‘);
write(hasil[i,j]:4);
end;
writeln;
end;
readln;
end.



Mudah - mudahan bisa bermanfaat bagi anda...!!