fork(4) download
copy 
  1. Program Matrix
  2.  
  3. CONST N<--100;
  4.  
  5. (-------------DEFINISI MATRIKS---------------)
  6. TYPE Matrix : <array [1..N][1..N] of integer>
  7.  
  8. {-------------DEFINISI METHOD---------------------)
  9.  
  10. #Operasi Relasional
  11. Function isSejenis(Input a,b : Matrix) --> boolean
  12. {Apakah 2 matrix tersebut sejenis, digunakan dalam penjumlahan dan pengurangan matrix}
  13.  
  14. Function isDikali(input a,b : Matrix) --> boolean
  15. {Apakah 2 matrix tersebut sudah sesuai pada aturan perkalian}
  16.  
  17. #Operasi Aritmatika
  18. Procedure penjumlahan(Input a,b : Matrix,Output c:Matrix)
  19. {menjumlahkan 2 buah matrix, dan mengembalikan 1 variabel yang telah dijumlahkan }
  20.  
  21. Procedure pengurangan(Input a,b : Matrix,Output c:Matrix)
  22. {menjumlahkan 2 buah matrix, dan mengembalikan 1 variabel yang telah dikurangi }
  23.  
  24. Procedure perkalian(Input a,b : Matrix, Output c :Matrix)
  25. {Mengalikan 2 buah matrix yang diinput, dan mengembalikan hasilnya}
  26.  
  27. #Operasi Lain terhadap Type
  28.  
  29. Function lengthKolom(Input a,b : Matrix)-->integer,integer;
  30. {menghitung panjang kolom dari sebuah array matriks}
  31.  
  32. Function lengthBaris(Input a,b : Matrix)-->integer,integer;
  33. {menghitung panjang baris dari sebuah array matriks}
  34.  
  35. Procedure search(Input a : integer, Output i:integer)
  36. {mencari suatu bilangan dalam matriks bilangan, dan mengembalikan hasilnya dalam bentuk indeks array matriks}
  37.  
  38. #Operasi I/O
  39. Procedure init(Input/Output a,b :Matrix)
  40. {menginisialisasi baris,kolom sebuah matriks)
  41.  
  42. Kamus
  43. 	a,b : Matrix;
  44. 	i,j,Pil 	: integer;
  45.  
  46. Algoritma
  47.  
  48. 	output("Selamat datang di program ADT Kami ");
  49. 	output("1.Penjumlahan Matriks");
  50. 	output("2.Perkalian Matriks");
  51. 	output("3.Refleksi Matriks");
  52. 	output("4.Pengurangan Matriks");
  53. 	output("5.Exit");
  54.  
  55. 	output("Silahkan memasukkan Pilihan	: ");input(Pil);
  56. 	case pil of
  57. 	1	: 	init(a,b);
  58. 			penjumlahan(a,b);
  59. 	2	: 	init(a,b);
  60. 			perkalian(a,b);
  61. 	3	: 	init(a,b);
  62. 			penjumlahan(a,b);
  63. 	4	: 	init(a,b);
  64. 			pengurangan(a,b);
  65. 	5	: 	output("Terimakasih");
  66.  
  67. End.
  68.  
  69. Procedure init (Input/Output a,b : Matrix)
  70. Kamus
  71. 	i,j,b,k : integer;
  72. Algoritma
  73. Begin
  74. 	for i<--1 to N do
  75. 		for j<--1 to N do
  76. 		begin
  77. 			a[i][j] <-- 0;b[i][j]<--0;
  78. 		end
  79.  
  80. 	//replacing zero value
  81. 	input(b);input(k);
  82. 		for i<--1 to baris do
  83. 			for j<--1 to kolom do
  84. 			{
  85. 				input(a[i][j]);
  86. 			}
  87. 	input(b);input(k);
  88. 		for i<--1 to baris do
  89. 			for j<--1 to kolom do
  90. 			{
  91. 				input(b[i][j]);
  92. 			}
  93. End
  94.  
  95. Function lengthKolom(Input a : Matrix)--> integer
  96. Kamus
  97. 	i,j : integer;
  98. Algoritma	
  99. Begin
  100. 	while (((a[i][j]) or (b[i][j]))<>0) //asumsi array matriks tidak ada input bilangan 0
  101. 	begin
  102. 		lengthKolom <-- lengthKolom+1;
  103. 		i<--i+1;
  104. 		j<--j+1;
  105. 	end
  106.  
  107. 	return lengthKolom;
  108. End
  109.  
  110. Function lengthBaris(Input a : Matrix)--> integer
  111. Kamus
  112. 	i,j : integer;
  113. Algoritma	
  114. 	while (((a[i][j]) or (b[i][j]))<>0) //asumsi array matriks tidak ada input bilangan 0
  115. 	begin
  116. 		lengthBaris <-- lengthBaris+1;
  117. 		i<--i+1;
  118. 		j<--j+1;
  119. 	end
  120.  
  121. 	return lengthKolom;
  122. End
  123.  
  124. Procedure penjumlahan (Input a : Matrix,Output c : Matrix)
  125. Kamus
  126. 	i,j : integer;
  127. Algoritma
  128. 		if isSejenis then
  129. 		begin
  130. 			for i<--1 to lengthBaris(a) do 
  131. 				for j<--1 to lengthKolom(a) do
  132. 				begin
  133. 					c[i][j]<--a[i][j]+b[i][j];
  134. 				end
  135. 		end
  136. 		else
  137. 			output("Matriks tidak sejenis");
  138. End
  139.  
  140. Procedure pengurangan (Input a : Matrix,Output c : Matrix)
  141. Kamus
  142. 	i,j : integer;
  143. Algoritma
  144. 		if isSejenis then
  145. 		begin
  146. 			for i<--1 to lengthBaris(a) do 
  147. 				for j<--1 to lengthKolom(a) do
  148. 				begin
  149. 					c[i][j]<--a[i][j]-b[i][j];
  150. 				end
  151. 		end
  152. 		else
  153. 			output("Matriks tidak sejenis");
  154. End
  155.  
  156. Procedure search(Input a :integer,m:Matrix, Output b : integer)
  157. Kamus
  158. 	i,j  : integer;
  159. 	flag : boolean;
  160. Algoritma
  161. 	flag <-- false;
  162. 	for i:<--1 to lengthBaris(m) do
  163. 		for j:<--1 to lengthKolom(m) do
  164. 		begin
  165. 			if (a<--m[i][j] then
  166. 				flag <-- true
  167. 			else
  168. 				flag <-- false;
  169. 		end
  170. End
  171.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
prog.c:1: error: expected ‘=’, ‘,’, ‘;’, ‘asm’ or ‘__attribute__’ before ‘Matrix’
prog.c:5: error: expected identifier or ‘(’ before ‘--’ token
prog.c:6:23: error: too many decimal points in number
prog.c:6:29: error: too many decimal points in number
prog.c:10:2: error: invalid preprocessing directive #Operasi
prog.c:17:2: error: invalid preprocessing directive #Operasi
prog.c:27:2: error: invalid preprocessing directive #Operasi
prog.c:38:2: error: invalid preprocessing directive #Operasi
stdout
copy 
Standard output is empty
https://ideone.com/dG2Zd
language:
C (gcc 8.3)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!