QBasic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
QBasic Найти максимальный и минимальный элементы матрицы и вычислить сумму элементов 2. Дана матрица целых чисел размером nхm. Найти максимальный и минимальный элементы матрицы и вычислить сумму элементов матрицы, расположенных между найденными элементами. https://www.cyberforum.ru/ qbasic/ thread1453436.html	В исходной строке b$ определить количество слов, заканчивающихся заданным символом x$ QBasic 1. В исходной строке b$ определить количество слов, заканчивающихся заданным символом x$.
QBasic Поменять местами столбцы матрицы с номерами K1 и K2 https://www.cyberforum.ru/ qbasic/ thread1452323.html Дана матрица размера M×N и целые числа K1 и K2 (1≤K1<K2≤N). Поменять местами столбцы матрицы с номерами K1 и K2.	QBasic Перевод из Pascal в QBasic https://www.cyberforum.ru/ qbasic/ thread1452311.html const n=7; type Tmatrix=array of integer; var a:Tmatrix; i,j,f,k,max,imax:integer; z:boolean; begin randomize;
Произвольный рисунок на свободную тему QBasic По вводимой цифре в одной из областей (четверти) экрана появляются изображения ( 1. программа вложенные циклы; 2. программа рисования дуг и овалов (бабочка, стрекоза); 3. сосновый бор; 4. произвольный рисунок на свободную тему.	QBasic Перевести с Pascal в QBasic var A: array of integer; M, N, i, j: byte; begin write('M = '); readln(M); write('N = '); readln(N); for i := 1 to M do //строки https://www.cyberforum.ru/ qbasic/ thread1451356.html
QBasic Вычислить сумму элементов столбца номер Т матрицы 3 задача: Вычислить сумму элементов столбца номер Т матрицы. Спасибо заранее если это возможно хотя бы пару задач.а то сессия на носу а что то нифига не понимаю! https://www.cyberforum.ru/ qbasic/ thread1450966.html	Вычислить сумму элементов вектора, имеющих индексы следующей последовательности QBasic 2 задача: Вычислить сумму элементов вектора, имеющих индексы следующей последовательности: 3,6,9,12,....,N
QBasic Вычислить количество, сумму и среднее арифметическое чисел последовательности Добрый день! нужны задачки в Qbasic. 1 задача: Вычислить количество, сумму и среднее арифметическое чисел последовательности F, расположенных в интервале от числа номер N1 до числа номер N2 и делящихся без остатка на одно из нечетных чисел: 5,7,9,11.... https://www.cyberforum.ru/ qbasic/ thread1450964.html	QBasic Можно ли поменять местами два соседних элемента одномерного массива не используя оператор SWAP ? https://www.cyberforum.ru/ qbasic/ thread1449381.html можно ли обойтись без SWAP, если я хочу поменять местами элементы?
QBasic Несколько начальных матриц, перемножить и получить комплексную матрицу добрый день! конечно,знаю, что бэйсик не предназначен для такого, но деваться некуда - приходится реализовывать в нем. не вдаваясь в подробности моего задания - имеется несколько начальных матриц, которые необходимо перемножить и получить матрицу Mwr2,которая комплексная. а затем, возвести ее в степень s=10. ввела обозначения реальной и мнимой части. вроде как даже нашла эл-ты матрицы Mwr2, но...	QBasic Найти минимальный и максимальный элемент матрицы Найти минимальный и максимальный элемент матрицы С. Заменить ими элементы строки и столбца, в которых они расположены соответственно. Элемент на пересечении этих столбцов обнулить. Препод говорит, что найти max и min надо в одном цикле, не представляю как это сделать:cry: А с заменой и т.д. вообще не представляю как бороться:cry: Помогите запилить прогу пожалуйста:senor::thank_you: https://www.cyberforum.ru/ qbasic/ thread1446876.html

ZX Spectrum-128

6806 / 4565 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

24.05.2015, 11:08

Определить суммы четных, нечетных, положительных и отрицательных элементов исходного массива X(n) - QBasic - Ответ 7660344

24.05.2015, 11:08. Показов 1070. Ответов 1

Метки (Все метки)

Сообщение было отмечено Kefer как решение

Решение

QBasic/QuickBASIC

DEFINT I-K, M-N, X-Y
CLS
INPUT "M = "; m
 
OPTION BASE 1
DIM x(m)
 
RANDOMIZE TIMER
 
kp=0
kc=0
kn=0
ko=0
 
FOR i = 1 TO m
  x(i) = 33 * RND - 16
  PRINT USING "####"; x(i);
  IF x(i)>0 THEN kp=kp+x(i)
    IF x(i)<0 THEN ko=ko+x(i)
    IF x(i) MOD 2<>0 THEN kn=kn+x(i)
    IF x(i) MOD 2=0 THEN kc=kc+x(i)       
NEXT i
PRINT
PRINT "Polozhitelnyh: ",kp
PRINT "Otrizatelnyh: ",ko
PRINT "Nechetnyh: ",kn
PRINT "Chetnyh: ",kc
SLEEP
END

Вернуться к обсуждению:
Определить суммы четных, нечетных, положительных и отрицательных элементов исходного массива X(n) QBasic

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.05.2015, 11:08

Готовые ответы и решения:

Определить для массива алгебраические суммы четных и нечетных элементов
Доброго времени суток. Прошу помочь с написанием 2-ух программ для qBasic по Массивам. 1....

Нахождение суммы (количества) элементов массива стоящих на четных (нечетных) местах
Нужна помощь в составлении программ нахождение суммы (количества) элементов массива стоящих на...

Определить произведения положительных и отрицательных элементов массива X(n)
Массивы Задача 1. Определить произведения положительных и отрицательных элементов массива X(n)....

Определить номера отрицательных элементов одного массива и произведение положительных элементов второго
ввести два массива длиной 8. Определить номера отрицательных элементов одного массива и...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

24.05.2015, 11:08

Помогаю со студенческими работами здесь

Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов, то заменить все положитьные элементы на нули.
нужна помощь, не понимаю как сделать:( Дан массив F1,...,F20.Если модуль суммы положительных...

Определить сумму положительных и произведение отрицательных элементов массива
Задача 1. Определить сумму положительных и произведение отрицательных элементов массива X(n)....

Определить сумму отрицательных и количество положительных элементов массива X(n)
4.1 Определить сумму отрицательных и количество положительных элементов массива X(n). Вывести...

Определить количество положительных и количество отрицательных элементов массива
Определить количество положительных и количество отрицательных элементов массива

Наверх