Мен К?шербай Эльвира 08.10.1996 жылы ?ызылорда ?аласында д?ниеге келдім.?азіргіі уа?ытта М.М?метова атында?ы гуманитарлы? колледжде Физика математика ж?не информатика б?ліміні? И-И-12 тобыны? 4 курс студентімін.Мені? маманды?ым негізгі орта білім информат

Бірөлшемді массив элементтеріне программа құру 8 3 4 9 11 5 7 10 1 2 12 6 13 Л о т о 8 3 4 9 11 5 7 10 1 2 12 6 13 Л о т о 8 3 4 9 11 5 7 10 1 2 12 6 13 Л о т о 8 3 4 9 11 5 7 10 1 2 12 6 13 Л о т о 8 3 4 9 11 5 7 10 2 12 6 1 13 Л о т о 8 3 4 9 11 5 7 10 2 12 6 1 13 Л о т о 8 3 4 9 11 5 7 10 2 12 6 13 1 Л о т о 8 3 4 9 11 5 7 10 2 12 6 13 1 Л о т о 3 4 9 11 5 7 10 2 12 6 8 13 1 Л о т о 3 4 9 11 5 7 10 2 12 6 13 1 8 Л о т о 3 4 9 11 5 7 10 2 12 6 13 1 8 Л о т о 3 4 9 5 7 10 2 12 6 13 1 8 11 Л о т о 3 4 9 5 7 10 2 12 6 13 1 8 11 Л о т о 3 4 9 5 7 10 2 12 6 13 1 8 11 Л о т о 3 9 5 7 10 2 12 6 13 1 8 11 4 Л о т о 3 9 5 7 10 2 12 6 13 1 8 11 4 Л о т о Listbox компонентінін List қасиеті Бірөлшемді массивтін жазылу форматы Қосындылардың бастапқы мәні нешеге тең Listbox компонентінін Additem әдісі Step операторының атқаратын қызметі Үзінділер Келесі программаның үзіндісі нені анықтайды s = 0 For k=1 to n s= s+a(k) Next k Келесі программаның үзіндісі нені анықтайды s = 1 For k=2 to n step 2 s= s * a(k) Next k Келесі программаның үзіндісі нені анықтайды s = 0 For k=1 to n If a(k) mod 2 = 0 then s= s + 1 Next k Private Sub Command1_Click() Dim a(8) As Integer For i = 1 To 8 a(i) = InputBox("") Next For i = 5 To 7 a(i) = a(i + 1) Next a(8) = 18 For i = 1 To 8 List1.AddItem a(i) Next End Sub Массивтен бір элементті жою 11 12 13 14 14 15 16 17 18 Dim A(8) as integer 1 2 3 4 5 6 7 8 For i = 5 To 7 a(i) = a(i + 1) a(8) = 18 Private Sub Command1_Click() Dim a(8) As Integer For i = 1 To 8 a(i) = InputBox("") Next For i = 5 To 7 a(i) = a(i + 1) Next a(8) = 18 For i = 1 To 8 List1.AddItem a(i) Next End Sub Массивтен бір элементті жою Private Sub Command1_Click() Dim a(8) As Integer For i = 1 To 8 a(i) = InputBox("") Next For i = 8 To 6 Step -1 a(i) = a(i - 1) Next a(5) = 25 For i = 1 To 8 List1.AddItem a(i) Next End Sub Массивке бір элемент қосу 21 22 23 24 26 27 28 29 Dim A(8) as integer 1 2 3 4 5 6 7 8 25 For i = 8 To 6 Step -1 a(5) = 25 Private Sub Command1_Click() Dim a(8) As Integer For i = 1 To 8 a(i) = InputBox("") Next For i = 8 To 6 Step -1 a(i) = a(i - 1) Next a(5) = 25 For i = 1 To 8 List1.AddItem a(i) Next End Sub Массивке бір элемент қосу Private Sub Command1_Click() Dim a(6) As Integer For i = 1 To 6 a(i) = InputBox("") Next Min = a(1) For i = 1 To 6 If a(i) < Min Then Min = a(i) Next For i = 1 To 6 List1.AddItem a(i) Next MsgBox "Min=" + Str(Min) End Sub Массивтің ең кіші элементін анықтау 24 43 12 31 -26 27 Dim A(6) as integer 1 2 3 4 5 6 Min = a(1) If a(i) < Min Then Min = a(i) < > Min = a(3) < > < Min = a(5) Min = -26 Private Sub Command1_Click() Dim a(6) As Integer For i = 1 To 6 a(i) = InputBox("") Next Min = a(1) For i = 1 To 6 If a(i) < Min Then Min = a(i) Next For i = 1 To 6 List1.AddItem a(i) Next MsgBox "Min=" + Str(Min) End Sub Массивтің ең кіші элементін анықтау