Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Vadimshch
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 3
#1

ЗАДАНИЕ С МАССИВАМИ - VB

24.12.2010, 11:48. Просмотров 502. Ответов 3
Метки нет (Все метки)

Дан массив В (n). Найти максимальный элемент и все элементы до
него заменить на 7
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2010, 11:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос ЗАДАНИЕ С МАССИВАМИ (VB):

Работа с массивами
Сформировать двухмерный массив случайных чисел а(1 to n, n) и определить...

Задачи с массивами
Помогите с задачей : В массиве из 10 положительных и отрицательных чисел найти...

Работа с массивами
Запрограммировать модуль, в котором надо задать два двухмерные массивы М1 и М2,...

Глюк с массивами
Простая функция сортировки если число в массиве меньше нужного добавляем к...

Работа с массивами
В C# есть такая тема Array.Max(); типо максимальный элемент массива. Как тоже...

Операции с массивами
Задача. Просуммировать элементы матрицы A(n, n) по каждой из линий,...

3
nuSan
0 / 0 / 3
Регистрация: 24.12.2010
Сообщений: 127
24.12.2010, 12:44 #2
Как прописать не знаю но идею дам

нужно для начало определить самое большое число

как это зделать? первое число дапустим записать в переменную например в а!!!!
а потом сравнивать его со следующими и прописать условие если N(s) > a то а = N(s)
так провериться весь массив и найдёться самое большое!!! потом находиш именно тот индекс с большим числом , и пишеш условия заменить N(s) на 7 выполнять до того пока не достигнет самого большого числа!!!

если чемто помог то незачто))
0
Vadimshch
0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 3
24.12.2010, 12:47  [ТС] #3
Цитата Сообщение от nuSan Посмотреть сообщение
Как прописать не знаю но идею дам

нужно для начало определить самое большое число

как это зделать? первое число дапустим записать в переменную например в а!!!!
а потом сравнивать его со следующими и прописать условие если N(s) > a то а = N(s)
так провериться весь массив и найдёться самое большое!!! потом находиш именно тот индекс с большим числом , и пишеш условия заменить N(s) на 7 выполнять до того пока не достигнет самого большого числа!!!

если чемто помог то незачто))
у меня есть вот что


Private Sub Command1_Click()
Dim a() As Integer
Dim i, r, k, max, s As Integer
r = Val(InputBox("введите размер масива"))
ReDim a(1 To r)
For i = 1 To r
a(i) = Val(InputBox("введите " & Str(i) & " -й масива"))
Print a(i); " ";
Next i
k = 1
max a = a(1)
For i = 1 To r
If a(i) > maxa Then maxa = a(i): k = i
Next i


Print "все элименты до заменить на 7"; k
'Print
End Sub

Private Sub Command2_Click()
End

но я совсем не разбираюсь, нада както это доработать...
0
YuraAAA
1578 / 1319 / 282
Регистрация: 25.10.2009
Сообщений: 3,436
Записей в блоге: 2
24.12.2010, 18:59 #4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim n, B(), max, txt
n = InputBox("n"): ReDim B(1 To n)
For i = 1 To n
B(i) = Int(100 * Rnd - 50)
txt = txt & B(i) & " "
Next i
txt = txt & Chr(13)
max = B(1)
For i = 2 To n
If B(i) > max Then max = B(i)
Next i
i = 1
Do While B(i) <> max
B(i) = 7
i = i + 1
Loop
For i = 1 To n
txt = txt & B(i) & " "
Next i
MsgBox txt
Добавлено через 20 минут
P.S. Не плоди темы!
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.12.2010, 18:59
Привет! Вот еще темы с решениями:

Бейсик с массивами
помогите пожалуйста решить задачу....т.к. пока в информатике я практически...

Работа с массивами
Здравствуйте! Я разрабатываю программу для решения задач по теории упругости....

Работа с массивами
Кто может помочь в написании программы? Дан одномерный массив из N...

Работа с массивами
Ничего не знаю об этой программе, но нужен код. Задан массив А из m строк и...


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

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

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