Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Матрица: Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив Подскажите пожалуйста, как это решается? Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив С подряд с конца. Заранее спасибо. https://www.cyberforum.ru/ visual-basic/ thread849268.html VB Разбить исходное слово на группы символов (букв)
Имеется исходный набор символов (слово), который необходимо разбить на несколько слогов (групп символов), отсчитывая от начала слова и так далее по порядку. Подскажите функцию?
VB Найдите индексы минимального значения массива В двумерном массиве, заполнена случайными числами из отрезка , размером 5x4. Найдите индексы минимального значения. https://www.cyberforum.ru/ visual-basic/ thread849044.html VB Сохранение данных комбобокса при закрытии приложения Ребята подскажите пожалуйста, как кодом можно, занести в комбобокс данные и что бы сохранялась вся информация, при следующей загрузки формы, пример приложил https://www.cyberforum.ru/ visual-basic/ thread848802.html
Вывести все гласные буквы, которые встречаются хотя бы в одном слове и все согласные, которые входят только в одно слово VB
Дан текст на английском языке, оканчивающийся точкой. Вывести на экран все гласные буквы, которые встречаются хотя бы в одном слове; все согласные, которые входят только в одно слово.
VB Поиск словосочетания в строке здравствуйте возможно я не корректно скажу но очень нужна помощь с VB, такое задание список учеников(фамилия, имя, год рожения),данные для различных учеников разделяютя ";" различные сведения о ученике пробелами, нужно составить список с определенным именем и годом рождения( эти данные вводятся пользователем) https://www.cyberforum.ru/ visual-basic/ thread848568.html
VB Игра "Угадай число" - добавить кнопку новой игры https://www.cyberforum.ru/ visual-basic/ thread848535.html
ребят, а не знаю как добавить кнопку*Новая игра* к этой проге.
Найдите количество отрицательных чисел одномерного массива VB
Найдите количество отрицательных чисел одномерного массива размером 30 элементов заполненного случайными числами из отрезков
VB Создание папки и файла используя переменную в строке адреса Здравствуйте все! Подскажите как в VB6 создать папку, а в ней файл с использованием переменной, содержащей название файла. Код примерный : papka= Combo1.List(3) 'какое нибудь слово file= Combo2.List(1) puth="D:\" & papka & "\" & file".txt" 'или 'putkfaily = "D:\coordinat\" & Combo1.List(m) & "\" & Combo2.List(k) & ".txt" и как далее открыть это и закрыть? https://www.cyberforum.ru/ visual-basic/ thread848244.html VB Дан массив целых чисел. Найти номер последнего отрицательного числа или напечатать "Отрицательных чисел нет!" Доброго времени суток! Дан массив целых чисел - A={ai}, где i={1,2...n}. Найти номер последнего отрицательного числа или напечатать "Отрицательных чисел нет!" Например: Если А={2,4,-3,0,5,-2,5} , то результат:6 (число -2) https://www.cyberforum.ru/ visual-basic/ thread847950.html
VB На отрезке с шагом вычислить и округлить функцию. Найти наибольшее значение
На отрезке с шагом h=0,5 вычислить и округлить функцию y=6cos(3x+k)-2sin3x. Найти наибольшее cos(y). Например при k=4,18 y=-4,1; y=-1,9; y=3,8; y=2,4; y=-3,5; y=-2,9; y=3,1. Наибольшее=-0,323
VB В веденном пользователем предложении удалить избыточные пробелы https://www.cyberforum.ru/ visual-basic/ thread847947.html
В веденном пользователем предложении удалить избыточные пробелы, так что-бы между словами оставался ровно один пробел.
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
26.04.2013, 18:44 0

Определить сколько чисел меньше K, равно K и больше K - VB - Ответ 4475759

26.04.2013, 18:44. Показов 1656. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено The trick как решение

Решение

Вторая задача:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim n As Integer, m() As Integer
n = InputBox("n")
ReDim m(n, n)
For i = 1 To n
For j = 1 To n
 If i = j Then
  m(i, j) = n + 1 - i
 Else
  m(i, j) = 0
 End If
Print m(i, j); " ";
Next j
Print
Next i
Добавлено через 10 минут
Первая задача, только числа целые взял, а не вещественные:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Form1.Cls
Dim n As Integer, k As Single, m%, b%, r%, ma() As Single
n = InputBox("n")
k = InputBox("k")
ReDim ma(n)
For i = 1 To n
 ma(i) = Rnd(1) * 10 \ 1
 If ma(i) < k Then m = m + 1
 If ma(i) = k Then r = r + 1
 If ma(i) > k Then b = b + 1
 Print ma(i); " ";
Next i
Print
Print "<"; m
Print ">"; b
Print "="; r


Вернуться к обсуждению:
Определить сколько чисел меньше K, равно K и больше K VB
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2013, 18:44
Готовые ответы и решения:

Сколько введено чисел больше 7 и сколько меньше
Вводится последовательность не нулевых чисел , 0 - конец последовательности , сколько введено чисел...

Определить сколько чисел больше или равно А, но меньше В
Задана матрица М(3,4) Определить сколько чисел больше или равно А, но меньше В находится в первом...

Определить, сколько чисел последовательности меньше K, равно K и больше K
Задана последовательность из N вещественных чисел. Определить сколько чисел меньше K, равно K и...

Определить, сколько элементов массива больше х, меньше х и равно х
Ввести массив d, d, ..., d вещественного типа и вещественное число х. Определить, сколько элементов...

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

Определить сколько элементов массива меньше K, равно K и больше K
Задана последовательность из N вещественных чисел. Определить сколько чисел меньше K, равно K и...

Определить, сколько элементов массива больше, меньше и равно заданному числу
Ввести массив d, d, ..., d вещественного типа и вещественное число х. Определить, сколько элементов...

Задан массив из n вещественных чисел. Определить, сколько чисел равны k, меньше k, больше k
Задан массив из n вещественных чисел. Определить, сколько чисел равны k, меньше k, больше k

Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры: а больше или равно 0 и меньше или равно 50)
Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры: а больше или...

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