1.4 Бірөлшемдік массив элементтерін өндеуге арналған типті алгоритмдер
Массивтін элементтерін қосындысың және көбейтіндісін есептеу
S=0:P=1
For i=1 to 20
S=S+x(i): P=P*x(i)
Next i
Массивтін ең үлкен және ең кіші элементін есептеу
max=x(1):imax=1:min=x(1):imni=1
for i=1 to 20
i
f
x(i)>max then
max=x(i):imax=i
end if
i f x(i)<min then
min=x(i):imin=i
end if
next i
Қойылған шартты қанағаттандыратың массивтін элементтерінін саның есептеу
k=0
for i=1 to 20
if шарт then k=k+1
next i
Массивтін элементтерін реттеу
for i=1 to 19
for j=i+1 to 20
if x(i)>x(j) then
c:=x(i) : x(i)=x(j) : x(j)=c
end if
next j
next i
14 Visual basic-те деректер массивтері. Екіөлшемдік массивтер
Бірөлшемдік массивтер математикада векторларға сәйкес болса, екіөлшемдік массивтер – матрицаларға. Екіөлшемдік масситвердін элементтерінде екі индекс болады – қиылысындағы ұяшықта элемент орналасқан жол мен бағананың нөмірлері.
Массивті хабарлау:
Dim массив аты (жөлдар бойынша өлшемі, бағаналар бойынша өлшемі ) as [типі]
Мысалдар:
Dim x(5,4) as integer – 5-тен 6 жолда орналасқан бүтін сандар мәнді 30 элементтерден тұратың екіөлшемдік x массиві хабарланады.
Dim z(2,3) – универсалдық типті 12 элементтерден тұратың екіөлшемдік z массиві хабарланады.
14.1 Массивтін элементтерін енгізу
Екіөлшемдік массивтін элементтерін енгу барысында элементтерді екі индекс бойынша теру қажет (жолдар мен бағаналар нөмірлерін теру). Соңдықтан енгізу амалаың екі, бірінін ішінде бірі орналасқан, циклдер денесінде орналастыру қажет. Мұнда бір циклдін басқару айнымалысы енгізілетін элементтін бір индексі ретінде, ал екіншінін – екінші индекс ретінде қолданылады.
Енгізілетін элементтердін индекстері келесі ретімен теріледі:
Ішкі циклдін басқару айнымалының ( j ) мәні сыртқы циклдін басқару айнымалысына қарағанда ( i ) тез өзгереді.
Массивтін элементтерін сұрау терезесі арқылы енгізу
Мысал:
For i = 1 To 5
For j = 1 To 4
x(i, j) = Convert.ToInt16(InputBox("х(" & i & "," & j & ") енгізу"))
Next j
Next i
Массивтін элементтерінін мәндерін бағдарламада есептеу
1 мысалы:
For i = 1 To 5
For j = 1 To 4
x(i, j) = 3 * ( i + j )
Next j
Next i
мысал: Бұл мысалда массивтін элементерінін мәндері -50-ден 50-ге дейінгі кез келген сандардаң құрылады.
For i = 1 To 5
For j = 1 To 4
x(i, j) = Math.Round(VBMath.Rnd() * 100) - 50
AxMSFlexGrid1.set_TextMatrix(i - 1, j - 1, x(i, j))
Next j
Next i
14.2 Массивтін элементтерін шығару
Хабарландыру терезесінде массивтін элементтерін шығару.
Элементтерді шығару алдында олардың мәндерінен тұратың бір айнымалыны құру қажет. Содан соң айнымалының мәні терезеде шығарылады.
1 Мысал:
a = ""
For i = 1 To 5
For j = 1 To 4
a = a & x(i, j) & " "
Next j
a = a & Chr(13)
Next i
MsgBox(a)
Нәтиже:
Массивтін элементтерін FlexGrid торы ұяшығында шығару
1 Мысал:
For i = 1 To 5
For
j = 1 To
4
AxMSFlexGrid1.set_TextMatrix(i - 1, j - 1, x(i, j))
Next j
Next i
Нәтиже:
14.3 Массивтін элементтерін өндеуге арналған типті алгоритмдер
Массивт элементтерінін қоысындысы мен көбейтіндісін есептеу
S=0:P=1
For i = 1 To 5
For j = 1 To 6
S=S+x(i, j)
P=P*x(i, j)
Next j
Next i
Массивтін әр бір жол элементерінін қосындысың есептеу
For i = 1 To 5
S(i)=0
Next i
For i = 1 To 5
For j = 1 To 6
S(i)=S(i)+x(i, j)
Next j
Next i
Массивтін әр бір бағана элементерінін қосындысың есептеу
For i = 1 To 6
S(i)=0
Next i
For i = 1 To 6
For j = 1 To 5
S(i)=S(i)+x(j, i)
Next j
Next i
Массивтін ең үлкен және ең кіші элементтерін есептеу
Max = x(1, 1) : imax = 1: jmax = 1
Min = x(1, 1) : imin = 1: jmin = 1
For i = 1 To 5
For j = 1 To 6
If x(i, j) > Max Then
Max = x(i, j): imax = i: jmax = j
End if
If x(i, j) < Min Then
Min = x(i, j): imin = i: jmin = j
End if
Next j
Next i
Қойылған шартты қанағаттандыратың элементтерінін саның есептеу
k=0
For i = 1 To 6
For j = 1 To 5
If шарт Then k=k+1
Next j
Next i
Квадраттық матрицаның элементтерін өндеу
Квадраттық матрица элементтерінін индекстері. Бас диагональ.
Квадраттық матрица элементтерінін индекстері. Қосымша диагональ.
