Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Найти и вывести на экран минимальный элемент матрицы и его номер
Помогите, пожалуйста!!!!!!!!!!!!! 1)Дана матрица (n,n). найти и вывести на экран минимальный элемент и его номер. 2) Дан одномерный массив А(n). составить новый массив B(n) из элементов А(n). ... на форуме подобные задачи уже обсуждались попробуйте сами составить решение и выложить его здесь. и тогда я разберу с вами ошибки
VBA Создать массив https://www.cyberforum.ru/ vba/ thread84721.html
Создать новый массив, состоящий из элементов исходного массива, в котором все элементы массива, равные максимальному значению, заменены на среднее арифметическое значение. Помогите решить. Массив...
VBA массивы
Варианты 2 и 6. Знаю FoxPro, С++, а с VBA никак не могу разобраться. Срочно нужна помощь, вопрос отчисления из универа. Пожалуйста, помогите, чем сможете! 2) В массиве из 10 целых чисел найти наименьший элемент и поменять его местами с последним элементом min=1 for i=2 to 10 if a(i) < a(min) then min=i next i tmp=a(min) a(min)=a(10) a(10)=tmp...
VBA Пытаюсь разобраться в задании https://www.cyberforum.ru/ vba/ thread84532.html
Помогите пожалуйста разобраться в задании лабораторной работы: В соответствии с вариантом задания к лаб.раб. №2 создайте пользовательскую форму, с помощью которой можно вычислить значение функции... Не понимаю, что такое "Log1 = 32 <= 32", какую роль здесь играет "<="? Что такое "Log2 = Log1 Or (4 * 5 = 30)"? Зачем писать "4 * 5 = 30", если 4*5=20? Или тут другой смысл? Зачем писать "Log3...
VBA Линейные алгоритмы
Написать задачу по формуле: если а в ячейке А1 b в ячейке А2 то в ячейке А3 пишем =КОРЕНЬ(ABS(TAN(RC+СТЕПЕНЬ(RC;5))))-СТЕПЕНЬ(RC-1;RC)
VBA По заданным координатам двух точек на плоскости определить, какая из них находится ближе к началу координат
Написать программу, которая по заданным координатам двух точек на плоскости определяет, какая из них находится ближе к началу координат. Написать программу, которая по заданным координатам двух точек на плоскости определяет, какая из них находится ближе к началу координат. а в чем конкретно сложность?
VBA Два оператора On Error GoTo в одном макросе не срабатывают Всем доброе время суток ! Макрос On Error GoTo metkaopen Workbooks("Книга2.xls").Activate GoTo metkadalee metkaopen: Set wb1 = Workbooks.Open(Filename:=ThisWorkbook.Path &... Если в процедуре будут 2 обработчика ошибок, то как ей выбрать из них нужный? Получается, что процедура берёт самый первый обработчик ошибок.Вовсе нет, лично у меня выбирает последний (т.е. тот, что... https://www.cyberforum.ru/ vba/ thread85264.html VBA [Microsoft Word] Cкрипт замены жирных, состоящих из заглавных букв, слов. У меня есть файл где встречаются слова, выделенные жирным шрифтом и состоящие из заглавных букв. Жирный шрифт также встречается в среди слов написанных не из заглавных букв или с одной заглавной, но... Newb, в выходные помогу, сейчас неохото. Те слова, которые заглавными буквами, что с ними, как их сделали заглавными? Тут есть 2 варианта: Формат - Шрифт. Формат - Регистр. https://www.cyberforum.ru/ vba/ thread85204.html
VBA Работа с двумя массивами Ребят, Здраствуйте. И Помогите или подскажите куда капать :) Есть 2 массива один 5 чисел (вводиться в ручную). второй 9 чисел (вводиться в ручную). ... Ну дык возьми и перебери 5 + 9 чисел) допустим массивы A(i) и B(i) max = A(1) For i = 2 to 5 if A(i)>max then max = A(i) end if next i for i = 1 to 9 if B(i)>max then max = B(i) https://www.cyberforum.ru/ vba/ thread84841.html VBA Условный оператор Написать задачу по формуле - в 2003: https://www.cyberforum.ru/ vba/ thread84996.html
VBA Количество элементов каждой строки матрицы
Вычислить следующие величины в матрице размерностью 6x6 -45,927 2,824 30,371 -43,561 -34,22 13,27 -17,765 -12,784 -16,814 14,166 36,325... только мне две кнопки надо сделать... какие? этот код https://www.cyberforum.ru/vba/thread85088.html#post475350 в одну кнопку а что во второй?
VBA Вычислить площадь треугольника Написать программу, которая вычисляет площадь треугольника через две его стороны ( и ) и угол между этими сторонами . А1 - первая сторона А2 - вторая сторона А3 - угол в радианах А4 - =0,5*RC*RC*SIN(RC) площадь https://www.cyberforum.ru/ vba/ thread85048.html
Asgard's resident
91 / 88 / 10
Регистрация: 03.12.2009
Сообщений: 175
14.01.2010, 13:15 0

