VBNet - Форум - Массивы Help!

Вопрос: Массивы Help! Добавлено: 28.05.03 09:43

Автор вопроса: Dmitry_k

Нужно написать программу на Бэйсике, которая делает следующее:

1. Пользователем задается размер двумерного массива - строк, столбцов.

2. Пользователем забивается этот массив.

3. Этот массив транспонируется.

4. Находится наименьший элемент массива. Выводится на экран.

Все.

Можно на обычном Бэйсике, никакая экранная графика не нужна, все в текстовом режиме. Первый и второй пункт - предполагаю будет использоваться команда DIM....

Помогите пожалуйста, срочно надо....

E-mail: n620@nsk.ru

Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

Smith

ICQ: ненавижу

Вопросов: 28
Ответов: 317

Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой.
Профиль | | #1

Добавлено: 28.05.03 14:23

Ну а в чем проблема-то?!?

Бейсика не знаешь чтоли, или не знаешь как находится наименьший элемент?

Конкретнее пожалуйста.

Ответить

Номер ответа: 2
Автор ответа:

j3d1

ICQ: 8370005

Вопросов: 34
Ответов: 466

Профиль | | #2

Добавлено: 28.05.03 15:07

VB:

dim a as integer,b as integer,nm as integer

a = inputbox("ent m1")

b= inputbox("ent m2")

dim MAS(a,b) as integer

for i = 0 to a

for j = 0 to b

if nm < mas(i,j) then nm = mas(i,j)

next j

next i

msgbox "Наименьшее:" & nm

Должно работать!

Ответить

Номер ответа: 3
Автор ответа:

Smith

ICQ: ненавижу

Вопросов: 28
Ответов: 317

Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой.
Профиль | | #3

Добавлено: 29.05.03 08:33

To: JEDI

Теоретически все правильно, а на практике не работает почему-то.

Строка dim MAS(a,b) as integer кричит "Constant expression required" и воказывает на b.

А еще нужно попросить пользователя ввести все элементы массива и распечатать массив.

Ответить

Номер ответа: 4
Автор ответа:

j3d1

ICQ: 8370005

Вопросов: 34
Ответов: 466

Профиль | | #4

Добавлено: 29.05.03 11:11

поставь вместо Dim redim и будет всё пучком, блин а самому написать остальное, я те конечно и прогу могу готовую дать, но толку от этого!

Ответить

Номер ответа: 5
Автор ответа:

j3d1

ICQ: 8370005

Вопросов: 34
Ответов: 466

Профиль | | #5

Добавлено: 29.05.03 11:25

Dim a As Integer, b As Integer, nm As Integer
a = Val(InputBox("ent m1"))
b = Val(InputBox("ent m2"))
Randomize
ReDim MAS(a, b) As Integer
Debug.Print "------------------"
For i = 1 To a
For j = 1 To b

   MAS(i, j) = Int(Rnd * 50)
   Debug.Print MAS(i, j)
Next j
Next i
nm = MAS(1, 1)
For i = 1 To a
For j = 1 To b
    If nm > MAS(i, j) Then nm = MAS(i, j)
Next j
Next i

MsgBox nm

Готовая прога можешь юзать!

Ответить

Страница: 1 |