Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация
 
Egoza
Форумчанин
1 / 1 / 0
Регистрация: 19.04.2012
Сообщений: 60
06.09.2013, 11:40     Текст в алфавитном порядке   #1
Доброе время суток!

Подскажите пожалуйста, можно ли написать следующую программу на QBasic?

С клавиатуры вводится предложение. Распечатать все буквы этого предложения в алфавитном порядке.

Спасибо
AdAgent
Объявления
06.09.2013, 11:40    Текст в алфавитном порядке
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.09.2013, 11:40    Текст в алфавитном порядке

Посмотрите здесь:

QBasic Вывести слова в обратном порядке

QBasic написать массив в обратном порядке

QBasic Вывод строк в обратном порядке

QBasic Cоставить программу печати в возрастающем порядке

QBasic переписать заданную фразу в обратном порядке

QBasic Qb, расположение произведений в порядке возрастания

QBasic Вывод слов в алфавитном порядке

QBasic Помогите исправить программу по выводу слов в алфавитном порядке.

QBasic Упорядочить элементы строк в порядке убывания

QBasic Дан текст. Выяснить, является ли этот текст идентификатором переменной

Апострофф
Форумчанин
7953 / 3240 / 434
Регистрация: 11.10.2011
Сообщений: 4,653
06.09.2013, 13:23     Текст в алфавитном порядке   #2
Если одинаковых букв несколько, распечатывать все или только раз?

Добавлено через 23 минуты
Код QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
CLS
DIM c(255) AS INTEGER, s AS STRING, i AS INTEGER
INPUT "Vvedite predlogenie: ", s
FOR i = 1 TO LEN(s)
    c(ASC(MID$(s, i, 1))) = c(ASC(MID$(s, i, 1))) + 1
NEXT i
FOR i = 0 TO 255
    PRINT STRING$(c(i), CHR$(i));
NEXT i
Egoza
Форумчанин
1 / 1 / 0
Регистрация: 19.04.2012
Сообщений: 60
06.09.2013, 13:34  [ТС]     Текст в алфавитном порядке   #3
Да, действительно пропустила эта, необходимо распечатывать всё
Апострофф
Форумчанин
7953 / 3240 / 434
Регистрация: 11.10.2011
Сообщений: 4,653
06.09.2013, 13:41     Текст в алфавитном порядке   #4
Цитата Сообщение от Egoza Посмотреть сообщение
распечатывать всё
Именно так и сделано выше.
Egoza
Форумчанин
1 / 1 / 0
Регистрация: 19.04.2012
Сообщений: 60
09.09.2013, 15:59  [ТС]     Текст в алфавитном порядке   #5
Спасибо большое!
Yandex
Объявления
09.09.2013, 15:59    Текст в алфавитном порядке
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

Текущее время: 07:29. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.