Pagi gan, ceritanya ane punya aplikasi nih. Kali ini dengan Pascal, aplikasi ini sebenernya bekas tugas UAS ane gan. Ini khusus untuk Perkalian Matrik 2D dengan variasi animasi sederhana. Untuk penampakan aplikasinya agan bisa lihat gambar diatas.

Gimana gan tertarik untuk membuatnya? Jika agan tertarik silahkan lanjutkan baca artikel ini, kalau tidak tertarik saran ane agan close aja page ini gan :D

program uas_sederhana; uses crt; var i, j, a, b, x : integer; ma, mb, mh : array[1..100,1..100] of integer; const gv = #186; gh = #205; gai = #201; gbi = #200; gak = #187; gbk = #188; x1 = 5; x2 = 16; x3 = 21; x4 = 27; x5 = 32; x6 = 43; procedure layout; begin for j := 0 to 24 do begin delay(55); gotoxy(48, j+1); write(gv); end; delay(200); gotoxy(52, 3); write('NIM : 123456789'); delay(200); gotoxy(52, 5); write('Name : Sani Malik Ibrahim'); delay(200); gotoxy(52, 7); write('Class : TI (Regular)'); delay(200); gotoxy(61, 14); write('699 330'); delay(200); gotoxy(61, 15); write('303 140'); delay(200); gotoxy(61, 16); write('690301341'); delay(200); gotoxy(61, 17); write('239847563'); delay(200); gotoxy(61, 18); write('302 195'); delay(200); gotoxy(61, 19); write('033 761'); delay(200); gotoxy(61, 21); write('H A D E S'); gotoxy(15, 3); write('PERKALIAN - MATRIK 2D'); delay(400); {-- kiri - start --} gotoxy(x1, 5); write(gai, gh); gotoxy(x1, 6); write(gv); gotoxy(x1, 7); write(gv); gotoxy(x1, 8); write(gv); gotoxy(x1, 9); write(gbi, gh); {-- kiri - end --} delay(400); {-- kanan - start --} gotoxy(x2, 5); write(gh, gak); gotoxy(x2+1, 6); write(gv); gotoxy(x2+1, 7); write(gv); gotoxy(x2+1, 8); write(gv); gotoxy(x2, 9); write(gh, gbk); {-- kanan - end --} delay(400); gotoxy(x2+3, 7); write('x'); delay(400); {-- kiri - start --} gotoxy(x3, 5); write(gai, gh); gotoxy(x3, 6); write(gv); gotoxy(x3, 7); write(gv); gotoxy(x3, 8); write(gv); gotoxy(x3, 9); write(gv); gotoxy(x3, 10); write(gv); gotoxy(x3, 11); write(gbi, gh); {-- kiri - end --} delay(400); {-- kanan - start --} gotoxy(x4, 5); write(gh, gak); gotoxy(x4+1, 6); write(gv); gotoxy(x4+1, 7); write(gv); gotoxy(x4+1, 8); write(gv); gotoxy(x4+1, 9); write(gv); gotoxy(x4+1, 10); write(gv); gotoxy(x4, 11); write(gh, gbk); {-- kanan - end --} delay(400); gotoxy(x4+3, 7); write('='); delay(400); {-- kiri - start --} gotoxy(x5, 5); write(gai, gh); gotoxy(x5, 6); write(gv); gotoxy(x5, 7); write(gv); gotoxy(x5, 8); write(gv); gotoxy(x5, 9); write(gbi, gh); {-- kiri - end --} delay(400); {-- kanan - start --} gotoxy(x6, 5); write(gh, gak); gotoxy(x6+1, 6); write(gv); gotoxy(x6+1, 7); write(gv); gotoxy(x6+1, 8); write(gv); gotoxy(x6, 9); write(gh, gbk); {-- kanan - end --} delay(400); for i := 1 to 2 do begin for j := 1 to 3 do begin gotoxy(5, 14); write('Input data for ma[', i, ',', j, '] := '); readln(ma[i,j]); gotoxy(5, 14); write('Input data for ma[', i, ',', j, '] := '); for x := 1 to 40 do begin delay(10); gotoxy(j*4+3, i*2+4); write(ma[i,j]); delay(10); gotoxy(j*4+3, i*2+4); write(' '); end; delay(x); gotoxy(j*4+3, i*2+4); write(ma[i,j]); end; end; delay(400); for i := 1 to 3 do begin for j := 1 to 2 do begin gotoxy(5, 14); write('Input data for mb[', i, ',', j, '] := '); readln(mb[i,j]); gotoxy(5, 14); write('Input data for mb[', i, ',', j, '] := '); for x := 1 to 40 do begin delay(10); gotoxy(j*3+20, i*2+4); write(mb[i,j]); delay(10); gotoxy(j*3+20, i*2+4); write(' '); end; delay(x); gotoxy(j*3+20, i*2+4); write(mb[i,j]); end; end; delay(400); gotoxy(5, 14); write('Rumus : '); gotoxy(5, 15); write('mh[i,j] = ma[i,j] * mb[j,i]'); delay(400); for i := 1 to 2 do begin for j := 1 to 3 do begin mh[i,j] := ma[i,j] * mb[j,i]; for x := 1 to 40 do begin delay(10); gotoxy(j*4+30, i*2+4); write(mh[i,j]); delay(10); gotoxy(j*4+30, i*2+4); write(' '); end; delay(10); gotoxy(j*4+30, i*2+4); write(mh[i,j]); end; end; gotoxy(5, 23); write('Finish.'); end; begin clrscr; layout; readln; end.

Sangat simpel kan gan? Silahkan dicoba aplikasinya, jika perlu sesuatu yang menyangkut dengan artikel ini, silahkan agan tinggalkan jejak di komentar, ada kemungkinan ane bales ko gan.