اخوان اريد برامج على المصفوفات بسرعه لاهنتم في السي بلس بلس

اقتباس

السلام عليكم

اخواني ياليت توفورلي 10 برامج في السي بلس بلس عن المصفوفات للحاجه الماسه اليها

واكون ممتن اليكم

ما هي نوعية البرامج حتى نوفرها !!! :blink:

Determinant of Matrix	  
	Public Function Calc_Determinate(ByVal MyArray(,) As Double) As Double

		Dim detrminant As Double = 0
		If MyArray.GetUpperBound(0) <> MyArray.GetUpperBound(1) Then
			MessageBox.Show("معذرة يوجد خطأ :" & Chr(10) & Chr(13) & "لابد أن يكون عدد المعادلات مساوياً لدد المجاهيل", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
			Exit Function
		End If
		'اذا كانت المصفوفة 2 * 2 نحسبها مباشرة
		If MyArray.GetLength(0) = 2 AndAlso MyArray.GetLength(0) = MyArray.GetLength(1) Then
			detrminant = (MyArray(0, 0) * MyArray(1, 1)) - (MyArray(0, 1) * MyArray(1, 0))
		Else
			'وإذا كانت المصفوفة أكبر من ذلك نمر علي العناصر العلوية للصف الأول


			Dim sign As Integer = 1


			For R As Integer = 0 To MyArray.GetUpperBound(1)
				If MyArray(0, R) <> 0 Then


					'نعرف المصفوفة الصغري للعنصر وهي أقل صف وعمود
					Dim mynewArray(MyArray.GetUpperBound(0) - 1, MyArray.GetUpperBound(0) - 1) As Double
					'العنصر الأول
					If R = 0 Then
						For R1 As Integer = 1 To MyArray.GetUpperBound(0)
							For C1 As Integer = 1 To MyArray.GetUpperBound(1)
								mynewArray(R1 - 1, C1 - 1) = MyArray(R1, C1)
							Next
						Next
						'العنصر الأخير
					ElseIf R = MyArray.GetUpperBound(1) Then
						For R1 As Integer = 1 To MyArray.GetUpperBound(0)
							For C1 As Integer = 0 To MyArray.GetUpperBound(1) - 1
								mynewArray(R1 - 1, C1) = MyArray(R1, C1)
							Next
						Next

						'أي عنصر آخر
					Else

						For R1 As Integer = 1 To MyArray.GetUpperBound(0)
							For C1 As Integer = 0 To R - 1
								mynewArray(R1 - 1, C1) = MyArray(R1, C1)
							Next
							For C1 As Integer = R + 1 To MyArray.GetUpperBound(1)
								mynewArray(R1 - 1, C1 - 1) = MyArray(R1, C1)
							Next
						Next

					End If


					detrminant += MyArray(0, R) * Calc_Determinate(mynewArray) * sign


				End If
				sign *= -1
			Next

		End If
		Return detrminant
	End Function
#End Region

اخي الفاضل

البرامج طبيعيه بس تكون شوي فيهه فكرة وقويه للمرحلة الاولى لاهنت والف شكر

السلام عليكم ,,

أخي العزيز ,, هذا الموقع به آلاف الأمثلة من كل المجالات : http://www.planet-source-code.com/

تحياتي ,,

الرابط كويس بس اذا في رابط عربي بأمن اكواد ابلت للجافا ترسله.......

Pharaonic_Guy كتب:

يمكن تجد تلك التحكمات مدرجة تبع برنامج Group Policy Editor-gpedit