Array Matriks

disini saya akan memberikan sebuah program Array Matriks yang sudah saya pelajari dikampus ,, silahkan di cermati .


uses crt; type matrix=array[1..10,1..10] of integer; var A,B,hasil:matrix; i,j,ba,ka,bb,kb:byte; pil:1..8; procedure isi_matrix(var x:matrix;m,n:byte); begin for i:=1 to m do begin for j:=1 to n do begin write('isi elemen ke ke [',i,',',j,'] => '); readln(x[i,j]); end; end; end; procedure tampil(var x:matrix;m,n:byte); begin for i:=1 to m do begin for j:=1 to n do write(x[i,j]:5); writeln; end; end; procedure kurang (var x,y:matrix;m,n:byte); begin for i:=1 to m do begin for j:=1 to n do hasil[i,j]:=x[i,j]-y[i,j]; end; end; procedure tambah (var x,y:matrix;m,n:byte); begin for i:=1 to m do begin for j:=1 to n do hasil[i,j]:=x[i,j]+y[i,j]; end; end; {program utama} begin repeat; clrscr; begin writeln('operasi-operasi matrix'); writeln('1. isi matrix A'); writeln('2. isi matrix B'); writeln('3. A+B'); writeln('4. A-B'); writeln('5. B-A'); writeln('6. A transpose'); writeln('7. B transpose'); writeln('8. selesai'); write('masukan pilihan anda : ');readln(pil); case pil of 1: begin write('mengisi matrix A, masukan baris A => ');readln(ba); write('masukan kolom matrix A = ');readln(ka); isi_matrix(A,ba,ka); writeln('matrix A adalah '); tampil(A,ba,ka); end; 2: begin write('mengisi matrix B, masukan baris B => ');readln(bb); write('masukan kolom matrix B = ');readln(kb); isi_matrix(B,bb,kb); writeln('matrix B adalah '); tampil(B,bb,kb); end; 3: begin if (ka=kb) and (ba=bb) then begin writeln('matrix A : '); tampil(A,ba,ka); write('matriks B: '); tampil(B,bb,kb); writeln('hasil A+B adlah '); tambah(A,B,ba,ka); tampil(hasil,ba,ka); end else writeln(' operasi A-B tidak bisa dilakukan karena orde berbeda '); end; 4:begin if (ka=kb) and (ba=bb) then begin writeln('matrix A : '); tampil(A,ba,ka); write('matriks B: '); tampil(B,bb,kb); writeln('hasil A-B adlah '); kurang(A,B,ba,ka); tampil(hasil,ba,ka); end else writeln(' operasi A-B tidak bisa dilakukan karena orde berbeda '); end; 5: begin if (ba=bb) and (ka=kb) then begin writeln('matrix A : '); tampil(A,ba,ka); write('matriks B: '); tampil(B,bb,kb); writeln('hasil B-A adlah '); kurang(B,A,ba,ka); tampil(hasil,ba,ka); end else writeln(' operasi b-A tidak bisa dilakukan karena orde berbeda '); end; 6:writeln('anda memilih no 6'); 7:writeln('anda memilih no 7'); 8:writeln('selesai'); end; readln; end until(pil=8);
 = pengunjung yang baik selalu meninggalkan jejak :)

Related Posts by Categories