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

@maxvko · Регистрация: 09.12.2013

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

Помогите, пожалуйста. C тем, чтобы заполнить матрицу случайными числами в промежутке от 10 до 40 разобрался. Как разделить все элементы массива на минимальный элемент и напечатать полученный массив.

Visual Basic

Dim MasA(1 To 5, 1 To 6) As Single
Dim i, j, m, n As Integer
 
Option Explicit
 
Private Sub Command1_Click()
      Randomize
For i = 1 To 5
   For j = 1 To 6
      MasA(i, j) = 10 + Int(30 * Rnd()) + 1
      Tab1.Col = j - 1
      Tab1.Row = i - 1
      Tab1.Text = MasA(i, j)
 
Next j
Next i
End Sub
 
Вот тут дальше подправьте:cry:
Private Sub Command2_Click()
For i = 1 To n
For j = 10 To m
Text1.Text = n
Text2.Text = m
if a(i;j)>min then min=a(i;j)
 
Next i
Next j
 
 
End Sub

@edward_freedom · 09.12.2013, 15:35

Это vb, а ты в теме vb.net

@maxvko · 09.12.2013, 15:37 **[ТС]**

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

Это vb, а ты в теме vb.net

спасибо, можешь помочь? и да, как удалить тему в форуме?

@edward_freedom · 09.12.2013, 15:43

maxvko, Модераторы увидят, перенесут

Памирыч · 09.12.2013, 16:02

Перенес.
maxvko, не плодите темы. Было три, одна вообще в Паскале.

@maxvko · 09.12.2013, 16:04 **[ТС]**

Извиняюсь, просто замешкался вот так и получилось.
Блин, помогите...

@dimsaratov · 09.12.2013, 20:40

VB.NET

Dim vMin As Short
For i = 1 To n
   For j = 10 To m
      vMin=Math.Min(a(i;j),vMin)
   Next i
Next j

@maxvko · 09.12.2013, 20:46 **[ТС]**

это в vb.net, мне нужно в vb

Памирыч · 10.12.2013, 01:23

Кодом не подскажу, но скорее всего надо завести переменную, равную первой ячейке матрицы.
Далее, делать обход по всему массиву, сравнивая эту переменную с каждым элементом.
Если элемент массива меньше, чем переменная, перезаписывать ее новым значением.

В конце концов эта переменная и будет минимальным значением, т.е. меньше ее в этой матрице уже ничего нет.

Затем проходим снова по матрице, и делим каждый ее элемент на это число.

Как-то так, наверное

@edward_freedom 1568 / 1447 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	09.12.2013, 15:35	2
	Это vb, а ты в теме vb.net 0

@maxvko 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 4
	09.12.2013, 15:37 [ТС]	3
	Сообщение от edward_freedom Это vb, а ты в теме vb.net спасибо, можешь помочь? и да, как удалить тему в форуме? 0

@edward_freedom 1568 / 1447 / 303 Регистрация: 01.10.2011 Сообщений: 2,636
	09.12.2013, 15:43	4
	maxvko, Модераторы увидят, перенесут 0

Памирыч Почетный модератор 21379 / 9113 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	09.12.2013, 16:02	5
	Перенес. maxvko, не плодите темы. Было три, одна вообще в Паскале. 1

@maxvko 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 4
	09.12.2013, 16:04 [ТС]	6
	Извиняюсь, просто замешкался вот так и получилось. Блин, помогите... 0

@maxvko 0 / 0 / 0 Регистрация: 09.12.2013 Сообщений: 4
	09.12.2013, 20:46 [ТС]	8
	это в vb.net, мне нужно в vb 0

Памирыч Почетный модератор 21379 / 9113 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	10.12.2013, 01:23	9
	Кодом не подскажу, но скорее всего надо завести переменную, равную первой ячейке матрицы. Далее, делать обход по всему массиву, сравнивая эту переменную с каждым элементом. Если элемент массива меньше, чем переменная, перезаписывать ее новым значением. В конце концов эта переменная и будет минимальным значением, т.е. меньше ее в этой матрице уже ничего нет. Затем проходим снова по матрице, и делим каждый ее элемент на это число. Как-то так, наверное 0

Опции темы