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

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

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

Новые блоги и статьи Все статьи Все блоги /
Контейнеризация React приложений с Docker Reangularity 03.04.2025 Контейнеризация позволяет упаковать приложение со всеми его зависимостями в автономный контейнер, который можно запустить на любой платформе с установленным Docker. Это существенно упрощает процессы. . .	Свой попап в SwiftUI mobDevWorks 03.04.2025 SwiftUI, как декларативный фреймворк от Apple, предоставляет множество инструментов для создания пользовательских интерфейсов. В нашем распоряжении есть такие API как alerts, popovers, action sheets. . .	Антипаттерны микросервисной архитектуры ArchitectMsa 03.04.2025 Хорошо спроектированная микросервисная система может выдержать испытание временем, оставаясь гибкой, масштабируемой и устойчивой к большинству проблем. Такая архитектура обладает высоким уровнем. . .	std::mutex в C++: Советы и примеры использования bytestream 03.04.2025 std::mutex - это механизм взаимного исключения, который гарантирует, что критический участок кода выполняется только одним потоком в каждый момент времени. Это простое, но могущественное средство. . .	Не удержался от оценки концепции двигателя Стирлинга. Hrethgir 03.04.2025 Сколько не пытался - она выдавала правильные схемы, причём случайно рисовала горячие области в середине, холодные по краям, трубки с краёв в низ и магнит в соединяющей, но при этой выдавала описание. . .
Метод с двумя буферами (или double buffering) или ping-pong buffering Hrethgir 02.04.2025 Из ответов LM модели. Метод, который предполагает использование двух массивов для хранения промежуточных результатов сложения векторов, обычно применяется в сценариях, где необходимо минимизировать. . .	На любовном киберфронте Alexander-7 01.04.2025 Недавно на одном малоизвестном сайте знакомств мною заинтересовалась девушка: «Текст немного странный. Но, судя по адресу почты, иностранка», – подумал я. Поколебавшись пару суток, я ответил ей:. . .	Как работает Node.js изнутри run.dev 29.03.2025 Node. js изменил подход к разработке веб-приложений, позволив использовать JavaScript не только на стороне клиента, но и на сервере. Созданный в 2009 году Райаном Далем, этот открытый,. . .	Моки в Python: Mock Object Library py-thonny 29.03.2025 Тестирование кода требует особого подхода, когда речь идёт о компонентах, взаимодействующих с внешним миром. Мы часто сталкиваемся с непредсказуемостью HTTP-запросов, чтением данных из базы или. . .	JavaScript: Управление памятью и улучшение производительности run.dev 29.03.2025 В отличие от низкоуровневых языков программирования, 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

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

Решение