Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.02.2014, 01:22   #1
inflamedparadox
 
Регистрация: 25.11.2013
Сообщений: 5
По умолчанию найти произведение отрицательных элементов под главной диагональю

Матрица действительная квадратная 5x5
написал код, но он не работает.
Код:
D = 0
For i = 1 To 5
For j = 1 + i To 5
If A(i, j) < 0 Then 
  If D=0 then D=A(i, j) else D = D * A(i, j)
EndIf
Next j
Next i
Label1 = D

нужно найти произведение отрицательных элементов под главной диагональю, но у меня другое значение получается 4760640. верное значение= -149760. значит, код неправильный?
Помогите, пожалуйста, написать правильный код

Последний раз редактировалось inflamedparadox; 14.02.2014 в 01:40.
inflamedparadox вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Определить сколько элементов, стоящих под главной диагональю, отличны от нуля(паскаль) LiOne1 Паскаль, Turbo Pascal, PascalABC.NET 4 08.06.2013 17:15
Массив (С++). вычислить сумму и количество отрицательных елементов которые находятся под главной диагональю матрицы spinogryz_ua Помощь студентам 4 30.11.2012 11:29
Вычислить произведение элементов массива, расположенных под главной диагональю вася2342 Помощь студентам 1 06.06.2012 09:40
Дана квадратная матрица А порядка n. Найдите сумму положительных элементов матрицы, стоящих под главной диагональю (Паскаль) Вовик-вовик Помощь студентам 1 10.01.2012 21:48
Найти минимум из элементов над главной диагональю Mashinegunner Общие вопросы C/C++ 1 27.11.2009 23:40