haii readers :D kali ini saya akan shareprogram untuk mencari jumlah diagonal-diagonal dari matriks dimana jumlah baris dan kolom ditentukan oleh user,, check this outtt ;;;;;;;;;;;;;;;;;;;;;;;;;;; :)
program diagonal_matriks;
uses crt;
type matrix = array[1..10, 1..10] of integer;
var i, j, n : integer;
a : matrix;
diag1, diag2, total : integer;
begin
writeln('===== Matriks n*n =====');
write('Besar kolom/baris Matriks : '); readln(n);
writeln;
diag1 := 0;
diag2 := 0;
clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('Nilai matriks A ',i,',',j,' : '); readln(a[i,j]);
end;
for i:=1 to n do
diag1:= diag1 + a[i,i];
j := 1;
for i:=n downto 1 do
begin
diag2:= diag2 + a[i,j];
j := j+1;
end;
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
write('[', a[i,j], '] ');
end;
writeln;
end;
total := diag1 + diag2;
writeln('Diagonal kiri-kanan = ', diag1);
writeln('Diagonal kanan-kiri = ', diag2);
writeln('TOTAL = ', total);
readln;
end.
program diagonal_matriks;
uses crt;
type matrix = array[1..10, 1..10] of integer;
var i, j, n : integer;
a : matrix;
diag1, diag2, total : integer;
begin
writeln('===== Matriks n*n =====');
write('Besar kolom/baris Matriks : '); readln(n);
writeln;
diag1 := 0;
diag2 := 0;
clrscr;
for i:=1 to n do
for j:=1 to n do
begin
write('Nilai matriks A ',i,',',j,' : '); readln(a[i,j]);
end;
for i:=1 to n do
diag1:= diag1 + a[i,i];
j := 1;
for i:=n downto 1 do
begin
diag2:= diag2 + a[i,j];
j := j+1;
end;
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
write('[', a[i,j], '] ');
end;
writeln;
end;
total := diag1 + diag2;
writeln('Diagonal kiri-kanan = ', diag1);
writeln('Diagonal kanan-kiri = ', diag2);
writeln('TOTAL = ', total);
readln;
end.