0 / 0 / 0
Регистрация: 09.12.2009
Сообщений: 18

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

24.05.2010, 22:56. Показов 1622. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите пож с задачей - решить двумерным массивом с использованием
Visual Basic
1
2
3
4
5
I = 1 ' Индекс
While1 Cells(N_Row, N_Col + I - 1) <> "" ' Пока не пусто
I = I + 1 ' Переходим к следующей ячейке
Wend ' Выходим из цикла, когда встретили «пустую» ячейку
N = I - 1 ' Т.е. заполненных — на 1 меньше
Условия:
В вещественной матрице A все отрицательные элементы, расположенные ниже побочной диагонали заменить нулями.

Прошу о срочной помощи! Сам в этом практически не разбираюсь =( - поэтому и обращаюсь к вам.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.05.2010, 22:56
Ответы с готовыми решениями:

Excel: в матрице все отрицательные элементы, находящиеся ниже побочной диагонали заменить нулями
Помогите пож - кто чем может - помощь нужна как можно скорей - буду в сети до позднего вечера. Условия задачи: в матрице все...

Отрицательные элементы матрицы, расположенные ниже побочной диагонали, заменить нулями
1.В вещественной матрице A все отрицательные элементы, расположенные ниже побочной диагонали заменить нулями. 2.Подсчитать количество...

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

1
58 / 57 / 13
Регистрация: 10.09.2009
Сообщений: 255
25.05.2010, 11:45
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Может так, я сам редко использую While
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
Sub Вайл()
 
Row = 4
Col = 4
 
N_Row = 1
N_Col = 1
 
N_Row = N_Row + 1
    While Cells(N_Row, N_Col) <> ""
    
        N_Col = Col + 2 - N_Row
        
        While Cells(N_Row, N_Col) <> ""
            If Cells(N_Row, N_Col) < 0 Then Cells(N_Row, N_Col) = 0
            N_Col = N_Col + 1
        Wend
        
        N_Row = N_Row + 1
        N_Col = 1
    Wend
    
End Sub
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
25.05.2010, 11:45
Помогаю со студенческими работами здесь

Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы
Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы размером 7x7.Не заменяя элементы 7-ой строки и 7-го...

Массив: Заменить нулями все элементы, расположенные на побочной диагонали и ниже ее матрицы
Создайте массив A с помощью генератора случайных чисел и выведите его на экран.Увеличте все его элементы в 2 раза. ...

В матрице все отрицательные элементы, стоящие на главной диагонали и ниже ее, заменить нулями
в матрице А(8,8) все отрицательные элементы, стоящие на глав¬ной диагонали и ниже ее, заменить нулями.

Заменить нулями все элементы матрицы, расположенные на побочной диаагонали и ниже ее.
Дана действительная квадратная матрица порядка 14. Заменить нулями все ее элементы, расположенные на побочной диаагонали и ниже ее.

Заменить нулями все элементы расположенные на побочной диагонали
const n=6; var a: array of integer; i,j: integer; begin writeln('Исходная матрица:'); for i:=1 to n do begin ...


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

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

Новые блоги и статьи
Инференс ML моделей в Java: TensorFlow, DL4J и DJL
Javaican 05.11.2025
Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .
Mapped types (отображённые типы) в TypeScript
Reangularity 03.11.2025
Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .
Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна
GameUnited 02.11.2025
Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .
Протоколы в Python
py-thonny 31.10.2025
Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .
C++26: Read-copy-update (RCU)
bytestream 30.10.2025
Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .
Изображения webp на старых x32 ОС Windows XP и Windows 7
Argus19 30.10.2025
Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .
Passkey в ASP.NET Core identity
stackOverflow 29.10.2025
Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .
Последние результаты исследования от команды MCM (октябрь 2025 г.)
Programma_Boinc 29.10.2025
Последние результаты исследования от команды MCM (октябрь 2025 г. ) Поскольку мы продолжаем изучать гены, которые играют ведущую роль в развитии рака, в рамках проекта "Картирование раковых. . .
Мысли в слух
kumehtar 29.10.2025
Обнаружил, что мысли лучше писать короткими фразами. Таким образом внимание читателя успевает охватить всю фразу сразу, за один раз, не соскакивая и не прерываясь. А если писать это длинным текстом,. . .
Побитовые операторы в Python
AI_Generated 28.10.2025
Побитовые операторы - это не реликт эпохи, когда каждый байт был на вес золота. Да, сейчас оперативка стоит копейки, но задачи изменились. Вместо экономии памяти приходится решать другие проблемы:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru