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.

Please Give Us Your 1 Minute In Sharing This Post!

SOCIALIZE IT →

Tweet

FOLLOW US →

SHARE IT →

Powered By: BloggerYard.Com