QBasic

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

Войти

Регистрация
Восстановить пароль

Другие темы раздела
QBasic Упорядочить столбцы матрицы по убыванию произведений их элементов Дана матрица целых чисел X(n, m). Упорядочить ее столбцы по убыванию произведений их элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры. CLS 'Ввод матрицы X (NxN) INPUT "N = "; N DIM X(N, N) AS INTEGER https://www.cyberforum.ru/ qbasic/ thread829000.html	QBasic Как создать перестановки текст и чисел Как создать перестановки текст и чисел. пример n$="12"(число перестановок = len(n$)!) ответ: 12 21 пример n$="ab" ответ: ab ba
QBasic В зависимости от значения переменной произвести те или иные вычисления даны три значения Х, и если Х больше нуля то вычисление1, если меньше нуля то вычисление2, если равно нулю - то вычисление3. как сделать ? я только сегодня начал Basic :) думаю нужен массив, но как ? https://www.cyberforum.ru/ qbasic/ thread828584.html	QBasic Текст задом наперед 1) Вообщем, например, в переменной забито a$="вася пупкин", нам надо, чтобы он вывел так: н и к п у п я с https://www.cyberforum.ru/ qbasic/ thread828406.html
QBasic В матрице найти произведение всех элементов, минимальный элемент в третьем столбце В матрице n x m найти произведение всех элементов, минимальный элемент в третьем столбце. Построить вектор из максимальных элементов по строкам.	QBasic debugger для QBasic Добрый день товарищи программисты, не подскажите ли мне дебаггер для QBasic , использую я QB64. Есть програмка, запускается, ввожу данные но результат подсчета не выводится, а только "The End", интересует пошагово посмотреть какая функция не выполняется. А так как я использую QB64 то F8 и F9 не работают. https://www.cyberforum.ru/ qbasic/ thread826492.html
QBasic Протарбулировать функцию y=sin(x) https://www.cyberforum.ru/ qbasic/ thread826415.html Протарбулировать функцию y=sin(x) при изменении x от -1 до 1 с шагом 0.1, записав результат вычисления x и y в виде массива чисел. Можете помочь?	QBasic Подсчет строк матрицы в которых имеются два нулевых элемента составить программу подсчета строк двухмерного массива А(N,N) в которых имеются два нулевых элемента
QBasic Найти количество четных и нечетных чисел в двумерном массиве Дан двумерный массив n x m элементов. Найти количество четных и нечетных чисел в массиве https://www.cyberforum.ru/ qbasic/ thread823652.html	QBasic Программа для решения дифференциального уравнения первого порядка Здравствуйте! Собственно требуется написать программу для решения диф.ура: y'=x3-y. Попробывал по примеру написать, на Basic, но что-то не идёт. rem "Metod Runge-Kutta" INPUT x0,y0,b,N DIM x(N+1), y(N+1), k(4) x(1)=X0:y(1)=y0 h=(b-x0)/N FOR i=1 TO N+1:a=x(i):b=y(i) GOSUB 10 https://www.cyberforum.ru/ qbasic/ thread823358.html
Найти на отрезе [n; m] натуральное число, имеющее наbбольшее количество делителей QBasic Решить задачу тремя способами:1) через цикл for 2) через цикл с предусловием while 3) через цикл с постусловием do until Задача: Найти на отрезе натуральное число, имеющее наbбольшее количество делителей!	QBasic Подсчет числа положительных и отрицательных чисел среди сумм элементов строк массива https://www.cyberforum.ru/ qbasic/ thread820069.html Составьте программу подсчета числа положительных и отрицательных чисел среди сумм элементов строк массива A (N,M)

m-ch

6172 / 937 / 310

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

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

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

06.04.2013, 16:17

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

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

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

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

Решение

QBasic/QuickBASIC

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

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

06.04.2013, 16:17

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

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

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

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

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

	06.04.2013, 16:17

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

06.04.2013, 16:17

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

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

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

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

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

Наверх