Halaman

Selasa, 26 Februari 2013

program tranpose_matriks


program tranpose_matriks;

uses wincrt;
var
   nilai,hasil : array[1..2,1..2] of integer;
   a,b :integer;
   grs:string;
   begin
    clrscr;
    grs:='=================================================';
   { input matriks}
   writeln(grs);
   writeln('         Program Transpose Matriks ');
   writeln(grs);
   writeln('  NIM      : 1057201074 ');
   writeln('  NAMA     : TRI ANDI JUTAMA ');
   writeln('  PRODI    : SISTEM INFORMASI ');
   writeln(grs);
   write(' Masukan jumlah baris : ');readln(a);
   write(' Masukan jumlah kolom : ');readln(b);
   writeln;
   writeln('Masukan Data Matriks A ');
   for a:= 1 to 2 do
   begin
   for b:= 1 to 2 do
   begin
   write('Data ke [',a,',',b,'] : ');
   readln(nilai[a,b]);
   end;
   end;
   { Proses Tranpose Matriks}
   for a:=1 to 2 do
   begin
   for b:=1 to 2 do
   begin
   hasil[a,b]:=nilai[a,b];
   end;
   end;
   writeln;
   writeln('Menampilkan matriks tranpose A ');

   {output matriks}
   for a:=1 to 2 do
   begin
   for b:=1 to 2 do
   begin
   write('Data ke [',a,',',b,'] : ');
   write(hasil[b,a]);
   writeln;
   end;
   end;
   writeln;
   writeln('UTS Pemrograman Pascal,, @andeebanditz..!!!');
   writeln(grs);
   end.

Tidak ada komentar:

Posting Komentar