Penjumlahan Matrik Program Pascal

A’ASSALAMU’ALAIKUM WR.WB.

Untuk kali ini saya akan sedit berbagi bagaimana cara membuat Penjumlahan Matrik di aplikasi pascal...
1.buka aplikasi pascal dan tuliskan code seperti gambar disamping ini.

Code aplikasi pascal penjumlahan matrik

program menjumlahkan_matrik;
uses crt;
const
baris=2;
kolom=2;
type
 matriks2x2=array[1..baris,1..kolom] of integer;
var
 a,b,c:matriks2x2;
 i,j:integer;

begin
 clrscr;

 {masukan data matrik a}
 writeln('masukan isi matrik a');
 for i:= 1 to baris do
 begin
 for j:= 1 to kolom do

begin
 write('a[',i,',',j,']=');
 readln(a[i,j]);
 end;
end;

   {memasukan isi matrik b}
 writeln('masukan isi matrik b');
 for i:=1 to baris do
 begin
 for j:=1 to kolom do
 begin
 write('b[',i,',',j,']=');
 readln(b[i,j]);
 end;
end;

{menjumlahkan matrik a ditambah matrik b}

for i:=1 to baris do
begin
for j:=1to kolom do
begin
    c[i,j] := a[i,j]+b[i,j];
end;
end;
{menampilkan hasil matrik}
writeln;
writeln('hasil  a + b');
for i:=1 to baris do
begin
for j:=1 to kolom do
begin
write('c[',i,',',j,']=',c[i,j]);
end;
end;
readln;

end.

2.setelah code telah selesi di ketik,klik compile.setelah di compile akan muncul seperti
    Gambar dibawah ini ,kalo persis sama di gambar maka program yang sob buat suskse.



3.setelah itu klik RUN.atau lihat gambar dibawah ini.


4.maukan nilai matrik nya seperti gambar dibawah ini.



5.hasil nya adalah lihat pada gambar dibawah ini.




Selamat Mencoba
Semoga Sukses Ae Sob

Posted by Unknown

Tweet