Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Ошибочка вышла при работе с матрицами Нужно создать вектор-столбец из частного максимальных элементов строк и столбцов соответственно. Выдает деление на ноль, хотя нулей нет. Что это мб? Private Sub Command1_Click() Dim A(1 To 100, 1... https://www.cyberforum.ru/ visual-basic/ thread799566.html VB вычислить значение
Дано натуральное число m, действительные числа с1 и с2 .... сm. Вычислить sqr(abs(c1 + c2......cm)) не имею понятия как задать масив написать код
VB Хочу написать простейшею программу по тестированию на отказ сетевого оборудования(Маршрутизаторов и коммутаторов). С чего начать? https://www.cyberforum.ru/ visual-basic/ thread799487.html
на работе поставили задачу протестировать на отказ сетевое оборудование (маршрутизаторы и коммутаторы) которое в скором времени будут закуплены. Так как у нас проходят первичное испытание этого...
VB Где ошибка? https://www.cyberforum.ru/ visual-basic/ thread799373.html
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileC" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long MkDir "C:\tmp" С =...
VB Как скрыть форму, но не закрыть её?
Форма должна быть скрыта, а при некоторых условиях должна быть открыта, при этом программа должна работать всё время сеанса на компе.
VB Как изменить текст в файле .txt? https://www.cyberforum.ru/ visual-basic/ thread799257.html
Private Sub Form_Load() If Dir$("C:\tmp\amd.txt", vbNormal) = "" Then Dim f As Integer f = FreeFile Open "C:\tmp" & "\amd.txt" For Output As f Print #f, Date Print #f, Time Close f End If...
VB Создание файла .txt и как сделать так чтоб он не изменялся при каждом запуске программы? Private Sub Form_Load() Dim f As Integer f = FreeFile Open "C:\tmp" & "\amd.txt" For Output As f Print #f, Date Print #f, Time Close f End Sub Так я создал файл, но при каждом запуске... https://www.cyberforum.ru/ visual-basic/ thread799228.html Поиск текста в файле с последующей вставкой новых значений VB
Необходимо составить программу, для поиска в обычном текстовом файле, и последующей вставки. Программа должна находить значение выбранное в листбоксе, в текстовом файле, затем вставлять все что идет...
VB КАК упорядочить? https://www.cyberforum.ru/ visual-basic/ thread798713.html
Как провести заданное упорядочение каждого второго значения X по убыванию ,а остальные по возростанию? Private Sub Command1_Click() Dim A(1 To 100, 1 To 100) As Double Dim x(1 To 100) Dim i, j As...
VB Дано натуральное число, определить входит ли число a в число b https://www.cyberforum.ru/ visual-basic/ thread798711.html
Private Sub Command1_Click() Dim c As Long Dim x As Double Dim a As Byte c = Val(Text1.Text) a = Val(Text2.Text) k = True Do While c >= 1 x = c Mod 10 If x = a Then k = False: MsgBox...
VB Работа с матрицами (ВБ 6.0 для Вин7)
Доброе утро/день/вечер/ночь :) Необходимо решить 3 задачи...(2,3,4)(желательно с комментами около функций) Код к 1 задаче(2 часть - танцы с бубнами для скролла пикчебокса) Private Sub...
VB Упростить программу Ребят помогите пожалуйста нужно упростить программу,нужно убрать 72 вариант из программы вообще))Оставив только двадцать второй) https://www.cyberforum.ru/ visual-basic/ thread798516.html
2842 / 774 / 41
Регистрация: 20.05.2012
Сообщений: 2,056
05.03.2013, 08:01 0

Как выяснить сколько положительных элементов содержит матрица Aij где i , j = 1,.,N, Aij = sin ( i + j/2) - VB - Ответ 4212804

05.03.2013, 08:01. Показов 1233. Ответов 1
Метки (Все метки)

Ответ

Цитата Сообщение от dimas1234 Посмотреть сообщение
Дано натуральное число N. Выяснить сколько положительных элементов содержит матрица Aij где i , j = 1,.......,N
Aij = sin ( i + j/2)
Если правильно понял, то, возможно, так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function CountAij(ByVal N) As String
Dim c, dc, i, j
    For i = 0 To N
      If i Mod 1000 = 0 Then DoEvents
      For j = 0 To N
        If i Mod 1000 = 0 Then DoEvents
        If Sin(i + j / 2) > 0 Then
          c = c + 1
'         Debug.Print c & " " & Sin(i + j / 2)
        Else: dc = dc + 1
        End If
      Next j
    Next i
CountAij = c & " положительных" & _
                vbNewLine & _
          dc & " отрицательных"
MsgBox CountAij, vbInformation, _
    "Элементов в ряду Sin(i + j / 2) при N=" & N
End Function
Вызов с нужным параметром N:
?CountAij(1000)
500858 положительных
501143 отрицательных

Добавлено через 6 минут
Очепятка в 6 строке, правильно
If j Mod 1000 = 0 Then DoEvents

Вернуться к обсуждению:
Как выяснить сколько положительных элементов содержит матрица Aij где i , j = 1,.,N, Aij = sin ( i + j/2) VB
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2013, 08:01
Готовые ответы и решения:

Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица {aij} i, j = 1, …, n, если aij = sin(i+j/2)
Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица {aij} i, j =...

Выяснить, сколько положительных элементов содержит массив A[1..n, 1..n], если aij = sin(i+j/2).
Дано натуральное число n. Выяснить, сколько положительных элементов содержит массив A, если aij =...

Сколько положительных элементов содержит матрица aij = sin(i+j/2)
Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица i, j = 1, …,...

Найти, сколько положительных элементов Np4 содержит матрица {aij }
Найти, сколько положительных элементов Np4 содержит матрица {aij }, где i = j = 1, ..., 5, в...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2013, 08:01
Помогаю со студенческими работами здесь

Таблицы aij где Aij = sin (i + j)
Дано натуральное число n. Определить количество положительных и отрицательных элементов таблицы...

Выяснить, сколько положительных элементов содержит матрица
Дано натуральное число n.выяснить сколько положительных элементов содержит матрица . I=1...n, j=1…n...

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

Выяснить, сколько положительных элементов содержит матрица
Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица ij=1,...,n,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru