QBasic

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

Войти

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

Другие темы раздела
QBasic Получить одномерный массив, состоящий из элементов матрицы, кратных 5 https://www.cyberforum.ru/ qbasic/ thread1885015.html дана матрица размерности m на n. Получить одномерный массив, состоящий из элементов,делимых на пять.	QBasic Разложить многочлен на множители Разложить на множители x^4 + x^3 -5x^2 + 3x + 56 Скажу сразу, что это многочлен четвертой степени содержит только комплексные числа. Но его можно разложить на произведение двух квадратных трехчленов (впрочем как и любой другой многочлен четвертой степени) REM REM x^4 + x^3 -5x^2 + 3x + 56 REM
QBasic Построение фигуры: прямоугольник и дуга сверху построить прямоугольник и сверху дугу https://www.cyberforum.ru/ qbasic/ thread1884620.html	QBasic Построить шестиконечную звезду, состоящую из двух равносторонних треугольников Построить шестиконечную звезду, состоящую из двух равносторонних треугольников, задать ее длинной стороны и определить радиус описанной окружности. https://www.cyberforum.ru/ qbasic/ thread1884340.html
QBasic Решение задач Просьба объяснить алгоритм и логику решения типичных задачек:	QBasic Задача на Basic Здравствуйте, подскажите пожалуйста как решить данную задачу: Самолет без топлива весит 27 т. Его максимальный взлетный вес составляет 35 т, а максимальный посадочный — 28 т. Расход топлива при взлете (первые 100 км) составляет 0,9 т, а в крейсерском режиме и при посадке — 0,6 т на каждые 100 км. Составьте программу, которая бы определяла, сможет ли самолет совершить вынужденную посадку в... https://www.cyberforum.ru/ qbasic/ thread1882068.html
QBasic Убрать из массива каждое второе число, пока не останется одно https://www.cyberforum.ru/ qbasic/ thread1881879.html Подскажите, надо написать программу, в которой надо будет ввести максимальное число, затем она должна убрать все вторые числа в этом диапазоне, и так, пока не останется лишь одно число. Далее его надо вывести на экран.	QBasic программирование в qbasic помогите,пожалуйста, вбить программу в qbasic. У меня не выходит. Либо я неправильно ввожу данные, либо ошибка в блок-схеме. Помогите пожалуйста
QBasic Найти максимальное число и его номер https://www.cyberforum.ru/ qbasic/ thread1881563.html Дан массив из 15 целых чисел, заданных оператором DATA. Найти максимальное число и его номер, а если таких чисел несколько, то подсчитать, сколько их. (Числа введены операторм DATA, так как при введении их случайным образом одинаковых максимальных чисел несколько может и не быть) 12DIM X(15) DATA 5, -7, 9, 12, 12,,8, -6, 2, -3, 10,...	QBasic Решение системы уравнений Дана система уравнений SQR(1) * x1 = x2 SQR(2) * x2 = x3 ................... SQR(N-1)x(N-1) = xN SQR(N) xN = 7E+07 (N = 12) найти х1. https://www.cyberforum.ru/ qbasic/ thread1880752.html
Решение системы линейных уравнений QBasic Дана система линейных уравнений ax + by = z cx + dy = u здесь переменные z и u - параметры, которые в свою очередь являются неизвестными в следующей системе az + bu = 3 cz + du = 6 параметры a, b, c, d заданы в программе. Требуется найти x и y	QBasic Найти все трехзначные числа по условию 3 https://www.cyberforum.ru/ qbasic/ thread1880131.html Найти все трехзначные числа abc, определитель \|a b c\| \|b c c\| \|c c c\| которых равен -729 (таких чисел 9. 109,209,309,...,909, что подчеркивает независимость определителя от цифры а) REM

echs

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

Сообщений: 5,076

Записей в блоге: 8

27.12.2016, 16:22

Найти среднее арифметическое каждых четырех элементов массива и определить минимальное - QBasic - Ответ 9949365

27.12.2016, 16:22. Показов 1635. Ответов 1

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

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

Решение

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
N = 15
 
DIM x(1 TO N) AS INTEGER
 
FOR i = 1 TO N
   x(i) = 20 * RND - 10
   PRINT USING "####"; x(i);
NEXT: PRINT : PRINT
 
min = (x(1) + x(2) + x(3) + x(4)) / 4
 
FOR i = 1 TO N - 3
FOR j = i + 1 TO N - 2
FOR k = j + 1 TO N - 1
FOR l = k + 1 TO N
   SRA = (x(i) + x(j) + x(k) + x(l)) / 4
   IF SRA < min THEN min = SRA
NEXT l, k, j, i
PRINT "Massiv MIN ="; min
END

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.12.2016, 16:22

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

Найти среднее арифметическое элементов, расположенных в четырех углах массива
не могу разобраться,написал под условие,скобки расставил вроде верно,но выдается огромный ответ!...

Найти среднее арифметическое всех элементов массива х и номера элементов, имеющих минимальное и максимальное значения
Сгенерировать массив из 18 элементов случайных чисел от 0 до 100. Вывести массив на экран в три...

Найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного массива
Помогите найти сумму,минимальное,максимальное и среднее арифметическое элементов одномерного...

Найти максимальное и минимальное значения среди элементов массива и их среднее арифметическое
Помогите пожалуйста с заданием: В массиве А(20) найти максимальное и минимальное значения среди...

	27.12.2016, 16:22

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.12.2016, 16:22

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

Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное значение
Найти среднее арифметическое элементов массива х(n), исключив из них максимальное и минимальное...

Найти среднее арифметическое каждой трети массива и определить минимальное и максимальное найденных чисел
Напишите программу, которая вводит с клавиатуры 30 реальных чисел и определяет среднее...

Найти среднее арифметическое элементов, расположенных в четырех углах
Заполнить с клавиатуры двумерный массив на 16 элементов. Найти среднее арифметическое элементов,...

Отсортировать массив и найти среднее арифметическое четырех центральных элементов
Рост 18-и человек задаетсяс клавиатуры. Определить среднее арифметическое этих людей, которые могли...

Наверх