Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
QBasic Найти колличество нечётных положительных элементов https://www.cyberforum.ru/ qbasic/ thread383841.html
Помогите пожалуйста! №1 В qbasic дан массив А(5). Найти колличество нечётных положительных элементов. №2 В qbasic написать программу, которая решает следующую задачу. Даны одномерные массивы А,В и С, содержащие по N элементов. Сформировать новый массив D, каждый элемент которого определяется по формуле: D(i)=A(i)+B(i)+C(i), i=1,2,......,N
Найти сумму первых ста натуральных чисел QBasic
как найти сумму первых ста натуральных чисел ?Не создавайте темы где попало, выбирайте нужный раздел.
QBasic Расположить элементы массива так,чтобы отрицательные были в конце https://www.cyberforum.ru/ qbasic/ thread383681.html
1. Расположить элементы массива так,чтобы отрицательные были в конце 2. Заменить первый отрицательный элемент массива на максимальный 3. Удалить минимальный элемент массива
QBasic В двумерном массиве переставить местами строку, в которой находится наибольшее количество отрицательных элементов https://www.cyberforum.ru/ qbasic/ thread383371.html
Помогите решить задачку, с помощью операторов GOSUB RETURN, обычными у меня получается, а этими не в какую.... В двумерном массиве А(7,7) переставить местами строку, в которой находится наибольшее количество отрицательных элементов, со строкой, в которой находится наименьшее количество отрицательных элементов. Подсчет элементов производится в программе - процедуре. P.S. - по возможности...
QBasic Управление 2-я клавишами одновременно
Вот, написал маленькую прогу, которая выводит на экран большой прямоугольник, внутри которого шарик физично прыгает. Есть сопротивление воздуха и трение. Управление wad, z-выход. И вот такая проблемка: как сделать, чтобы можно было одновременно зажимать, допустим, w и d, и оно работало? SCREEN 12 L = 1 A = 21 B = 410 PRINT "INPUT GRAVITY" INPUT G CLS FOR I = 1 TO 10000
QBasic Заполнить два массива с одного входного файла https://www.cyberforum.ru/ qbasic/ thread382241.html
о_О Короче в первой строке входного файла содержится количество элементов первого массива Во второй строке содержатся собственно сами элементы этого массива В третьей строке содержится количество элементов второго массива в четвертой сами элементы этого массива. чО делать ? Как вообще работать с входным файлом (,txt) Флеш моб: а другие форматы входные могут быть ?:) p.s. Элементы массива...
QBasic Нарисовать шахматную доску https://www.cyberforum.ru/ qbasic/ thread382065.html
Всем привет) помогите пожалуйста) с программками я более менее разбираюсь или пытаюсь разобраться, но с графикой никак, как создать шахматную доску в графическом режиме бейсика?
QBasic Как применить функцию к каждому элементу массива.
Если в двух словах, я написал функцию которая работает с определенным словом. Эээ...Короче функция заменяет каждую букву в слове на букву, стоящую на определенное количество символов левее, при этом строчные остаются строчными, прописные остаются прописными, а алфавит считается циклическим. Если я введу какое-нить слово, она сработает. Но проблема в том что у меня целый массив, заполненный...
QBasic Написать функцию, которая смещает все буквы влево на три позиции https://www.cyberforum.ru/ qbasic/ thread381715.html
Тема такая, нужно было написать функцию которая смещает все буквы влево(по алфавиту) на 3 места, при этом алфавит считается циклическим, заглавные буквы остаются заглавными, а строчные строчными. вот скрин -
QBasic Поиск всех палиндромов в строке https://www.cyberforum.ru/ qbasic/ thread381351.html
Вот, доделал программу - все работает. Не подскажете ли, как можно было бы сократить код и, если не сложно, то приведите пример. CLS INPUT "Введите фразу: "; a$ FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = " " THEN a$ = MID$(a$, 1, i - 1) + "" + MID$(a$, i + 1, LEN(a$)) END IF NEXT i PRINT "Фраза без пробелов: "; a$ FOR i = 1 TO LEN(a$)
Вывести на печать массив A(20), элементы которого принадлежат определенному интервалу QBasic
Сформулировать и вывести на печать массив A(20),элементы которого принадлежат интервалу.Определить, что больше, сумма значений элементов массива А с чётными индексами или сумма элементов с нечётными индексами.
QBasic Для вводимой даты года вывести название соответствующего знака Зодиака Дали задание на экзамен, язык Qbasic. К коду нужны комментарии, и желательно блоксхема. Астрологи делят год на 12 периодов по знакам Зодиака: • 20.01-18.02 – Водолей; 19.02-20.03 - Рыбы; 21.03-19.04 -Овен; • 20.04-20.05 - Телец; 21.05-21.06 - Близнецы; 22.06-22.07 - Рак; • 23.07-22.08 - Лев; 23.08-22.09 - Дева; 23.09-22.10 - Весы; • 23.10-22.11 - Скорпион; 23.11-21.12 - Стрелец;... https://www.cyberforum.ru/ qbasic/ thread380656.html
1255 / 705 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
16.11.2011, 07:05 0

Найти среди чисел то, которое имеет максимальное количество делителей и то, у которого сумма делителей максимальна - QBasic - Ответ 2176487

16.11.2011, 07:05. Показов 2153. Ответов 3
Метки (Все метки)

Ответ

ну если надо с учетом самого числа
PureBasic
1
2
3
4
5
6
7
8
9
10
FOR i = 1 TO 1000
    k = 0
    sum = i
    FOR j = 2 TO i - 1
        IF i MOD j = 0 THEN k = k + 1: sum = sum + j
    NEXT
    IF k > max THEN max = k: a = i
    IF sum > maxs THEN maxs = sum: b = i
NEXT
PRINT a, b


Вернуться к обсуждению:
Найти среди чисел то, которое имеет максимальное количество делителей и то, у которого сумма делителей максимальна QBasic
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2011, 07:05
Готовые ответы и решения:

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

Найти число из диапазона 1.1000, у которого сумма делителей максимальна
Задача из раздела "C для начинающих". Вот мое решение (довольно громоздкое): task n =...

Найти среди данных чисел число, у которого сумма цифр имеет максимальное значение
Дано натуральное число N и N целых чисел. Найти среди данных чисел число, у которого сумма цифр...

Найти натуральное число из промежутка от 120 до 250 у которого количество делителей максимальна
Найти натуральное число из промежутка от 120 до 250 у которого количество делителей максимальна....

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

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

Найти количество целых чисел из промежутка от 5 до 40, у которых сумма делителей больше 15
Найти количество целых чисел из промежутка от 5 до 40, у которых сумма делителей больше 15 (паскаль)

Найти количество трехзначных чисел, сумма простых делителей которых кратна 5
Нужна помощь! Найти количество трехзначных чисел, сумма простых делителей которых кратна 5

Найти количество трехзначных чисел, сумма простых делителей которых кратна 5
Помогите решить задачу в паскале: Найти количество трехзначных чисел, сумма простых делителей...

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