Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Увеличить положительные элементы матрицы в 2 и 3 строках в 2 раза Дана квадратная матрица 3 порядка. Увеличить положительные элементы матрицы в 2 и 3 строках в 2 раза. Вывести на печать исходную и новую матрицу. https://www.cyberforum.ru/ qbasic/ thread424798.html QBasic Является ли вторая буква в слове гласной
Исходные данные: Произвольное слово Является ли вторая буква в этом слове гласной или нет Примечание: гласные а,е,и,о,у,ы,э,ю,я п.с. не понимаю как выделить вторую гласную
QBasic Калькулятор на QBasic: как быть с делением на ноль Помогите с дилением на ноль. Моё первое обучение CLS INPUT "Enter first value: ", c1 m1: INPUT "Enter operation(+,-,*,/) ", c2$ IF NOT ((c2$ = "+") OR (c2$ = "-") OR (c2$ = "*") OR (c2$ = "/")) THEN GOTO m1 INPUT "Enter second value ", c3 IF c2$ = "+" THEN c4 = c1 + c3 IF c2$ = "/" THEN c4 = c1 / c3 IF c2$ = "*" THEN c4 = c1 * c3 https://www.cyberforum.ru/ qbasic/ thread424696.html QBasic Отсортировать по убыванию элементы массива с нечетными номерами методом выбора дан целочисленный массив из a(n) отсортировать по убыванию элементы массива с нечетными номерами методом выбора в бейсике https://www.cyberforum.ru/ qbasic/ thread424538.html
Вычисление cos разложением в ряд QBasic
В математических познаниях имею пробелы, не могу разобраться с ограничением точности. Никому не попадалась такая задача? Помогите, пожалуйста:)
QBasic Подсчитать количество шипящих букв в слове 1)Задача: подсчитать количество шипящих букв в слове 2)Задача: В массиве из 10 элементов найти и отпечатать колличество и сумму элементов, значение которых больше последнего элемента массива. 3)Задача: Дана матрица 3 порядка. Уменьшить отрицательные элементы матрицы в 2,3 cтолбцах на 4 единицы. Вывести на печать исходную и новую матрицы https://www.cyberforum.ru/ qbasic/ thread424006.html
QBasic Элементы массива выше, ниже, на главной диагонали https://www.cyberforum.ru/ qbasic/ thread423387.html
На главной диагонали: a(i,i) или i=j Выше гл.диагонали: FOR i=1 TO n-1 FOR j=i+1 TO n Ниже главной диагонали: FOR i=2 TO n FOR j=1 TO i-1
QBasic Вычислить элемент матрицы А
Училась в школе давно. поступила в институт.Все ничего, но вот с бейсиком нелады, если с одномерными массивами худо-бедно справляюсь, то с двумерными просто беда, да еще с прибамбасами. Помогите составить программу и вывести на печать. Оформите задание как подобает
QBasic Для чётных элементов массива найти произведение, а для нечётных - среднее арифметическое https://www.cyberforum.ru/ qbasic/ thread422821.html
Дан массив Х(М). Для чётных элементов массива найти произведение, а для нечётных-среднее арифметическое знаение
QBasic Как определить математическое ожидание для элементов вектора Как определить математическое ожидание для элементов вектора? https://www.cyberforum.ru/ qbasic/ thread422570.html
Assembler вставки в QB QBasic
Искал я искал, да ничего того что нужно, все для Visual Basic, тут админ в некоторых темах мимолетом упоминал что для этого какие-то библиотеки нужно подгружать, но на этом не задерживался. Подскажите пожалуйста, как в QB вставлять ASM код? Т. е. аналог Pascal'евского asm ... end;
QBasic Вывести xi и yi в виде таблицы из двух колонок. Рассмотреть функцию Помогите пожалуйста составить блок-схему и текст программы Даны действительные числа a, b (a<b), натуральное число n, функция y=f(x), определенная на отрезке . Для значений аргумента xi = a+ih (i=0,1,2,…n), h=(b-a)/n вычислить yi=f(xi) (i=0,1,2,…n). Вывести xi и yi (i=0,1,2,…n) в виде таблицы из двух колонок. В i –тую строку таблицы заносятся соответствующие значения xi и yi. Рассмотреть... https://www.cyberforum.ru/ qbasic/ thread421628.html
6171 / 936 / 310
Регистрация: 25.02.2011
Сообщений: 1,367
Записей в блоге: 1
10.01.2012, 13:50 0

Вычислить сумму и количество положительных и отрицательных элементов массива - QBasic - Ответ 2371821

10.01.2012, 13:50. Показов 1204. Ответов 3
Метки (Все метки)

Ответ

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DIM a(20)
RANDOMIZE TIMER
n = 20
FOR i = 1 TO n
a(i) = INT(RND * 21 - 10)
NEXT i
 
so = 0: sp = 0
ko = 0: kp = 0
 
FOR i = 1 TO n
SELECT CASE SGN(a(i))
CASE -1: ko = ko + 1: so = so + a(i)
CASE 1: kp = kp + 1: sp = sp + a(i)
END SELECT
NEXT i
CLS
PRINT "kol-vo pol:"; kp, "summa pol:"; sp
PRINT "kol-vo otr:"; ko, "summa otr:"; so
Добавлено через 3 часа 24 минуты
Цитата Сообщение от Коровьев Посмотреть сообщение
PureBasic
1
2
IF d(i)=0 THEN o=o+0
IF d(i)>0 THEN p=p+1 ELSE o=o+1
У Вас здесь ошибка, программа будет считать и положительные и неположительные (отрицательные и равные нулю)
o=o+0 вообще нет смысла делать

лучше так:
PureBasic
1
2
IF d(i)<0 THEN o=o+1
IF d(i)>0 THEN p=p+1
или так
PureBasic
1
IF d(i)<0 THEN o=o+1 ELSE IF d(i)>0 THEN p=p+1


Вернуться к обсуждению:
Вычислить сумму и количество положительных и отрицательных элементов массива QBasic
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2012, 13:50
Готовые ответы и решения:

Вычислить сумму и количество положительных и отрицательных элементов массива
Обработать на компе одномерный массив D(N): вычислить сумму и количество положительных и...

Вычислить сумму и количество положительных, сумму и количество отрицательных элементов массива
Помогите пожалуйста сдалать следующие 2 задачи : 1)вычислить сумму и количество положительных,...

Вычислить сумму и количество положительных, произведение и количество отрицательных элементов массива
Дан целочисленный массив размера N. Вычислить сумму и кол-во положительных, произведение и кол-во...

Массивы: вычислить сумму положительных и количество отрицательных элементов массива
Здравствуйте. Столкнулся с проблемой, нужно вычислить сумму положительных и количество...

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

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

Вычислить сумму отрицательных, произведение положительных и количество нулевых элементов массива с нечетными индексами.
Народ выручайте :D у меня заходы уже. задачка с одномерным массивом. Вычислить сумму...

Дан массив Х(100). Вычислить сумму и количество положительных и отрицательных элементов массива, если -1xi1
Дан массив Х(100). Вычислить сумму и количество положительных и отрицательных элементов массива,...

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

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