Для элементов главной диагонали меньших нуля, вывести максимум элементов строки, где элемент расположен - VBA - Ответ 478663

14.01.2010, 13:15. Показов 1442. Ответов 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
Sub dd()
Dim a() As Integer
Dim max As Single
Dim min As Single ' зачем эта переменная?
Dim n as integer, i as integer, j As Integer ' так все 3 переменные имеют тип integer  а в предыдущем варианте n, i были типа variant 
n = InputBox("razmer massiva")
ReDim a(n, n)
'тут надо заполнить массив пробежавшись по всем его элементам в циклах, например так:
For i = 1 To n
For j = 1 To n
a(i,j) = cells(i,j).value 'заполняем массив числами с листа эксель
Next j
Next i
 
For i = 1 To n ' если вы хотели здесь пробежаться в цикле по элементам главной диагонали то тут ошибка, вы пробегаетесь по всем элементам матрицы, на главной диагонали элементы a(i,i) то есть индекс строки и столбца одинаковый
For j = 1 To n
If a(i, j) < 0 Then
' тут должно быть написано что будет выполнятся когда верно условие If a(i, j) < 0
'я предлагаю сюда вставить кусок по поиску максимума в строке
End If
Next j
Next i
For i = 1 To n ' тут происходит просто поиск максимумов во всех строках! правильнее было бы при 'нахождении отрицательного элемента главной диагонали(это есть выше) сразу искать в строке 'максимум
max = a(i, 1)
For j = 1 To n
If a(i, j) > max Then  'тут я просто исправил заменив ненужную переменную min нужной переменной max)
max = a(i, j) 
Next j
Next i
End Sub
Дерзайте, задавайте вопросы)

Вернуться к обсуждению:
Для элементов главной диагонали меньших нуля, вывести максимум элементов строки, где элемент расположен VBA
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
14.01.2010, 13:15
Готовые ответы и решения:

Для элементов главной диагонали, меньших нуля, вывести сумму элементов строки, где элемент расположен
В данной действительной квадратной матрице порядка N*N. Найти: для элементов главной диагонали, меньших нуля, вывести сумму элементов...

Для элементов главной диагонали, больших нуля, вывести максимум элементов строки, где элемент расположен
В данной действительной квадратной матрице порядка N*N. Найти: для элементов главной диагонали, больших нуля, вывести максимум элементов...

Для элементов главной диагонали, меньших нуля, вывести минимум элементов столбца, где этот элемент расположен
В данной действительной квадратной матрице порядка N*N. Найти: для элементов главной диагонали, меньших нуля, вывести минимум элементов...

3
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.01.2010, 13:15
Помогаю со студенческими работами здесь

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

Для элементов побочной диагонали, меньших нуля, найти сумму элементов столбца, где этот элемент расположен
Задание: Для элементов побочной диагонали, меньших нуля, найти сумму элементов столбца, где этот элемент расположен. Основу я сделал но...

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

Найти среднее арифметическое положительных элементов строки матрицы, в которой расположен min элемент главной диагонали
Помогите пожалуйста решить следующую задачу:

Заменить каждый элемент главной диагонали матрицы суммой элементов строки и столбцов, где он находится
Ребят, экзамен! Помогите!!! В заданной квадратной матрице A (K&lt;=10) заменить каждый элемент главной диагонали суммой элементов строки...

0
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru