Форум программистов, компьютерный форум, киберфорум
QBasic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > QBasic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
QBasic Игра https://www.cyberforum.ru/ qbasic/ thread269459.html
Добрый день,мне нужна помощь в написании игры. Суть проблемы в том ,что сам как таковой,я не изучал программирование,а чтобы попасть на консультацию нужно написать половину программы,поэтому обращаюсь к вам: Сам текст : Снизу по экрану ездит(управляется с клавы) лицо с открытым ртом ( пэкмэн перевёртнутый),сверху падают снежинки ( рандомно) ,нужно ловить ртом снежинки так,чтобы когда они... 		QBasic Дана строка. Подсчитать, сколько различных символов встречается в ней.
Помогите, пожалуйста, написать программу. Дана строка. Подсчитать, сколько различных символов встречается в ней.
QBasic Изобразить попадание шайбы в ворота Игра в хоккей. Вид сбоку. Ворота справа. Шайба летит в ворота из случайной точки слева со случайной скоростью под случайным углом. Перчатка вратаря управляется по вертикали относительно ворот. Шайба либо ловится, либо отскакивает (если попала в край перчатки). https://www.cyberforum.ru/ qbasic/ thread269350.html QBasic Двухмерные массивы. Минимальный элемент на пересечении строк и столбцов. Дан массив R(n,m) определить строку и столбец на пересечении которых находится минимальный элемент. Заранее спасибо. https://www.cyberforum.ru/ qbasic/ thread269288.html
Ошибка в цикле QBasic
Доброй ночи ) Не могу найти ошибку в коде. Условие задачки во вложенном файле. 10 DIM X(8) 20 INPUT "K=", K 30 FOR I = 1 TO K 40 INPUT X(I) 50 NEXT I 60 A = 4.5 70 S = 0: S1 = 0 80 FOR I = 1 TO K 90 IF X(I) > A THEN Y = (A * X(I) * SIN(X(I))) / (X(I) ^ 2 + A): GOTO 110 		QBasic Написать тест по алгебре, состоящий из 20 вопросов https://www.cyberforum.ru/ qbasic/ thread268475.html
Смысл в том что нужно. Ребят, в общем мне нужна помощь по созданию теста (в моем случае это тест по алгебре) структура самой работы следующая: 1.Графическая часть: -Название теста -Рисунок 2.Меню -Справка -Тест -Результат
QBasic Вывести на экран все трёхзначные числа https://www.cyberforum.ru/ qbasic/ thread267773.html
Помогите, пожалуйста! Надо составить программу, выводящую на экран все натуральные трёхзначные числа, делящиеся без остатка на 17, сумма цифр которых равняется 11. 		Удалить из текста слова с нечетными номерами и перевернуть слова с четными QBasic
Отредактировать заданное предложение текста,удаляя из него все слова с нечетными номерами и переворачивая слова с четными номерами. Например, HOW DO YOU DO -> OD OD
QBasic Одномерный массив. Определить сколько раз меняется знак в числовой последовательности https://www.cyberforum.ru/ qbasic/ thread267743.html
задан массив вещественных чисел. Определить, сколько раз меняется знак в данной последовательности и запомнить номера позиций, в которых происходит смена знака. 		QBasic Дана матрица a(n,n). Перепишите элементы её главной диагонали в одномерный массив y(n) Нужна помощь!!! В qbasic:Дана матрица a(n,n). Перепишите элементы её главной диагонали в одномерный массив y(n) и разделите их на максимальный элемент главной диагонали. Все переменные должны бать равны 12(i=12,j=12,n=12...). Жалательно комментарии Заранее спасибо https://www.cyberforum.ru/ qbasic/ thread267308.html
QBasic Поменяйте местами наибольший и наименьший элементы массива
Помогите пожалуйста! В qbasic: В заданном массиве a(n) поменяйте местами наибольший и наименьший элементы (первые по порядку, если их несколько).N должно быть равно 8. Желательно комментарии к действиям Заранее спасибо! 		QBasic Массивы и матрицы 1.Переписать подряд в массив Z сначала положительные, а затем от- рицательные элементы массива C(n), подсчитать количество запи- санных в массив Z элементов. 2.Найти в каждой строке матрицы C(n, m) минимальный элемент и по- менять его местами с последним элементом строки. Выручайте пожалуйста, очень нужно... https://www.cyberforum.ru/ qbasic/ thread267178.html
60 / 60 / 43
Регистрация: 31.01.2011
Сообщений: 105
03.04.2011, 19:59 0

Вычислить среднее арифмитическое значение нечетных элементов массива, кратных 7 - QBasic - Ответ 1516952

03.04.2011, 19:59. Показов 1535. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

а)
PureBasic
1
2
3
4
5
6
7
8
9

CLS
DIM q(1051)
FOR i = 1 TO 1051
    q(i) = FIX(100 * RND(1) - 25)
NEXT
FOR i = 8 TO 1051
    IF i / 2 <> INT(i / 2) AND i / 7 = INT(i / 7) THEN k = k + 1: s = s + q(i)
NEXT
PRINT "sred. znach.:"; s / k
Добавлено через 16 минут
в)
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

CLS
RANDOMIZE TIMER
INPUT "strok-"; x
INPUT "stolbcov-"; y
DIM c(x, y)
DIM a(y)
PRINT
PRINT "massiv C:"
FOR i = 1 TO x
    FOR j = 1 TO y
        c(i, j) = INT(100 * RND(1) - 25)
        PRINT c(i, j);
NEXT: PRINT: NEXT
FOR i = 2 TO x
    FOR j = 1 TO y
        a(j) = c(1, j)
        IF c(i, j) > a(j) THEN a(j) = c(i, j)
NEXT: NEXT
PRINT: PRINT "massiv A:"
FOR i = 1 TO y
    PRINT a(i);
NEXT


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

Вычислить среднее арифметическое значение нечетных элементов матрицы, кратных семи
помогите 2 задачи решить: 1) Дана числовая последовательность Q(120). Вычислить среднее...

Вычислить среднее значение нечетных элементов кратных трем
Определить, кратны ли трем нечетные элементы последовательность, и если кратны, то вычислить их...

Вычислить среднее арифмитическое значение элементов каждой строки
Помогите написать программу: Ввести исходные данные в первые 24 строки и 7 столбцов. Вычислить...

Вычислить среднее арифмитическое элементов массива
Помогите разработать алгоритм и программу для решения ! Формула для расчёта : A=(i+2)*(abs(i-5))...

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

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

Вычислить среднее арифмитическое отрицательных элементов одномерного массива
это 5 разных задач...решить с помошью одномерного массива 1.Выислить среднее арифмитическое...

Рассчитать и вывести на экран среднее арифмитическое значение элементов массива A[n] Элементы и длина массива n вводятся вручную
Рассчитать и вывести на экран среднее арифмитическое значение элементов массива A Элементы и длина...

Вычислить среднее арифметическое значение нечетных по номеру элементов первой половины массива
вычислить среднее арифметическое значение нечетных по номеру элементов первой половины массива

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