Определить число строк матрицы, имеющих элементы больше единицы

@Apka · Регистрация: 10.12.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте. Возникла у меня проблема с Visual Basic, ввиду незнания оного (в школе проходил Pascal, в ВУЗе С++)

.
Прошу помощи у гуру сей среды программирования. Ваша помощь окажется неоценимой.
Вот задание:
1) Составить алгоритм и программу для вычисления и вывода на печать элементов матрицы Z(i)(j) по формуле
2) Определите число строк матрицы, имеющих элементы больше единицы.
С первым при помощи поиска кое-как разобрался и, можно сказать, уверен в нём, но вот со вторым...
Вот то, что я осилил:

Visual Basic
1
2
3
4
5
6
7
8
9
Private Function z_func(x As Double, y As Double) As Double
t = 1 + y * ln (Abs (y - x) )
If Not t = 0 Then
z_func = sqr(sqr( x + y ^ 2) ) - x * cos( y ) / t
Else
MsgBox "недопустимые значения x и y"
z_func = 0
End If
End Function

А на большее меня не хватило, ибо не могу осмыслить Basic

Добавлено через 3 минуты
Формулу забыл:

Zij = ( sqr(sqr( x + y ^ 2) ) - x * cos( y ) ) / ( 1 + y * ln (Abs (y - x) ) )
где i = 1, 2 ... 5 ; j = 1, 2 ... 4;

Добавлено через 22 минуты
И ещё забыл: там везде X(i) и Y(j)

@Апострофф · 11.12.2012, 09:25

2-я строка

Visual Basic
1
t = 1 + y * log (Abs (y - x) ) 'а не ln

4-я строка

Visual Basic
1
z_func = ( sqr(sqr( x + y ^ 2) ) - x * cos( y ) ) / t 'скобок не хватало, судя по Zij = ( sqr(sqr( x + y ^ 2) ) - x * cos( y ) ) / ( 1 + y * ln (Abs (y - x) ) )

SoftIce · 11.12.2012, 11:31

Не по теме:

Сообщение от Apka

не могу осмыслить Basic

Странно слышать от человека изучавшего Паскаль и С ++:(

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .