Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 6

Как сравнить все числа каждой строки матрицы с заданным числом? VB 6.0

17.12.2009, 00:15. Показов 2823. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Даны натуральное число n, действительное число х, действительная матрица размера n х 2n .Получить последовательность b(1), ... , b(n) из нулей и единиц, где b(i)=1, если элементы i-ой строки матрицы не превосходят х и b(i)=0 в противном случае.
Помогите решить эту задачу если есть такая возможность =) Заранее спасибо.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.12.2009, 00:15
Ответы с готовыми решениями:

Сравнить строки каждой матрицы
даны 2 массива сравнить строки каждрй матрицы если 1-й элемент 1-го массива больше чем у 2-го то нужно записать ее как 1а если меньше то 0,...

Сравнить набор чисел с заданным числом
Даны целые числа K, N и набор из N целых чисел. Если в наборе имеются числа, меньшие K, то вывести True; в противном случае вывести False. ...

Как разбить папку c N-ным количеством PDF-документов на папки с заданным числом файлов, одинаковым для каждой?
Помогите пожалуйста составить скрипт, для разбития папки, или может кто знает программу для таких действий, ситуация проста Приходит...

6
 Аватар для BasicMan
19318 / 2625 / 84
Регистрация: 17.02.2009
Сообщений: 30,364
17.12.2009, 00:44
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim n as integer, x as double, arr() as double, flg as boolean, b() as byte
n=inputbox("NNN")
x=inputbox("XXX")
redim arr(1 to n,1 to 2*n)
redim b(1 to n)
for i=1 to n
flg=false
for j=1 to 2*n
arr(i,j)=inputbox("ARRAY")
if arr(i,j)<=x then flg=true
next j
b(i)=abs(flg)
next i
 
for i=1 to n
msgbox b(i)
next i
1
0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 6
17.12.2009, 01:39  [ТС]
Большое тебе спасибо) Но у меня как у полного чайника возникли некоторые вопросы... Что означают записи:
1. flg As Boolean
2. flg = False
3. b(i) = Abs(flg)
Кароче что такое есть етот flg?
и еще, как можно сделать чтобы результат выводился в текстовое окно? а то я попробовал так сделать но у меня почему то выводится слегка не то что нужно) еще раз спс =)
0
 Аватар для BasicMan
19318 / 2625 / 84
Регистрация: 17.02.2009
Сообщений: 30,364
17.12.2009, 01:52
Цитата Сообщение от chopp Посмотреть сообщение
Кароче что такое есть етот flg?
эт переменная так обозвана, можно было назвать например так
Visual Basic
1
2
3
что_такое_есть_етот_flg As Boolean 
что_такое_есть_етот_flg = False
b(i) = Abs(что_такое_есть_етот_flg)
1
0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 6
17.12.2009, 02:01  [ТС]
да в принципе я так и думал, я имел ввиду в моей задаче что обозначает эта переменная? и что это за тип такой boolean? про такой не слышал можно ли его заменить на тот же integer? и что значит flg = False , b(i) = Abs(flg)?
0
 Аватар для BasicMan
19318 / 2625 / 84
Регистрация: 17.02.2009
Сообщений: 30,364
17.12.2009, 02:22
держи кусок МСДН про булевый тип данных
Boolean Data Type (Visual Basic)
Holds values that can be only True or False. The keywords True and False correspond to the two states of Boolean variables.
Use the Boolean data type to contain two-state values such as true/false, yes/no, or on/off.
The default value of Boolean is False.

Type Conversions

When Visual Basic converts numeric data type values to Boolean, 0 becomes False and all other values become True. When Visual Basic converts Boolean values to numeric types, False becomes 0 and True becomes -1.

When you convert between Boolean values and numeric data types, keep in mind that the .NET Framework conversion methods do not always produce the same results as the Visual Basic conversion keywords. This is because the Visual Basic conversion retains behavior compatible with previous versions. For more information, see Troubleshooting Data Types.

Programming Tips
  • Negative Numbers. Boolean is not a numeric type and cannot represent a negative value. In any case, you should not use Boolean to hold numeric values.
  • Type Characters. Boolean has no literal type character or identifier type character.
  • Framework Type. The corresponding type in the .NET Framework is the System.Boolean structure.

Example
In the following example, runningVB is a Boolean variable, which stores a simple yes/no setting.


Visual Basic
1
2
3
4
5
Dim runningVB As Boolean
' Check to see if program is running on Visual Basic engine.
If scriptEngine = "VB" Then
    runningVB = True
End If
http://msdn.microsoft.com/en-u... 80%29.aspx


Добавлено через 1 минуту
а про
Цитата Сообщение от chopp Посмотреть сообщение
Abs
здесь почитай Краткие описания основных функций и команд VB
как раз для тебя

Цитата Сообщение от chopp Посмотреть сообщение
про такой не слышал
ну я тож много про чо не слышал

Цитата Сообщение от chopp Посмотреть сообщение
можно ли его заменить на тот же integer?
можно, но меняй без меня
1
0 / 0 / 0
Регистрация: 17.12.2009
Сообщений: 6
17.12.2009, 02:25  [ТС]
Ладно спасибо большое =)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
17.12.2009, 02:25
Помогаю со студенческими работами здесь

Построить массив, каждый элемент - разность между данным числом и средним арифметическим каждой строки матрицы
2.Дана прямоугольная матрица и произвольное число. Построить массив, каждый элемент которого есть разность между этим числом и средним...

Найти в файле все строки-омонимы; подсчитать в каждой строке число символов, совпадающих с заданным
Подскажи команду для извлечения i-ой строки из файл, пожалуйста. А вообще задание такое: Написать shell-процедуру,которая: в заданном...

Сравнить все числа относительно главной диагонали матрицы
у меня дан квадратный двумерный массив, и мне надо сравнить все числа относительно главной диагонали, вот часть кода, здесь я именно...

Заменить все элементы матрицы, меньшие заданного числа, этим числом
Дана последовательность целых чисел. Заменить все элементы, меньшие заданного числа, этим числом. для двумерного массива

Все элементы каждой строки матрицы поделить на максимальный по модулю элемент этой строки
Нормировать матрицу так, чтоб все элементы каждой строки матрицы были поделены на максимальный по модулю элемент этой строки. Реализовать в...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru