МАССИВЫ

Решение многих задач на ЭВМ связано с обработкой большого количества численных данных. Эти данные обычно представляются в виде различных таблиц. Часто используются одномерные и двумерные таблицы. х1х2х3...хnхn n Одномерная таблица Х состоит из n элементов. Таблица линейная – Х(n) Двумерная таблица содержит N*M элементов и каждый элемент имеет 2 индекса. Двумерную таблицу называют прямоугольной. A11A12A13A14A15 A21A22A23A24A25 A31A32A33A34A35 Двумерная таблица А (3,5). Первый индекс показывает номер строки, второй номер столбца. Таблицу часто называют массивом. Массив – совокупность величин, при которой доступ к любой из них обеспечивается заданием имени массива и индексов, определяющих положение элементов в массиве. Одномерный массив – список учеников в классе. Многомерный массив – таблица умножения, аттестат зрелости, ж/д билет, классный журнал

Заполнение массива при помощи датчика случайных чисел Задача: Заполнить массив A(22) случайными числами из отрезка [-5,37] и вывести его на экран. DIM A(1 TO 22) AS SINGLE, X AS BYTE Private Sub Command1_Click() RANDOMIZE FOR X=1 TO 22 A(X)= - 5+INT(RND*(37 - (-5)+1)) PRINT A(X); NEXT X End Sub Формула получения случайного числа из отрезка [N,M] : Z= N+INT(RND*(M-N+1)) Демонстрация

DIM В(1 TO 17) AS SINGLE, X AS BYTE Private Sub Command1_Click() RANDOMIZE FOR X=1 TO 17 В(X)= 12+INT(RND*( )) PRINT В(X); NEXT X End Sub Определите имя массива, количество элементов, способ заполнения

DIM С(1 TO 44) AS SINGLE, X AS BYTE Private Sub Command1_Click() RANDOMIZE FOR X=1 TO 44 С(X)= -34+INT(RND*(70-(-34)+1)) PRINT С(X); NEXT X End Sub Определите имя массива, количество элементов, способ заполнения ЗАПОЛНЕНИЕ МАССИВОВ ПРОЕКТ

DIM К(1 TO 19) AS SINGLE, X AS BYTE Private Sub Command1_Click() RANDOMISE FOR X=1 TO 25 А(X)= -60+INT(RND*(-10-(60)+1)) PRINT К(X); NEXT End Sub Найдите ошибки!

DIM К(1 TO 19) AS SINGLE, X AS BYTE Private Sub Command1_Click() RANDOMIZE FOR X=1 TO 19 К(X)= -60+INT(RND*(-10-(-60)+1)) With Font.Bold = True.Size = 14 ForeColor = vbRed End With PRINT К(X); NEXT X End Sub

DIM К(1 TO 19) AS SINGLE, X AS BYTE Private Sub Command1_Click() RANDOMIZE FOR X=1 TO 19 К(X)= -60+INT(RND*(-10-(-60)+1)) PRINT К(X); NEXT X: PRINT S=0 FOR X=1 TO 19 S=S + K(X) NEXT X PRINT S=;S End Sub

DIM К(1 TO 19) AS SINGLE, X AS BYTE Private Sub Command1_Click() RANDOMIZE FOR X=1 TO 19 К(X)= -60+INT(RND*(-10-(-60)+1)) PRINT К(X); NEXT X :PRINT S=0 FOR X=1 TO 19 IF K(X)/2 >< K(X)\2 THEN S=S + K(X) NEXT X PRINT S=;S End Sub

DIM К(1 TO 19) AS SINGLE, X AS BYTE Private Sub Command1_Click() RANDOMIZE FOR X=1 TO 19 К(X)= -60+INT(RND*(-10-(-60)+1)) PRINT К(X); NEXT X : PRINT S=0 FOR X=1 TO 19 IF K(X)/2 >< K(X)\2 THEN S=S + 1 NEXT X PRINT S=;S End Sub

Этапы решения задач с массивами: 1. Определить массив. 2. Заполнить массив. 3. Вывести элементы массива на экран. 4. Выполнить требуемое задание.

Dim A(1 To 15) As Single, I As Byte Private Sub Command1_Click() RANDOMIZE FOR I = 1 TO 15 A(I) = -7 + INT(RND * (20 - (-7) + 1)) PRINT A(I); NEXT I: PRINT S = 0 FOR I = 1 TO 15 IF A(I)/3 = FIX(A(I)/3) THEN PRINT A(I); NEXT I: PRINT PRINT MIN = A(1) FOR I = 2 TO 15 IF A(I) < MIN Then MIN = A(I) NEXT I: PRINT PRINT Минимальный элемент массива = "; MIN PRINT End Sub

DIM К(1 TO 19) AS SINGLE, X AS BYTE Private Sub Command1_Click() RANDOMIZE FOR X=1 TO 19 К(X)= -60+INT(RND*(-10-(-60)+1)) PRINT К(X); NEXT X : Print S = 0: S1 = 0: P = 1: P1 = 1 For I = 1 To 19 S = S + A(I) If A(I) / 2 = A(I) \ 2 Then ForeColor = vbBlue: Print A(I);: S1 = S1 + A(I) P = P * A(I) If A(I) / 2 <> A(I) \ 2 Then ForeColor = vbMagenta: Print A(I);: P1 = P1 * A(I) Next I ForeColor = vbBlack Print «Сумма всех элементов ="; S Print «Сумма четных элементов ="; S1 Print «Произведение всех элементов ="; P Print " Произведение нечетных элементов ="; Р1 End Sub Демонстрация