|
|
| Другие темы раздела | |
| QBasic Сделать вывод в две строки Интернетовская программа, полученная когда-то от вас (какой то был вопрос). CLS FOR I = 1 TO 10 IF I <= 5 THEN LOCATE I, 1 PRINT i ELSE LOCATE I – 5, 5 PRINT i https://www.cyberforum.ru/ qbasic/ thread2334040.html |
QBasic Учу Qbasic, нужно несколько заданий Начал изучать, Qbasic не могу понять эти задачи |
|
QBasic Как сделать ввод чисел в одну строку?
https://www.cyberforum.ru/ qbasic/ thread2330975.html Как сделать ввод чисел в одну строку? CLS DIM A(5) PRINT “Ввод чисел в строку: “ FOR i= 1 TO 5 INPUT “ “ , A(i) NEXT i FOR i = 1 TO 5 PRINT A(i); NEXT i |
QBasic Записать языком бейсика
https://www.cyberforum.ru/ qbasic/ thread2328993.html Записать это языком QBASIC y = ax(1+ae^-x) |
|
QBasic В одномерном массиве найти минимальный элемент В одномерном массиве найти минимальный элемент Всего массива и минимальный элемент положительных Чисел всего массива. CLS PRINT “ Исходный массив: “ DATA 7, 11, -8, 9, -15, 3,, -1, 12, 4, 10 DIM A(10) P = P(1) FOR I = 1 TO 10 READ A(i) PRINT A(i); |
QBasic Почему вводимые числа повторяются?
https://www.cyberforum.ru/ qbasic/ thread2324495.html Вот такая простейшая программа: CLS DIM A(5) FOR I = 1 TO 5 INPUT “ Ввод чисел: “ , A(i) PRINT A(i) NEXT i Ввод чисел: 5 5 Ввод чисел: 7 |
| QBasic Сделать массивы с чётными и нечётными положительными элементами Был вопрос: Как в одной программе из исходного массива сделать массивы с чётными и нечётными положительными элементами и с нулями в соответствующих местах. На эту проблему был дан ответ модератора Cyborg Drone (хотя у него на компьютере нет никакого бейсика – ответ в уме сделал). Программа работает, хоть он её и не проверял. Пришлось Только длинные строки переделать на несколько... https://www.cyberforum.ru/ qbasic/ thread2324494.html |
QBasic Перевести кубические км в метры Вот такая программа: CLS L = 1000 V = L ^ 3 PRINT “ В 1 куб. км содержится куб. м: ; USING “########”; v; На выходе имеем: В 1 куб. км содержится куб. м: % 1 000 000 000 Что за символ % (процент) перед числом ? Откуда он взялся? |
| QBasic Перевести галлоны в литры Дана такая программа: CLS REM … Один галлон равен 3.7854 литров FOR G = 1 TO 3 Litrs = G * 3.7854 PRINT G; “галлон составляет: “; litrs NEXT g PRINT FOR G = 4 TO 6 PRINT G; “ галлон составляет: “; litrs https://www.cyberforum.ru/ qbasic/ thread2322882.html |
QBasic Почему 888 AND -1 = 888?
https://www.cyberforum.ru/ qbasic/ thread2322501.html Мне стало известно, что конструкция вида A AND 1 позволяет определять чётность числа. Например 888 AND 1 = 0 (число 888 чётное). И я подумал, что тут 1 играет роль логической единицы. Хотя на qbasic в этой роли выступает число -1. Ан, нет ... стал вычислять -1 AND 888 и получил 888. А по логике вещей должен быть 0. В чём дело? Где-то я ошибаюсь. Добавлено через 6 минут |
|
QBasic Решение иным алгоритмом? Задача 1. Задать 10 случайных натуральных чисел на интервале от 10 до 39 2. Найти алгебраическую сумму этих чисел при условии, что чётные числа идут в сумму со знаком плюс, а нечётные - со знаком минус 3. Нельзя использовать операцию MOD 4. (для получения оценки 3 надо найти 3 варианта решения; для оценки 4 - 4 варианта и так далее) ... Решение Вариант 1 (программа прилагается). Алгоритм... |
QBasic Нуль при вводе превращается в восклицательный знак 1.CLS 2.A=10 B=10.0 При переходе на следующую строку нуль в строке B= 10.0 превращается в восклицательный знак. Почему? https://www.cyberforum.ru/ qbasic/ thread2319108.html |
| 15.10.2018, 17:11 | 0 |
Найти сумму трёх максимальных чисел в случайном массиве - QBasic - Ответ 1297265015.10.2018, 17:11. Показов 1403. Ответов 16
Метки (Все метки)
Ответ 
Сообщение от bormant
Можно использовать простые варианты сортировок, такие как "пузырек", "выбором", "вставками" и др. Для малых значений n это не принципиально, даже может быть показан результат лучше, чем в "продвинутых" алгоритмах. Здесь плюсы и минусы такие же как и в самих алгоритмах сортировок. В своем коде из #7 в "test1" использовал элемент алгоритма быстрой сортировки, который показывает практически независимый результат для любого k, на случайных данных. Так для малых k данный алгоритм будет уступать примитивным сортировкам Добавлено через 19 минут
Сообщение от bormant
Добавлено через 7 минут И для сопоставимости результатов, в своем коде я использовал сортировку по убыванию и подсчет суммы первых k элементов, у Вас сортировка по возрастанию и сумма последних k элементов, это нужно учесть при прогонке пограничных условий по сортированным данным (или почти отсортированным). Вернуться к обсуждению: Найти сумму трёх максимальных чисел в случайном массиве QBasic
0
|
|
| 15.10.2018, 17:11 | |
|
Готовые ответы и решения:
16
Найти сумму трёх максимальных из этих чисел Найти сумму трёх максимальных из этих чисел Дан массив из 10 чисел. Найти сумму трёх максимальных из этих чисел
|
| 15.10.2018, 17:11 | |
| 15.10.2018, 17:11 | |
|
Помогаю со студенческими работами здесь
0
Найти количество максимальных среди трех чисел
|