Program Penjumlahan Dua Buah Matriks Dengan Turbo Pascal

Program Penjumlahan Matriks dalam Pascal - Penjumlahan dalam matriks mengingatkan ane tentang matakuliah matematika informatika di semester awal, intinya dalam source code berikut membahas tentang penjumlahan 2 buah matriks dikatakan matriks A + matriks B dihasilkan = matriks C, lalu untuk jumlah baris dan kolomnya bisa disesuaikan dengan keinginan.

Berikut ini source code nya :

1. uses crt;  
2.   
3. const  
4. Jbaris = 2;  
5. Jkolom = 3;  
6.   
7. type  
8. Matriks23 = array[1..Jbaris, 1..Jkolom] of integer;  
9.   
10. var  
11. A, B, C: Matriks23;  
12. j, k: integer; {untuk indeks pengulangan}  
13. begin  
14. clrscr;  
15.   
16. {mengisikan matriks A}  
17. writeln('Matriks A');  
18. for j:=1 to Jbaris do begin  
19. for k:=1 to Jkolom do begin  
20. write('A[', j, ',', k, '] = '); readln(A[j, k]);  
21. end;  
22. writeln;  
23. end;  
24. writeln;  
25.   
26. {mengesikan matriks B}  
27. writeln('matriks B');  
28. for j:=1 to Jbaris do begin  
29. for k:=1 to Jkolom do begin  
30. write('B[', j, ',', k, '] = '); readln(B[j, k]);  
31. end;  
32. writeln;  
33. end;  
34. writeln;  
35.   
36. {melakukan penjumlahan matriks A dan B sekaligus menampilkan hasilnya ke layar}  
37. writeln('hasil penjumlahan');  
38. for j:=1 to Jbaris do begin  
39. for k:=1 to Jkolom do begin  
40. C[j, k] := A[j,k] + B[j,k];  
41. writeln('C[', j, ',', k, '] = ', C[j,k]);  
42. end;  
43. writeln;  
44. end;  
45.   
46. readln;  
47. end.  

Dan Berikut Output dari Source Code di atas :

Sekian untuk Program Penjumlahan Matrik Dengan Turbo Pasca,semoga bermanfaat!