program matriks;
uses
crt;
var
m:array[1..5,1..5] of integer;
i,j,a,b:integer;
begin
clrscr;
writeln('_____________________TUGAS______________________');
writeln('_________________STRUKTUR DATA__________________');
writeln('================================================');
writeln('____________________MATRIKS_____________________');
writeln;
write('masukkan Baris : ');readln(a);
write('masukkan Kolom : ');readln(b);
writeln;
for i:= 1 to a do
begin
for j:= 1 to b do
begin
write('masukkan elemen ke' ,i,' , ' ,j,
':');readln(m[i,j]);
end;
end;
writeln('data yang anda masukkan:');
for i:= 1 to a do
begin
for j:= 1 to b do
write(m[i,j]:4);
writeln;
end;
writeln;
writeln;
writeln;
writeln('__________________STIKI INDONESIA________________');
readln;
end.
Dibawah ini gambar kodingnya di program Pascal :
Berikut hasil outputnya:
SEMOGA BERMANFAAT :)
