Форум программистов, компьютерный форум, киберфорум
Наши страницы

Visual Basic

Войти
Регистрация
Восстановить пароль
 
stalker333
0 / 0 / 0
Регистрация: 06.05.2010
Сообщений: 4
#1

Двумерный массив - VB

14.05.2010, 18:08. Просмотров 515. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить задачу =)

Дан двумерный массив чисел.
Напечатать элементы массива .Найти разницу между наибольшим отрицательным элементом и наибольшим положительным элементом.Нарисовать блок схему.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2010, 18:08
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Двумерный массив (VB):

Перевести одномерный буквенный массив в двумерный массив размером 2.5 - Visual Basic
Из данного примера не могу никак додумать... Dim A as integer Cls F= array ("а","б","в","г","д","е","ё","ж","з","и") ...

Массив: Отсортировать двумерный массив по строкам и столбцам - Visual Basic
Помогите! Дали задачу по программированию на бейсике, но у меня как-то с этим не заладилось.Задача такая - Отсортировать двумерный массив...

Двумерный массив - Visual Basic
Хелп плиз

Двумерный массив - Visual Basic
Дан двумерный массив 10 на 10, который заполнен случайными числами до 100.Сортировка(строк и столбцов одновременно) по возрастанию или...

Двумерный массив - Visual Basic
Здравствуйте, у меня очередное задание которое я немогу зделать хотя знаю что оно лёгкое как перышко. Вообщем я весь интернет...

Двумерный массив - Visual Basic
Помогите пожалуйста! Дан двумерный массив размером n*m, заполненный случайными числами. Определить, сколько в данном массиве строк, в...

2
YuraAAA
1578 / 1319 / 271
Регистрация: 25.10.2009
Сообщений: 3,437
Записей в блоге: 2
14.05.2010, 18:35 #2
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
Private Sub Form_Load()
Dim a() As Single, min As Single, max As Single, MS As Variant
Dim n, m, i, j
n = InputBox("n")
m = InputBox("m")
ReDim a(1 To n, 1 To m)
MS = ""
For i = 1 To n
For j = 1 To m
a(i, j) = Int(100 * Rnd)
MS = MS & a(i, j) & Space(2)
Next j
MS = MS & Chr(13)
Next i
MsgBox MS
max = a(1, 1)
min = a(1, 1)
For i = 1 To n
For j = 1 To m
If a(i, j) > max Then max = a(i, j)
If a(i, j) < min Then min = a(i, j)
Next j
Next i
MsgBox ("Min = " & min & "   Max = " & max)
End Sub
1
stalker333
0 / 0 / 0
Регистрация: 06.05.2010
Сообщений: 4
14.05.2010, 19:21  [ТС] #3
Цитата Сообщение от YuraAAA Посмотреть сообщение
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
Private Sub Form_Load()
Dim a() As Single, min As Single, max As Single, MS As Variant
Dim n, m, i, j
n = InputBox("n")
m = InputBox("m")
ReDim a(1 To n, 1 To m)
MS = ""
For i = 1 To n
For j = 1 To m
a(i, j) = Int(100 * Rnd)
MS = MS & a(i, j) & Space(2)
Next j
MS = MS & Chr(13)
Next i
MsgBox MS
max = a(1, 1)
min = a(1, 1)
For i = 1 To n
For j = 1 To m
If a(i, j) > max Then max = a(i, j)
If a(i, j) < min Then min = a(i, j)
Next j
Next i
MsgBox ("Min = " & min & "   Max = " & max)
End Sub
Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2010, 19:21
Привет! Вот еще темы с ответами:

двумерный массив - Visual Basic
Необходимо заполнить массив так, как показано на рисунке в среде VisualBasic: ...

двумерный массив - Visual Basic
задания на двумерный массив Дан двумерный массив размером n*m, заполненный случайным образом. 1. Заменить максимальный элемент...

Двумерный массив - Visual Basic
В двумерном массиве найти максимумальный и минимальный элемент и поменять их местами Внизу-это программа которая выводит два массива и...

Двумерный массив - Visual Basic
Здравствуйте. Ну вот задачка. Дан двумерный массив размером n*m, заполненный натуральными числами от 1 до 100, Определить сколько чисел...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru