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

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

Доброе время суток!

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

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

Спасибо
06.09.2013, 11:40
AdAgent
Объявления
06.09.2013, 13:23   #2
Апострофф
Форумчанин
Регистрация: 11.10.2011
Сообщений: 4,319
Репутация: 7478 (3052)
Лучшие ответы: 279
Текст в алфавитном порядке

Если одинаковых букв несколько, распечатывать все или только раз?

Добавлено через 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
Другие темы раздела
Найти наибольшее и наименьшее значение функции QBasic
Ребят привет. Я новенький, поэтому могу тупить. В завтра в обед нужна программа для нахождения наибольше и наименьшего значения функции. Нас так учат что ничего не объясняют...((( Помогите плиз... y=(1+√(1+3x^2 ))/(1+ln⁡x ), x∈ Программа нужна на байсике. Может кто уже сталкивался.
Организация файлов QBasic
Используя файловую систему ввода-вывода данных, решите: 1) Повороты Массивов 2)Удаление максимального(минимального) элемента. Ребят, помогите , пожалуйста, срочно, задали делать , ничего не объяснив, хотя бы дайте представление, что это
06.09.2013, 13:34  [ТС]   #3
Egoza
Новичок
Регистрация: 19.04.2012
Сообщений: 37
Репутация: 0 (0)
Текст в алфавитном порядке

Да, действительно пропустила эта, необходимо распечатывать всё
06.09.2013, 13:41   #4
Апострофф
Форумчанин
Регистрация: 11.10.2011
Сообщений: 4,319
Репутация: 7478 (3052)
Лучшие ответы: 279
Текст в алфавитном порядке

Цитата Сообщение от Egoza Посмотреть сообщение
распечатывать всё
Именно так и сделано выше.
09.09.2013, 15:59  [ТС]   #5
Egoza
Новичок
Регистрация: 19.04.2012
Сообщений: 37
Репутация: 0 (0)
Текст в алфавитном порядке / QBasic

Спасибо большое!
09.09.2013, 15:59
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
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
Pascal: Дан небольшой текст на русском языке.Написать программу,которая напечатает в алфавитном порядке все согласные буквы,входящие в этот текст(по одному ра
Дан небольшой текст на русском языке.Написать программу,которая напечатает в алфавитном порядке все согласные буквы,входящие в этот текст(по одному разу
Pascal (Паскаль) rinatt 25.03.2013 16:41
Turbo Pascal: Определить слова, в которых текст упорядочен по алфавиту; вы- вести в алфавитном порядке все гласные буквы, входящие в этот текст по одному разу
Определить слова, в которых текст упорядочен по алфавиту; вы- вести в алфавитном порядке все гласные буквы, входящие в этот текст по одному разу.
Turbo Pascal Jekkex 16.03.2013 20:32
Опции темы

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

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