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

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

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

Новые блоги и статьи Все статьи Все блоги /
Обмен данными в микросервисной архитектуре ArchitectMsa 06.04.2025 Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .	PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG Mr. Docker 06.04.2025 Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .	Async/await в TypeScript run.dev 06.04.2025 Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .	Многопоточность в C#: Синхронизация потоков UnmanagedCoder 06.04.2025 Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .	TypeScript: Классы и конструкторы run.dev 06.04.2025 TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .
Многопоточное программирование: Rust против C++ golander 06.04.2025 C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .	std::vector в C++: от основ к оптимизации производительности NullReferenced 05.04.2025 Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .	Реляционная модель и правила Кодда: фундамент современных баз данных Codd 05.04.2025 Конец 1960-х — начало 1970-х годов был периодом глубоких трансформаций в области хранения и обработки данных. На фоне растущих потребностей бизнеса и правительственных структур существовавшие на тот. . .	Асинхронные операции в Django с Celery py-thonny 05.04.2025 Разработчики Django часто сталкиваются с проблемой, когда пользователь нажимает кнопку отправки формы и. . . ждёт. Секунды растягиваются в минуты, терпение иссякает, а интерфейс приложения замирает. . . .	Использование кэшей CPU: Максимальная производительность в Go golander 05.04.2025 Разработчикам хорошо известно, что эффективность кода зависит не только от алгоритмов и структур данных, но и от того, насколько удачно программа взаимодействует с железом. Среди множества факторов,. . .

@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

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

Решение