Assalamu'alaykum..
Share program lagi nih kali ini adalah program matriks yang mula-mula program akan meminta
pengguna untuk memasukkan matriks pertama berordo 3x3. Kemudian program meminta
pengguna untuk memasukkan nilai matriks kedua. Program menghitung kedua matriks
sesuai perkalian skalar matriks C = 2(Matriks A) + 3(Matriks B). Kemudian
program akan menampilkan hasil perkalian skalar matriks tersebut.
Langsung aja ke koding, cekidot
uses crt;
type
matriks=array[1..3,1..3] of integer;
var
a,b,c:matriks;
x,y,z:byte;
function input:integer;
var
i,j :byte;
begin
writeln('Program matriks');
write('jumlah baris :
');readln(x);
write('jumlah kolom :
');readln(y);
for
i:= 1 to x do
for
j:= 1 to y do
begin
write('Matriks A[',i,',',j,'] : ');readln(a[i][j]);
end;
writeln;
for
i:=1 to x do
for
j:=1 to y do
begin
write('Matriks B[',i,',',j,'] : ');readln(b[i][j]);
end;
writeln;
for
i:= 1 to x do
for
j:= 1 to y do
begin
c[i][j]:=(2*a[i][j])+(3*b[i][j]);
end;
end;
function output: integer;
var
i,j :byte;
begin;
writeln;
write('Perhitungan matriks C=2A+3B');
writeln;
for
i:= 1 to x do
begin
for j:= 1 to y do
begin
write(c[i][j]:3);
write(' ');
end;
writeln;
end;
end;
begin
clrscr;
input;
output;
readln;
end.
kalau ada pertanyaan, langsung aja komen :)
Wassalam
0 Komentar untuk "Program Pascal Matriks Perkalian Skalar"
Bagaimana menurut Anda? Senang sekali jika Anda mau berbagi pendapat dengan saya disini. :)