Примеры
1)
x = a
Do WHILE x <= b
<тело цикла>
x = x + h
LOOP
Примеры
2)
x = a
DO UNTIL x > b
<тело цикла>
x = x + h
LOOP
Примеры
3)
x = a
WHILE x <= b
<тело цикла>
x = x + h
WEND
Операторы цикла
•Цикл с постусловием
1) DO
<тело цикла>
LOOP WHILE <условие>
2)DO
<тело цикла>
LOOP UNTIL <условие>
Примеры
1)
x = a
Do
<тело цикла>
x = x + h
LOOP WHILE x <= b
Примеры
2)
x = a
DO
<тело цикла>
x = x + h
LOOP UNTIL x > b
Массивы
Массивом называется упорядоченный набор данных, имеющих один и тот же тип и располагающихся в памяти непосредственно друг за другом.
Массивы могут быть:
-Статические и динамические;
-Числовые и символьные;
-Одномерные и многомерные.
Как правило, одномерный массив называют вектором: A(7)={3,8,4,1,2,5,4}
Двумерный массив является частным случаем многомерного массива и представляет собой матрицу (таблицу)
A(4,4)= {3,4,5,1 2,9,0,3 4,7,9,5 3,2,6,7}
Описание массивов осуществляется с помощью оператора Dim.
Статический массив:
Dim A(1 to 7) As Integer, B(1 to 7, 1 to 7) as Single
Динамический массив:
Dim N as Integer, A() as Single
___________________________
Private Sub Command1_Click()
………………………………………
N=CInt(InputBox(“N=”)) ReDim A(1 to N) as Single
………………………………………
End Sub
Основные способы ввода и вывода элементов массива
Ввод элементов одномерного массива осуществляется в цикле. Ввод элементов двумерного массива осуществляется в двух Вложенных циклах.
ПРИМЕР. Сумма десяти вещественных чисел.
10
Sai
i 1
НАЧАЛО
Ввод: N
I=1, 10
Ввод: A(I)
S=0
I=1, N
S=S+A(i)
Вывод: S
КОНЕЦ
Dim a(1 To 10) As Single |
. |
|
|
Private Sub Command1_Click() |
|
|
|
Dim i As Integer |
|
|
|
For i = 1 To 10 |
|
|
|
a(i) = CSng(InputBox("A(" + CStr(i) + ")=")) |
|
|
|
Next i |
|
|
|
End Sub |
. |
|
|
Private Sub Command2_Click() |
|
|
|
Dim s As Single, i As Integer |
|
|
|
s = 0 |
|
|
|
For i = 1 To 10 |
|
|
|
s = s + a(i) |
|
|
|
Next i |
|
|
|
Text1.Text = CStr(s) |
|
|
|
End Sub |
. |
||
Private Sub Command3_Click() |
|
|
|
End |
|
|
|
End Sub |
|
|
|
