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

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

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

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

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

QBasic/QuickBASIC

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

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

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

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

@m-ch 6172 / 937 / 310 Регистрация: 25.02.2011 Сообщений: 1,367 Записей в блоге: 1
	06.04.2013, 17:50	4
	Сообщение от sterkh нужно числа вывести в одну строку у меня выводит в одну строку Сообщение от sterkh проблема в том что выводит число и после каждой цифры пробел,как возможно их убрать? используйте LTRIM$(STR$(i)) 0

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

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

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

Решение