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

@sterkh · Регистрация: 06.04.2013

Студворк — интернет-сервис помощи студентам

Условие
На вход программе подаётся последовательность символов,заканчивающаяся точкой.Требуется написать программу,которая определяет,есть ли в этой последовательности десятичные цифры,и выводит наибольшее число,которое можно составить из этих цифр.Если цифр нет программа выводит "нет",если есть выводит слово "да" и в следующей строчке искомое число.

вот то,что я написал:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
INPUT a$
l=LEN(a$)
FOR i =1 TO l
x$=MID$(a$,i,1)
IF ASC(x$)>47 AND ASC(x$)<58 THEN b$=b$+x$
NEXT i
k=LEN(b$)
FOR j=1 TO k

дальше как найти максимальное число фантазия кончилась,помогите,если в моём начале что то не так скажите что,если напишите свой вариант,мой рассматривать не обязательно,и ещё появился вопрос:как застопорить программу при встрече точки,что бы дальше не считало.

@m-ch · 06.04.2013, 16:17

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

@sterkh · 06.04.2013, 17:26 **[ТС]**

но ещё возникает вопрос нужно числа вывести в одну строку я изменил вместо PRINT LTRIM$(STR$(i)); вставил b$=b$+str$(i) и в конце вывел b$, проблема в том что выводит число и после каждой цифры пробел,как возможно их убрать?

@m-ch · 06.04.2013, 17:50

Сообщение от sterkh

нужно числа вывести в одну строку

у меня выводит в одну строку

Сообщение от sterkh

проблема в том что выводит число и после каждой цифры пробел,как возможно их убрать?

используйте LTRIM$(STR$(i))

@sterkh · 06.04.2013, 18:00 **[ТС]**

так я поэтому и изменил,потому что в столбец выводило

Добавлено через 8 минут
просто от ltrim'a у меня ничего не происходит,нет изменений есть он есть и если его убрать

@m-ch · 06.04.2013, 18:32

Сообщение от sterkh

ак я поэтому и изменил,потому что в столбец выводило

точку с запятой не убирайте в PRINT LTRIM$(STR$(i));

Сообщение от sterkh

просто от ltrim'a у меня ничего не происходит

QBasic/QuickBASIC
1
b$=b$+LTRIM$(STR$(i))

@sterkh · 06.04.2013, 18:42 **[ТС]**

благодарю за оказанную помощь

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@sterkh 5 / 5 / 8 Регистрация: 06.04.2013 Сообщений: 103
	06.04.2013, 17:26 [ТС]
	но ещё возникает вопрос нужно числа вывести в одну строку я изменил вместо PRINT LTRIM$(STR$(i)); вставил b$=b$+str$(i) и в конце вывел b$, проблема в том что выводит число и после каждой цифры пробел,как возможно их убрать? 0

@sterkh 5 / 5 / 8 Регистрация: 06.04.2013 Сообщений: 103
	06.04.2013, 18:00 [ТС]
	так я поэтому и изменил,потому что в столбец выводило Добавлено через 8 минут просто от ltrim'a у меня ничего не происходит,нет изменений есть он есть и если его убрать 0

@sterkh 5 / 5 / 8 Регистрация: 06.04.2013 Сообщений: 103
	06.04.2013, 18:42 [ТС]
	благодарю за оказанную помощь 0

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

Решение