Бірөлшемді массив элементтеріне программа құру
Бірөлшемді массив элементтеріне программа құру
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
Массивтің ең кіші элементін анықтау
- Іс жүргізу
- Автоматтандыру, Техника
- Алғашқы әскери дайындық
- Астрономия
- Ауыл шаруашылығы
- Банк ісі
- Бизнесті бағалау
- Биология
- Бухгалтерлік іс
- Валеология
- Ветеринария
- География
- Геология, Геофизика, Геодезия
- Дін
- Ет, сүт, шарап өнімдері
- Жалпы тарих
- Жер кадастрі, Жылжымайтын мүлік
- Журналистика
- Информатика
- Кеден ісі
- Маркетинг
- Математика, Геометрия
- Медицина
- Мемлекеттік басқару
- Менеджмент
- Мұнай, Газ
- Мұрағат ісі
- Мәдениеттану
- ОБЖ (Основы безопасности жизнедеятельности)
- Педагогика
- Полиграфия
- Психология
- Салық
- Саясаттану
- Сақтандыру
- Сертификаттау, стандарттау
- Социология, Демография
- Спорт
- Статистика
- Тілтану, Филология
- Тарихи тұлғалар
- Тау-кен ісі
- Транспорт
- Туризм
- Физика
- Философия
- Халықаралық қатынастар
- Химия
- Экология, Қоршаған ортаны қорғау
- Экономика
- Экономикалық география
- Электротехника
- Қазақстан тарихы
- Қаржы
- Құрылыс
- Құқық, Криминалистика
- Әдебиет
- Өнер, музыка
- Өнеркәсіп, Өндіріс
Қазақ тілінде жазылған рефераттар, курстық жұмыстар, дипломдық жұмыстар бойынша біздің қор #1 болып табылады.
Ақпарат
Қосымша
Email: info@stud.kz