Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Egoza
Новичок
0 / 0 / 0
Регистрация: 19.04.2012
Сообщений: 37
06.09.2013, 11:40     Текст в алфавитном порядке
  #1
Доброе время суток!

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

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

Спасибо
AdAgent
Объявления
06.09.2013, 11:40
Апострофф
Форумчанин
7567 / 3092 / 394
Регистрация: 11.10.2011
Сообщений: 4,375
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
Новичок
0 / 0 / 0
Регистрация: 19.04.2012
Сообщений: 37
06.09.2013, 13:34  [ТС]
  #3
Да, действительно пропустила эта, необходимо распечатывать всё
Апострофф
Форумчанин
7567 / 3092 / 394
Регистрация: 11.10.2011
Сообщений: 4,375
06.09.2013, 13:41
  #4
Цитата Сообщение от Egoza Посмотреть сообщение
распечатывать всё
Именно так и сделано выше.
Egoza
Новичок
0 / 0 / 0
Регистрация: 19.04.2012
Сообщений: 37
09.09.2013, 15:59  [ТС]     Текст в алфавитном порядке
  #5
Спасибо большое!
Yandex
Объявления
09.09.2013, 15:59
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C (СИ) В алфавитном порядке порядке напечатать (по одному разу) все строчные русские буквы, входящие в заданный текст
С ( Си ) Вводится текст, за которым следует точка. В алфавитном порядке порядке напечатать ( по разу) все строчные русские буквы, входящие в этот текст. Спасибо.
C для начинающих Lucky_Shot 30.04.2014 10:57
C (СИ) Дан произвольный текст. Напечатать в алфавитном порядке все буквы, которые входят в этот текст по одному разу
for(a=0; a < n; a++) for(b=n-1; b >= a; b--) { if(i > i) { t = i; i = i; i = t; }
C для начинающих Nezet25748 02.07.2013 20:41
C (СИ) Вводится текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные русские буквы, входящие в этот текст
Вводится текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные русские буквы, входящие в этот текст.
C для начинающих Nonsons 27.05.2013 21:56
QBasic Дан текст. Выяснить, является ли этот текст идентификатором переменной
Дан текст. Выяснить, является ли этот текст идентификатором переменной; Помогите кто умеет, На Java.
QBasic Nurik_n 21.05.2013 22:55
QBasic Помогите исправить программу по выводу слов в алфавитном порядке.
10 REM' 20 CLS 30 INPUT " Введите количество фамилий"; N 40 DIM A$(N) 50 FOR I = 1 TO N 60 INPUT "Введите фамилию"; A$(I) 70 NEXT I 80 INPUT "Хотите отсортировать список?(Да/Нет)"; A$ 90 IF...
QBasic GREYIP 13.09.2011 16:13
QBasic Вывод слов в алфавитном порядке
Нужна программа, вводишь слова с клавиатуры, программа сортирует их в алфавитном порядке.
QBasic Steward 08.09.2011 16:48
QBasic написать массив в обратном порядке
задача:написать массив в обратном порядке
QBasic Женя31 18.02.2010 23:27
QBasic Вывести слова в обратном порядке
Слова в последовательности символов оканчивающейся символом / отделены друг от друга пробелами, запятыми, точками, точками с запятой, двоеточиями. Распечатать все слова в обратном порядке: первым -...
QBasic O4arova6ka90 28.01.2010 19:33
Опции темы

Текущее время: 10:11. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.