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