Minggu, 03 Juni 2012

bahasa pemrograman mencetak nilai entri matrik - matrik dua dimensi


program  Mencetak_Entri_Matrik;
uses crt ;
var
         a : array [1..100,1..100] of integer;
         i, j, m, n : integer;
begin
         clrscr;
         write('Jumlah baris matrik a = '); read(n);
         write('Jumlah kolom matrik a = '); read(m);
         for i := 1 to n do
         for j := 1 to m do
         begin
              gotoxy(6*j-3, i+10); write('a[',i,',',j,'] = ');
              readln(a[i,j]);
              gotoxy(6*j-3, i+10); clreol; write(a[i,j]);
         end;
end.

Tidak ada komentar:

Poskan Komentar