PASCAL (MATRIKS)

MEMBUAT MATRIKS DENGAN TURBO PASCAL :) 

Demi tugas dan rasa sayangku kepada pemburu materi.
Indahnya Berbagi :)


CONTOH PROGRAM BENTUK MATRIK

program matriks;
uses wincrt;
var
x:array[1..100,1..100] of integer;
a,b,i,j:integer;
begin
write('banyaknya kolom = '); read(a);
write('banyaknya baris = '); read(b);
 writeln('tulis kebawah sebanyak baris kali kolom');
for i:=1 to b do
for j:=1 to a do
readln(x[i,j]);
writeln('bentuk matriknya : ');
for i:=1 to b do
begin
for j:=1 to a do
write(x[i,j],' ');
writeln;
end;
end.