Задача на двумерный массив

@DusyaDusya · Регистрация: 14.01.2014

Студворк — интернет-сервис помощи студентам

Помогите дорешать
Задача 2.
1. . Дан двумерный массив размером n*m, заполненный случайными числами. Найти среднее арифметическое элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу.
2. Заполнить массив n*n по правилу:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim b(20, 20) As Double
Private Sub Command1_Click()
Picture1.Cls
n = InputBox("введите n")
For i = 1 To n
For j = i To n
b(i, j) = i * 2
Next
Next
For i = 1 To n
For j = 1 To n
Picture1.Print b(i, j);
Next
Picture1.Print
Next
End Sub

Картинка:
2 2 2 .. 2
0 4 4 .. 4
0 0 8 .. 8
.. .. .. .. ..
0 0 0 0 2^n

@Антихакер32 · 15.01.2014, 03:09

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Option Explicit
Option Base 1
'
'       ©  FelixMacintosh
'
'Задача на двумерный массив / Visual Basic
' Помогите дорешать
' Задача 2#
' 1. . Дан двумерный массив размером n*m, заполненный случайными числами. Найти среднее арифметическое элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу.
' 2. Заполнить массив n*n по правилу:
 
Private Sub Command1_Click()
    Dim s$, f, f1, i&
    Const n = 20 - 1, m = 20 - 1
    Dim b(n, m) As Double
    Randomize Timer
    Cls
    For f = 1 To n
        For f1 = 1 To m
            b(f, f1) = Fix(Rnd * 10)
            Print b(f, f1);
        Next
        Print
    Next
    
    Do
        If IsNumeric(s) Then Exit Do
        s = InputBox("введите n", , 5, 0, 0)
        If s = "" Then Exit Sub
    Loop
    Cls
    '----------------------Опустошаем указанный квадрат
    For f = 1 To s
        For f1 = 1 To s
            b(f, f1) = 0
        Next
    Next
    i = 2
    '----------------------Заполняем по правилу
    For f = 1 To s
        For f1 = f To s
            b(f, f1) = i
        Next
         i = i * 2
    Next
   '----------------------Демонстрация
    For f = 1 To n
        For f1 = 1 To m
            Print b(f, f1);
        Next
         Print
    Next
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''Dim b(20, 20) As Double
'''Private Sub Command1_Click()
'''Picture1.Cls
'''n = InputBox("введите n")
'''For i = 1 To n
'''For j = i To n
'''b(i, j) = i * 2
'''Next
'''Next
'''For i = 1 To n
'''For j = 1 To n
'''Picture1.Print b(i, j);
'''Next
'''Picture1.Print
'''Next
'''End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

@Антихакер32 · 15.01.2014, 03:28

Добавленно вычисление ср-арифметического

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Option Explicit
Option Base 1
'
'       ©  FelixMacintosh
'
'Задача на двумерный массив / Visual Basic
' Помогите дорешать
' Задача 2#
' 1. . Дан двумерный массив размером n*m, заполненный случайными числами. Найти среднее арифметическое элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу.
' 2. Заполнить массив n*n по правилу:
 
Private Sub Command1_Click()
    Dim s$, f, f1, i&, x&, y&
    Const n = 20 , m = 20 
    Dim b(n, m) As Double
    Randomize Timer
    Cls
    For f = 1 To n
        For f1 = 1 To m
            b(f, f1) = Fix(Rnd * 10)
            Print b(f, f1);
        Next
        Print
    Next
    
    Do
        If IsNumeric(s) Then Exit Do
        s = InputBox("введите n", , 5, 0, 0)
        If s = "" Then Exit Sub
    Loop
    Cls
    '----------------------Опустошаем указанный квадрат
    For f = 1 To s
        For f1 = 1 To s
            b(f, f1) = 0
        Next
    Next
    i = 2
    '----------------------Заполняем по правилу
    For f = 1 To s
        For f1 = f To s
            b(f, f1) = i
        Next
         i = i * 2
    Next
   '----------------------Демонстрация
    For f = 1 To n
        x = x + b(f, 1)
        For f1 = 1 To m
            y = y + b(1, f1)
            Print b(f, f1);
        Next
         Print
    Next
    Print "**********************"
    Print "Среднее арифм. X:= " & x / n
    Print "Среднее арифм. Y:= " & y / m
    
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''Dim b(20, 20) As Double
'''Private Sub Command1_Click()
'''Picture1.Cls
'''n = InputBox("введите n")
'''For i = 1 To n
'''For j = i To n
'''b(i, j) = i * 2
'''Next
'''Next
'''For i = 1 To n
'''For j = 1 To n
'''Picture1.Print b(i, j);
'''Next
'''Picture1.Print
'''Next
'''End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

@Антихакер32 · 18.01.2014, 17:58

DusyaDusya Спасибо что вспомнили про меня, я уж и забыл что я вам решил вашу задачку

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	18.01.2014, 17:58
	DusyaDusya Спасибо что вспомнили про меня, я уж и забыл что я вам решил вашу задачку 0