QBasic

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

Войти

Другие темы раздела
QBasic debugger для QBasic Добрый день товарищи программисты, не подскажите ли мне дебаггер для QBasic , использую я QB64. Есть програмка, запускается, ввожу данные но результат подсчета не выводится, а только "The End",... Давно я смотрел QB64, уж не знаю, может есть там наподобие как в QuickBasic функция Add Watch на вкладке Debug. Она добавляет переменную в список значений для просмотра. Далее ставим Breakpoint и в... https://www.cyberforum.ru/ qbasic/ thread826492.html	QBasic Как создать перестановки текст и чисел Как создать перестановки текст и чисел. пример n$="12"(число перестановок = len(n$)!) ответ: 12 21 пример n$="ab" ответ: ab ba a$ = "abc" CALL generate(a$, 1, LEN(a$)) SUB generate (a$, l, r) IF l = r THEN PRINT a$ ELSE FOR i = l TO r CALL mswap(a$, l, i) CALL generate(a$, l + 1, r)
QBasic В матрице найти произведение всех элементов, минимальный элемент в третьем столбце В матрице n x m найти произведение всех элементов, минимальный элемент в третьем столбце. Построить вектор из максимальных элементов по строкам. Апострофф, задание то понятно, просто дико задирает тот факт, что преподы дающие задачи на матрицы не читали учебники по выс. мату и взаместо M x N пишут n x m, вот и думай после этого, что для них...	QBasic Подсчет строк матрицы в которых имеются два нулевых элемента составить программу подсчета строк двухмерного массива А(N,N) в которых имеются два нулевых элемента Абсолютно безграмотная и неверная программа. Мало того, что она считает не только строки с двумя нулями, а и строки с тремя, четырьмя и т.д. нулями, так она ещё и неправильно считает, потому что она...
QBasic Найти количество четных и нечетных чисел в двумерном массиве Дан двумерный массив n x m элементов. Найти количество четных и нечетных чисел в массиве DEFINT A-Z ' Все переменные INTEGER CLS INPUT "Strok : ", m ' Спросим размерность INPUT "Stolbcov : ", n DIM A(1 TO n, 1 TO m) ' Заразервируем память(массив) DIM...	QBasic Программа для решения дифференциального уравнения первого порядка Здравствуйте! Собственно требуется написать программу для решения диф.ура: y'=x3-y. Попробывал по примеру написать, на Basic, но что-то не идёт. rem "Metod Runge-Kutta" INPUT x0,y0,b,N DIM... Выдаёт ошибки в 19-й и 28-ой строках. Спасибо за помошь, проблему для себя уже решил другим способом. https://www.cyberforum.ru/ qbasic/ thread823358.html
QBasic В зависимости от значения переменной произвести те или иные вычисления даны три значения Х, и если Х больше нуля то вычисление1, если меньше нуля то вычисление2, если равно нулю - то вычисление3. как сделать ? я только сегодня начал Basic :) думаю нужен массив, но как ? Вы неправильно поняли. Не три значения, а обычное ветвление условным оператором IF. CLS INPUT "Vvedi chislo: ", c IF c > 0 THEN PRINT "Vichislenye 1..." ELSEIF c < 0 THEN PRINT... https://www.cyberforum.ru/ qbasic/ thread828584.html	QBasic Протарбулировать функцию y=sin(x) Протарбулировать функцию y=sin(x) при изменении x от -1 до 1 с шагом 0.1, записав результат вычисления x и y в виде массива чисел. Можете помочь? как сделать чтобы ответ был в столбик х(1)=....... у(1)=......... ............ ................... х(n)=...... y(n)=........ https://www.cyberforum.ru/ qbasic/ thread826415.html
Найти на отрезе [n; m] натуральное число, имеющее наbбольшее количество делителей QBasic Решить задачу тремя способами:1) через цикл for 2) через цикл с предусловием while 3) через цикл с постусловием do until Задача: Найти на отрезе натуральное число, имеющее наbбольшее количество... Давненько тут наш старый добрый раптор не появлялся :coffee2:	Подсчет числа положительных и отрицательных чисел среди сумм элементов строк массива QBasic Составьте программу подсчета числа положительных и отрицательных чисел среди сумм элементов строк массива A (N,M) Программа решает совсем не ту задачу, которая задана. Надо считать количество положительных и отрицательных чисел среди СУММ элементов строк массива
QBasic Текст задом наперед 1) Вообщем, например, в переменной забито a$="вася пупкин", нам надо, чтобы он вывел так: н и к п у п я с 1. CLS LINE INPUT "Vvedite tekst: ", a$ r = LEN(a$) DO PRINT MID$(a$, r, 1) r = r - 1 LOOP WHILE r > 0 2. Если правильно понял.	QBasic Упорядочить столбцы матрицы по убыванию произведений их элементов https://www.cyberforum.ru/ qbasic/ thread829000.html Дана матрица целых чисел X(n, m). Упорядочить ее столбцы по убыванию произведений их элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры. CLS ... xod, Язык FreeBasic Заявлений не хватает.

m-ch

6173 / 938 / 310

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

Сообщений: 1,373

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

06.04.2013, 16:17

Нахождение максимального числа после перестановки его цифр - QBasic - Ответ 4370091

06.04.2013, 16:17. Показов 1555. Ответов 6

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

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

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
DIM a(9) AS INTEGER
DIM i AS INTEGER, j AS INTEGER, n AS INTEGER, m AS INTEGER
INPUT s$
FOR i = 1 TO LEN(s$)
  m = ASC(MID$(s$, i, 1))
  IF m >= 48 AND m <= 57 THEN
    n = n + 1
    a(m - 48) = a(m - 48) + 1
  END IF
NEXT
 
IF n = 0 THEN
  PRINT "NO"
ELSE
 PRINT "YES"
 FOR i = 9 TO 0 STEP -1
   FOR j = 1 TO a(i)
     PRINT LTRIM$(STR$(i));
 NEXT j, i
END IF

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

Следующий ответ

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

06.04.2013, 16:17

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

Нахождение мин числа путём перестановки цифр
Срочно нужна п на тему "Автоматизация нахождения минимального числа путем перестановки цифр" На Delphi. help не знаю Delphi!

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

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

06.04.2013, 16:17

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

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

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

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

Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру
1)Дано натуральное число n. Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру.

Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру
Дано натуральное число n. Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру.

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

Наверх