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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Опции темы