Заменить максимальный элемент по модулю каждой строки на противоположный по знаку

@delyxe · Регистрация: 13.01.2012

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

Здравствуйте помогите пожалуйста вот такая проблема, сделал задания с массива для вывода в picturebox, а надо во flex, дак плюс к тому еще нужно из текстового файла, ладно с этим разобрался а вот незнаю как перестроить все это через флекс, вот наработки,уже 3 дня пытаюсь, тупик.....
Вот сделано все в пикчебокс они все сделаны правильно, но к сведению напишу задания

1)заменить максимальный элемент по модулю каждой строки на противоположный по знаку
2) удалить из массива все строки, содержащие ноль
3) поменять местами две средние строки

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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
Dim n%, m%, mas%(), mas_tmp%(), j_max%(), j_neg%()
 
Private Sub Combo1_Change()
 
End Sub
 
Private Sub Command1_Click()
Picture1.Cls
Randomize
n = InputBox("Введите n")
m = InputBox("Введите m")
ReDim mas(n - 1, m - 1)
ReDim j_max(n - 1)
For i = 0 To n - 1
    t = ""
    j_max(i) = 0
    Max = mas(i, 0)
    For j = 0 To m - 1
        mas(i, j) = Int(21 * Rnd() - 5)
        t = t & mas(i, j) & vbTab
    Next
    Picture1.Print t
Next
End Sub
 
 
Private Sub Command2_Click()
For i = 0 To n - 1
    j_max(i) = 0
    Max = mas(i, 0)
    For j = 0 To m - 1
        If Abs(mas(i, j)) > Max Then Max = mas(i, j): j_max(i) = j
    Next
    mas(i, j_max(i)) = -mas(i, j_max(i))
Next
 
Picture2.Cls
For i = 0 To n - 1
    t = ""
    For j = 0 To m - 1
        t = t & mas(i, j) & vbTab
    Next
    Picture2.Print t
Next
End Sub
 
Private Sub Command3_Click()
Randomize
n = InputBox("Введите n")
m = InputBox("Введите m")
ReDim mas(n - 1, m - 1)
ReDim j_max(n - 1)
For i = 0 To n - 1
    j_max(i) = 0
    Max = mas(i, 0)
    For j = 0 To m - 1
        mas(i, j) = Int(21 * Rnd() - 5)
    Next
Next
   MSFlexGrid1.Rows = n + 1     
   MSFlexGrid1.Cols = m + 1   
   
 
    MSFlexGrid1.Row = 0           
    For j = 0 To m
    MSFlexGrid1.Col = j          
    MSFlexGrid1.ColWidth(j) = 700 
    MSFlexGrid1.Text = j     
   Next j
  
 
   MSFlexGrid1.Col = 0        
   MSFlexGrid1.ColWidth(0) = 300 
   For i = 0 To n             
    MSFlexGrid1.Row = i        
    MSFlexGrid1.Text = i       
   Next i
       
 
 For i = 0 To n - 1          
  t = ""
  MSFlexGrid1.Row = i + 1       
      j_max(i) = 0
    Max = mas(i, 0)
   For j = 0 To m - 1          
    MSFlexGrid1.Col = j + 1     
    MSFlexGrid1.Text = mas(i, j)  
    Next j
 Next i
End Sub
 
Private Sub Command4_Click()
Picture2.Cls
k = 0
ReDim mas_tmp(n - 1, m - 1)
For i = 0 To n - 1
    For j = 0 To m - 1
        mas_tmp(i - k, j) = mas(i, j)
        If mas(i, j) = 0 Then k = k + 1: Exit For
    Next
Next
ReDim mas(n - 1 - k, m - 1)
mas = mas_tmp
For i = 0 To n - 1 - k
    t = ""
    For j = 0 To m - 1
        t = t & mas(i, j) & vbTab
    Next
    Picture2.Print t
Next
End Sub
 
Private Sub Command5_Click()
Picture2.Cls
k = (n - 1) \ 2
For j = 0 To m - 1
    t = mas(k, j)
    mas(k, j) = mas(k + 1, j)
    mas(k + 1, j) = t
Next
 
For i = 0 To n - 1
    t = ""
    For j = 0 To m - 1
        t = t & mas(i, j) & vbTab
    Next
    Picture2.Print t
Next
End Sub

а вот наработки по флексу

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
78
79
80
Dim n%, m%, mas(50, 50) As Integer, mas_tmp%(50, 50), j_max%(50, 50), j_neg%(50, 50)
Private Sub Command2_Click()
Open File1.Path + "\" + File1.FileName For Input As #1
Input #1, n
For i = 0 To n - 1
For j = 0 To n - 1
Input #1, mas(i, j)
Next
Next
Close #1
   MSFlexGrid1.Rows = n + 1    
   MSFlexGrid1.Cols = n + 1    
 
    MSFlexGrid1.Row = 0          
   For j = 0 To n              
    MSFlexGrid1.Col = j       
    MSFlexGrid1.ColWidth(j) = 700 
    MSFlexGrid1.Text = j        
   Next j
 
   MSFlexGrid1.Col = 0        
   MSFlexGrid1.ColWidth(0) = 300
   For i = 0 To n            
    MSFlexGrid1.Row = i       
    MSFlexGrid1.Text = i     
   Next i
 
 For i = 0 To n - 1            
  MSFlexGrid1.Row = i + 1       
   For j = 0 To n - 1         
    MSFlexGrid1.Col = j + 1      
    MSFlexGrid1.Text = mas(i, j) 
    Next j
 Next i
 End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Command1_Click()
k = 0
For i = 0 To n - 1
    For j = 0 To n - 1
        mas_tmp(i - k, j) = mas(i, j)
        If mas(i, j) = 0 Then k = k + 1: Exit For
    Next
Next
mas = mas_tmp
For i = 0 To n - 1 - k
    For j = 0 To n - 1
    Next
Next
End Sub
 MSFlexGrid2.Rows = n + 1    
   MSFlexGrid2.Cols = n + 1   
 
    MSFlexGrid2.Row = 0          
   For j = 0 To n                
    MSFlexGrid2.Col = j          
    MSFlexGrid2.ColWidth(j) = 700
    MSFlexGrid2.Text = j        
   Next j
  'Ôîðìèðîâàíèå çàãîëîâêîâ ñòðîê
   MSFlexGrid2.Col = 0         
   MSFlexGrid2.ColWidth(0) = 300 
   For i = 0 To n             
    MSFlexGrid2.Row = i         
    MSFlexGrid2.Text = i       
   Next i
 
 For i = 0 To n - 1          
  MSFlexGrid2.Row = i + 1      
   For j = 0 To n - 1          
    MSFlexGrid2.Col = j + 1       
    MSFlexGrid2.Text = mas(i, j)  
    Next j
 Next i
 End Sub

SoftIce · 28.05.2012, 10:18

Сообщение от delyxe

надо во flex

В качестве примера

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
Dim n%, m%, mas%(), mas_tmp%(), j_max%(), j_neg%()
Private Sub Command1_Click()
'Picture1.Cls
Randomize
n = InputBox("Введите n", , 5): m = InputBox("Введите m", , 5)
ReDim mas(n - 1, m - 1)
ReDim j_max(n - 1)
For i = 0 To n - 1
    t = ""
    j_max(i) = 0
    Max = mas(i, 0)
    For j = 0 To m - 1
        mas(i, j) = Int(21 * Rnd() - 5)
        t = t & mas(i, j) & vbTab
    Next
'   Picture1.Print t
Next
MSFlexGrid1.Rows = m: MSFlexGrid1.Cols = n: MSFlexGrid1.Clear
For i = 1 To n - 1
MSFlexGrid1.ColWidth(i) = 500
Next i
For i = 1 To n - 1
    For j = 1 To m - 1
        MSFlexGrid1.TextMatrix(i, j) = mas(i, j)
    Next
Next
End Sub

@delyxe · 28.05.2012, 16:56 **[ТС]**

да просто у меня то массив нужно из файла во флекс вывести, у вас рандомный массив во флекс

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@delyxe 3 / 3 / 0 Регистрация: 13.01.2012 Сообщений: 28
	28.05.2012, 16:56 [ТС]
	да просто у меня то массив нужно из файла во флекс вывести, у вас рандомный массив во флекс 0