Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
QBasic Как объявить массив из 20 элементов? Извините за глупый вопрос. Надо записать что дан одномерный массив в котором не более 20 элементов. Можно ли в программе это так записать? Cls N<=20 Dim a (1 to n) for i = 1 to n .... Заранее спасибо https://www.cyberforum.ru/ qbasic/ thread196776.html Создать и вывести на экран матрицу из случайных чисел в диапазоне от 50 до 100 QBasic
пожалуйста, помогите написать программный код (qbasic), не могу понять: задание: создать и вывести на экран матрицу размером n х m из случайных чисел в диапазоне от 50 до 100; n и m - случайные целые числа от 5 до 10. Добавлено через 1 час 46 минут объясните хотя бы, как задать число строк и столбцов случайным образом
QBasic Среди двухзначных чисел найти те, сумма квадратов цифр которых делится 13 https://www.cyberforum.ru/ qbasic/ thread196475.html
Среди двухзначных чисел найти те, сумма квадратов цифр которых делится 13. (Помогите, пожалуйста)
QBasic программный элемент Заполнение https://www.cyberforum.ru/ qbasic/ thread196459.html
http://s016.***********/i336/1011/6f/8cc94e84d795.jpg помогите пожалуйста с кодом для программы
QBasic С клавиатуры вводятся N целых чисел. Найти количество отрицательных среди них
С клавиатуры вводятся N целых чисел. Найти количество отрицательных среди них.
QBasic Найти корни уравнения Народ, доброго всем времени суток. Помогите пожалуйста написать/решить уравнение в qbasic`e. Y=lnx^3+2cos-2. Начальный по Х=1, конечный Х=5, шаг по Х=0,4 Пример как мне кажется такой: rem https://www.cyberforum.ru/ qbasic/ thread196432.html
QBasic Вывести на экран квадраты нечётных чисел от 1 до 99 Вывести на экран квадраты нечётных чисел от 1 до 99. Чет написал, а не работает. CLS FOR x = 1 TO 99 STEP 3 x = x ^ 2 PRINT x NEXT x https://www.cyberforum.ru/ qbasic/ thread196414.html Составить блок-схему алгоритма и программу расчета QBasic
Пожалуйста, помогите решить задачи! 1. Составить блок-схему алгоритма и программу расчета индекса производительности труда: t0q1 Iпроизводительности труда = ----------- , t1q1 где t0 и t1 – затраты труда на единицу продукции в базисном и отчетном периодах, чел.-ч; q1 – объем...
QBasic Сумма четных элементов массива считается неверно https://www.cyberforum.ru/ qbasic/ thread196347.html
CLS INPUT "введите размер массива*"; n DIM A%(n) PRINT "введите массив" FOR i = 1 TO n INPUT A(i) NEXT i s = 0 FOR i = 1 TO n IF A(i) MOD 2 = 0 THEN s = s + A(i)
QBasic 2-е программы на двумерный массив 1) Заполнить матрицу В(6, 5) случайными целыми числами в интервале (10, 45). Разделить матрицу на 3 и вывести на экран обе матрицы. 2) Обнулить положительные элементы матрицы М(3, 4), состоящей из целых случайных чисел в интервале (-35, 25). Добавлено через 18 часов 47 минут помогите написать программы https://www.cyberforum.ru/ qbasic/ thread196324.html
QBasic Вычисление суммы бесконечного ряда с заданной точностью в Qbasic
Помогите пожалуйста разобраться Нужно вычислить сумму бесконечного ряда с заданной точностью. y=y+sin((2i+1)x)/(2i+1)^3 0<=x<=число пи ε=1*10^(-3) Заранее спасибо.
QBasic Вывести массу тела в килограммах https://www.cyberforum.ru/ qbasic/ thread196173.html
Единицы массы пронумированны следующим образом: 1 - тонна, 2 - центнер, 3 - килограмм, 4 - грамм, 5 - миллиграмм. Дан номер единицы массы и масса тела М в этих единицах (М - вещественное число). Вывести массу этого тела в килограммах.
1255 / 705 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
24.11.2010, 18:25 0

Найти элемент массива, который всех ближе по значению к среднему арифметическому - QBasic - Ответ 1138497

24.11.2010, 18:25. Показов 1487. Ответов 1
Метки (Все метки)

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

Решение

Цитата Сообщение от owen Посмотреть сообщение
Вычислить среднее арифметическое и найти элемент массива, который всех ближе по значению к средн. арифм.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS
INPUT "vvedite razmer massiva"; n
DIM a(n)
FOR i = 1 TO n
    PRINT "vvedite element"; i
    INPUT a(i)
NEXT
FOR i = 1 TO n
    s = s + a(i)
NEXT
sr = s / n
m = sr
FOR i = 1 TO n
    d = a(i) - sr
    IF d < 0 THEN d = d * (-1)
    IF d < m THEN m = d: k = i
NEXT
CLS
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "sr="; sr
PRINT "bl="; a(k)


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

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

Удалить элемент из массива равный среднему арифметическому значению всех элементов
Здесь две задачи, удалить элемент из одномерного массива равный среднему арифметическому элементов...

Поменять местами последний элемент массива с элементом, который ближе всего находится к среднему значению
1.Дан массив целых чисел, состоящий из N элементов(N=20). Поменять местами последний элемент с...

Дан одномерный массив. Найти элемент наиболее близкий к среднему арифметическому значению всех элементов
Дан массив целых чисел. Найти элемент наиболее близкий к среднему арифметическому всех элементов...

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

Найти число, которое «ближе всех» к среднему арифметическому в одномерном массиве
Добрый день, мое задание: Требуется разработать программу, которая: 1) обеспечивает ввод n...

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

Найти элемент массива, наиболее близкий к среднему арифметическому всех элементов массива
Найти элемент массива, наиболее близкий к среднему арифметическому всех элементов массива....

Вывести на экран элемент, максимально близкий по значению к среднему арифметическому всех элементов
Нужна помощь !!!! Получить с консоли набор чисел (массив) заданной длины. Вывести на экран...

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