Program Transpose Matriks (FREE PASCAL IDE)

Program Transpose Matriks

program transposematriks;
uses crt;
var
  matriks         : array [1..10,1..10] of integer;
  i,j,baris,kolom : integer;

begin
  clrscr;
  writeln('////////////////////////////////////////////////////////////////////////////////');
  gotoxy(27,2);
  writeln(' PROGRAM TRANSPOSE MATRIKS ');
  writeln('////////////////////////////////////////////////////////////////////////////////');
  writeln;
  write(' %   Input Jumlah Baris : ');readln(baris);
  write(' %   Input Jumlah Kolom : ');readln(kolom);

  writeln;
  for i:=1 to baris do
    begin
      for j:=1 to kolom do
        begin
          write(' %   Masukkan Entri Baris ke-',i,' kolom ke-',j,' : ');readln(matriks[i,j]);
        end;
    end;
  readln;
  writeln('Matriks yang baru dimasukkan adalah : ');
  for i:=1 to baris do
    begin
      for j:=1 to kolom do
        begin
          write(matriks[i,j]:3);
        end;
      readln;
    end;

  writeln;
  writeln('TRANSPOSE MATRIKS adalah            : ');
  for i:=1 to kolom do
    begin
      for j:=1 to baris do
        begin
          write(matriks[j,i]:3);
        end;
      writeln;
      readln;
    end;
  writeln('////////////////////////////////////////////////////////////////////////////////');
  readln;
end.

Semoga Bermanfaat.

=======================================================

Jangan lupa kunjungi kami di akun lain

Instagran: https://www.instagram.com/learnanything_bsb/

Twitter: https://www.twitter.com/bsblearnanythng/

Blog: https://www.learnanything.blogspot.com/

Youtube Channel: BSB Learn Anything

Facebook: BSB Learn Anything (@bsblearnanything)

WhatsApp: +62 856 6911 0663

Share on Google Plus

About Siska Elvadiningsih