1 / 29

Visual Basic . Двумерные массивы.

Visual Basic . Двумерные массивы. Глезденев В.И., Удальцова А.И. – учителя информатики СОШ №3 г. Сосновый Бор. Размерность массива – ( количество строк х количество столбцов ). N x N. Элемент двумерного массива. Элемент массива A 3- й строки 2-го столбца. A(3,2).

keira
Download Presentation

Visual Basic . Двумерные массивы.

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Visual Basic. Двумерные массивы. Глезденев В.И., Удальцова А.И. – учителя информатики СОШ №3 г. Сосновый Бор

  2. Размерность массива – (количество строк х количество столбцов) N x N

  3. Элемент двумерного массива. Элемент массива A 3-й строки 2-го столбца A(3,2)

  4. Заполнение двумерного массива 10x12. Dim A(10,12)- определение массива 10х12 For i=1 to 10- цикл по строкам For k=1 to 12- цикл по столбцам A(i, k)=Fix(rnd*90+10) – случайное целое из отрезка[10, 100] Next k Next i

  5. Вывод на форму двумерного массива. For i=1 to 10 For k=1 to 12 Pset (k*400, i*200),RGB(200,200,200) Print A(i, k) Next k Next i

  6. Строки двумерного массива. Первая строка: Третья строка:

  7. Задача:Выделение строки (столбца).массив 10х10 ‘исключение случайного ввода Do n1 = InputBox("введите номер строки", "запрос строки") Loop Until (n1 < 11) And (n1 >=1) n1 = Fix(Val(n1))

  8. Сумма 5-й строки: S5=0 For k=1 to 12 S5=S5+A(5,k) Next k

  9. Максимальный элемент 7-й строки. m7=A(7,1): n7=1 For k=2 to 12 If a(7,k) > m7 Then m7=A(7,k): n7=k End If Next k

  10. Замена строк: 4  8 For k=1 to 12 sp=A(4,k): A(4,k)=A(8,k): A(8,k)=sp Next k

  11. Задача:Замена строк (столбцов).

  12. Столбцы двумерного массива. Первый столбец: Третий столбец:

  13. Сумма 4-го столбца: S4=0 For i=1 to 10 S4=S4+A(i,4) Next i

  14. Минимальный 6-го столбца. m6=A(1,6): n6=1 For i=2 to 10 If A(i,6) < m6 Then m6=A(i,6): n6=i End If Next i

  15. Замена столбцов:2 5 Первый столбец: Третий столбец:

  16. Замена столбцов:2 5 For i=1 to 10 sp=A(i,2) A(i,2)=A(i,5) A(i,5)=sp Next i

  17. Диагональные элементы двумерного массива NxN. Главная (первая) диагональ)

  18. Диагональные элементы двумерного массива NxN. Вторая диагональ:

  19. Сумма диагональных элементовмассива NxN. S1=0: S2=0 For i=1 to N S1=S1+A(i,i) S2=S2+A(N-i+1,i) Next i

  20. 1-я схема замены диагональных элементовмассива NxN.

  21. 1-я схема замены диагональных элементовмассива NxN. For i=1 to N sp=A(i,i) A(i,i)=A(N-i+1,i) A(N-i+1,i)=sp Next i

  22. 2-я схема замены диагональных элементовмассива NxN. Самостоятельно!!

  23. Задача:определить и выделить в двумерном массиве минимальные элементы строк.

  24. Задача:Определить и выделить в двумерном массиве минимальные элементы строк. Записать значения и положение в другой массив.

  25. For i = 1 To 10 m = a(i, 1): n = 1 For k = 1 To 10 If a(i, k) < m Then m = a(i, k): n = k End If Next k ForeColor = RGB(255, 0, 0) PSet (n * 400, i * 200), RGB(200, 200, 200) Print a(i, n) ForeColor = RGB(0, 0, 0) b(i, 1) = a(i, n): b(i, 2) = i: b(i, 3) = n Next i

  26. Задача:Определить и выделить в двумерном массиве минимальные элементы строк. Записать значения и положение в другой массив. Определить максимальный. Max

  27. For i = 1 To 10 For k = 1 To 3 PSet (k * 400 + 5000, i * 200) Print b(i, k) Next k Next i mb = b(1, 1): For i = 1 To 10 If b(i, 1) > mb Then mb = b(i, 1): ns1 = i: ns2 = b(i, 3) End If Next i PSet (5400, 2500), RGB(200, 200, 200) Print mb; " "; ns1; " "; ns2

  28. Задача:Удаление строки со сдвигом.

  29. If (n>=1) AND (n<10) then For i = n To 9 For k = 1 To 10 a(i, k) = a(i + 1, k) Next k Next i End if For k = 1 To 10 a(10, k) = 0 Next k

More Related