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

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

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

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

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

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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Миграция монолита в Event-Driven микросервисную архитектуру на C# stackOverflow 11.04.2025 Монолитная архитектура – классический подход к разработке программного обеспечения. Это приложение, построенное как единое целое, где все компоненты тесно связаны между собой. Большинство проектов. . .	Go в Kubernetes: Управление ресурсами golander 11.04.2025 Разработчики Go-приложений в Kubernetes часто сталкиваются с неожиданными проблемами производительности и даже внезапными отказами контейнеров. Причина этого кроется в особенностях взаимодействия. . .	Агрегаты и сущности в DDD микросервисах Javaican 10.04.2025 Разработка современных программных систем часто приводит на распутье: монолит или микросервисы? Даже при выборе микросервисной архитектуры многие команды сталкиваются с проблемой правильного. . .	Многопоточность в C#: Task и параллельное программирование UnmanagedCoder 10.04.2025 Современные процессоры уже давно перестали наращивать тактовую частоту в пользу увеличения количества ядер. Это создало интересную ситуацию: разработчики, привыкшие к последовательному. . .	Линейное решение нелинейной задачи будет отменено как метод обработки данных из double buffering. Формулы от LM конечно с ошибками. Hrethgir 10.04.2025 В продолжение Вообще задача стояла не так остро - 1. Во вторых прямое соотношение углов через соотношения координат отрезков - невозможно. Но тем не менее. Эта LM дала ответ похожий на нормальный. . . .
Переменные в Python py-thonny 10.04.2025 Переменная в программировании — это символическое имя, связанное с областью памяти, в которой хранится значение. Она позволяет получать доступ к данным через понятные человеку идентификаторы, а не. . .	Многопоточность в C#: Task и асинхронные операции UnmanagedCoder 10.04.2025 Многопоточность позволяет выполнять несколько операций одновременно, что важно для решения двух основных задач: повышения скорости выполнения вычислительно-сложных операций и сохранения отзывчивости. . .	Линейное решение не линейной задачи (емкость вычислений в сравнении с традиционными решениями пока не определена). Hrethgir 10.04.2025 В рамках предстоящих вычислений пришлось (да, я тоже знаю про корень числа, и про степеня, и прочие теоремы, но. . . ) найти способ нахождения отношения двух углов. . . .	Запуск контейнеров Docker на ARM64 Mr. Docker 09.04.2025 Появление таких решений, как Apple M1/ M2, AWS Graviton, Ampere Altra и Raspberry Pi, сделало использование ARM-систем обыденностью для многих разработчиков и DevOps-инженеров. При этом Docker,. . .	Vue SFC компонент на PHP с Fusion Jason-Webb 09.04.2025 PHP на сервере и JavaScript на клиенте — классическое сочетание, которое, несмотря на свою эффективность, создает определенный когнитивный диссонанс при разработке. В этом контексте появляются. . .

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

@m-ch 6173 / 939 / 310 Регистрация: 25.02.2011 Сообщений: 1,373 Записей в блоге: 1
	06.04.2013, 17:50
	Сообщение от sterkh нужно числа вывести в одну строку у меня выводит в одну строку Сообщение от sterkh проблема в том что выводит число и после каждой цифры пробел,как возможно их убрать? используйте LTRIM$(STR$(i)) 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

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

Решение