Variabema,mb,mc adalah array yang sampai 1 hingga 10 dan di baca sebagai integer dan variable b,c,I,j jg sebagai integer lalu program memulai dan program membersihkan layar awal dan program mencetak ‘masukan baris’ di tandai sebagai variable b dan program mencetak ‘masukan kolom’ dengan menandai sebagai variable c dan program akan mengakses atau memproses inputan yang di masukan. Kan di proses dari I sama dengan 1 sampai b lalu mulai masuk lagi ke program dari j sama dengan 1 sampai c dan memulai mencetak masukan element yang di tandai sebahai variable ma[I,j] dan program berakhir dan program brikutnya juga berakhir dan kita bikin lagi buat metric berikutnya sama seperti program yang tadi dengn copy paste dari for I sampai end; yang kedua dengan mengganti ma menjadi mb dan masukan di baris berikutnya di end; yang kedua dan lalu ketika udah kita buat lagi program yang brikutnya yaitu cetak ‘metri ks a’ lalu dari I sama dengan b dan memulai dari j sama dengan 1 sampai c dan program memulai mencetak yang ada di ma[I,j] dan memberi sipasi atau jarak dengan (‘ ‘) dan mengakhiri program dan mencetak dan mengahiri program brikutnya dan kita buat yang sama berikutnta dengan kita copy paste dari write ‘metrik a’ sampai end; yang kedua dan dan mengganti ‘metrik A’ menjadi ‘matrik B’ dan ma[j,i] menjadi mb [I,j] dan posemua program berakhir.
Sintak atau Listing program.
uses crt;
var
ma : array [1..10,1..10] of integer;
mb : array [1..10,1..10] of integer;
mc : array [1..10,1..10] of integer;
b,c,i,j : integer ;
begin
clrscr;
write ('masukan baris = ');readln (b);
write ('masukan colomb = ');readln (c);
for i := 1 to b do
begin
for j := 1 to c do
begin
write ('masukan element = '); readln(ma[i,j]);
end;
end;
for i := 1 to b do
begin
for j := 1 to c do
begin
write ('masukan element = '); readln(mb[i,j]);
end;
end;
writeln ('metriks A');
for i := 1 to b do
begin
for j := 1 to c do
begin
write(ma[i,j],' ');
end;
writeln;
end;
writeln ('metriks B');
for i := 1 to b do
begin
for j := 1 to c do
begin
write(mb[i,j],' ');
end;
writeln;
end;
readln;
end.
Output program.
No comments:
Post a Comment