QBasic

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

Войти

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

Другие темы раздела
QBasic Подсчитать количество элементов массива, удовлетворяющих условию Дан массив R (N,М). Подсчитать количество элементов массива, удовлетворяющих условию I R(I, J) I < 8, среди этих элементов найти максимальный. https://www.cyberforum.ru/ qbasic/ thread719500.html	Найти все тройки элементов массива, сумма которых равна К и подсчитать число таких троек QBasic Дан массив, состоящий из 20 элементов. Найти все тройки элементов массива, сумма которых равна К и подсчитать число таких троек.
QBasic Определить минимальный радиус окружности с центром в начале координат https://www.cyberforum.ru/ qbasic/ thread719287.html В одномерном массиве с четным количеством элементов (2n) находятся координаты n точек плоскости. Они располагаются в следующем порядке: x1, y1, x2, y2, x3, y3 и т.д. Определить минимальный радиус...	QBasic Найти max из сумм двух матриц, каждая сумма составлена из элементов, лежащих ниже главной диагонали Здравствуйте. Помогите написать программу для этой задачи. Даны матрицы А(66) и В(77). Найти max из сумм двух матриц, каждая сумма составлена из элементов,лежащих ниже главной диагонали. Найти... https://www.cyberforum.ru/ qbasic/ thread719000.html
В заданном тексте подсчитать количество слов, длина которых не превышает пяти символов QBasic Здравствуйте. Помогите с кодом: в заданном тексте подсчитать кол-во слов, длина которых не превышает пяти символов. Напечатать эти слова	QBasic Определить число коробок для рационального заполнения контейнера Вот условие. Грузовой контейнер с основанием а на а и высотой в загружается сверху рядами однотипных коробок объёмом схсхс или ухуху.Определить общее число коробок каждого размера,обеспечивающее... https://www.cyberforum.ru/ qbasic/ thread718798.html
QBasic Найти минимальные значения положительных элементов в каждой строке матрицы по единицам маски-матрицы https://www.cyberforum.ru/ qbasic/ thread718699.html Здравствуйте,Помогите пожалуйста написать программу.Желательно полным Решением(можно картинкой!)))) Заранее большое спасибо! Матрицу В(5,8)заполнить целымислучайными числами в диапазоне от 10 до...	Написать функцию, которая находит сумму заданных обыкновенных дробей QBasic Доброго времени суток!Напишите пожалуйста Программу В полном виде. Заранее благодарен!))))
QBasic Найти сумму ряда с заданной точностью https://www.cyberforum.ru/ qbasic/ thread718675.html Помогите решить пожалуйста	QBasic Среди чисел найти первое, большее заданного Дано действительное число а. Найти: среди чисел 1, 1+(1/2), 1+(1/2)+(1/3),⊃ первое, большее а. (Абрамов 83(а)) Добавлено через 1 час 30 минут чо никто не хочеть отвечать https://www.cyberforum.ru/ qbasic/ thread718588.html
QBasic Матрицу М(10, 12) заполнить нулями и единицами случайным образом Матрицу М(10, 12) заполнить нулями и единицами случайным образом. Подсчитать количество N строк, в которых единиц и нулей поровну, и вывести их номера. Если таких строк не окажется, то выдать...	QBasic Массив А(20) заполнить целыми случайными числами из диапазона от 1 до 100 https://www.cyberforum.ru/ qbasic/ thread718511.html Массив А(20) заполнить целыми случайными числами из диапазона от 1 до 100. Определить количество элементов N, удовлетворяющих условию 25<A(I)<75, MIN среди них и его индекс M. Вывести L, N, MIN, M. ...

urbic

140 / 130 / 127

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

Сообщений: 628

05.12.2012, 17:16

Сформировать третий массив из двух исходных по правилу - QBasic - Ответ 3807232

05.12.2012, 17:16. Показов 1078. Ответов 1

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

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

Решение

QBasic/QuickBASIC

CLS
DO
INPUT "Vvedite n<30"; n
LOOP UNTIL n < 30
DIM a(1 TO n), b(1 TO n), c(1 TO n)
PRINT "Massiv A", "Massiv B"
FOR i = 1 TO n
a(i) = INT(RND * 100 - 50)
b(i) = INT(RND * 100 - 50)
NEXT i
INPUT "Vvedite interval p,q"; p, q
FOR i = 1 TO n
IF a(i) >= p AND a(i) <= q AND b(i) >= p AND b(i) <= q THEN
c(i) = 1
ELSE
c(i) = 0
END IF
NEXT i
FOR i = 1 TO n
PRINT a(i), b(i), c(i)
NEXT i
min = a(1)
FOR i = 1 TO n
IF a(i) >= p AND a(i) <= q AND b(i) >= p AND b(i) <= q THEN
IF a(i) <= min THEN min = a(i)
IF b(i) <= min THEN min = b(i)
END IF
NEXT i
FOR i = 1 TO n
IF c(i) = 1 THEN k1 = k1 + 1
IF c(i) = 0 THEN k0 = k0 + 1
NEXT i
PRINT "Minimal'noe="; min
PRINT "Kol-vo nulei="; k0
PRINT "Kol-vo edinic="; k1

Вернуться к обсуждению:
Сформировать третий массив из двух исходных по правилу QBasic

Programming

Эксперт

94731 / 64177 / 26122

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

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

05.12.2012, 17:16

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

Сформировать третий массив из элементов двух исходных
даны 2 массива А и В по 15 элементов в каждом. получить новый массив Сi=Ai+Bi. найти в нем...

Сформировать новый массив по данным из двух исходных
Произвольно заданы 3 одномерных массива.Сформировать новый массив,состоящий из десяти элементов с...

Сформировать третий массив на основе двух заданных
Составьте блок-схемы алгоритмы и написать программу на Qbasic. Даны два массив:/1(5) и B{5)....

Сформировать третью матрицу из двух исходных
Помогите решить задачу на двумерные массивы. Задача:Даны два двумерных массива.Получить новый...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

05.12.2012, 17:16

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

Сформировать третий массив из элементов двух исходных по правилу
Массив А и массив B - целых чисел массив C = A*B+k к- константа равная 15. нужно вывести массив...

Сформировать третий массив из двух исходных
Даны два двумерных массива одинаковых размеров. а) Создать третий массив такого же размера, каждый...

Сформировать третий массив из двух исходных
Даны два двумерных массива одинакового размера. Создать третий массив того же размера, где каждый...

Сформировать третий массив из двух исходных
Даны два одномерных массива целых чисел (массив А, состоящий из n элементов, массив В – из m...

Наверх