Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Basic > Форум QBasic
Восстановить пароль Регистрация

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

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

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

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

Спасибо
Старый 06.09.2013, 13:23   #2
Апострофф
Модератор
 
Аватар для Апострофф
 
Регистрация: 11.10.2011
Сообщений: 4,054
Репутация: 12831 (2895)
Лучшие ответы: 236
Если одинаковых букв несколько, распечатывать все или только раз?

Добавлено через 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. Язык программирования QBasic. Помощь в решении задач.
Найти наибольшее и наименьшее значение функции 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,054
Репутация: 12831 (2895)
Лучшие ответы: 236
Цитата Сообщение от Egoza Посмотреть сообщение
распечатывать всё
Именно так и сделано выше.
Старый 09.09.2013, 15:59  [ТС]   #5
Egoza
Новичок
 
Регистрация: 19.04.2012
Сообщений: 37
Репутация: 0 (0)
Спасибо большое!
Старый 09.09.2013, 15:59
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
C для начинающих Дан произвольный текст. Напечатать в алфавитном порядке все буквы, которые входят в этот текст по одному разу
for(a=0; a < n; a++) for(b=n-1; b >= a; b--) { if(i > i) { t = i; i = i; i = t; }
Nezet25748
C для начинающих Вводится текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные русские буквы, входящие в этот текст
Вводится текст, за которым следует точка. В алфавитном порядке напечатать (по разу) все строчные русские буквы, входящие в этот текст.
Nonsons
Pascal (Паскаль) Дан небольшой текст на русском языке.Написать программу,которая напечатает в алфавитном порядке все согласные буквы,входящие в этот текст(по одному ра
Дан небольшой текст на русском языке.Написать программу,которая напечатает в алфавитном порядке все согласные буквы,входящие в этот текст(по одному разу
rinatt
Turbo Pascal Определить слова, в которых текст упорядочен по алфавиту; вы- вести в алфавитном порядке все гласные буквы, входящие в этот текст по одному разу
Определить слова, в которых текст упорядочен по алфавиту; вы- вести в алфавитном порядке все гласные буквы, входящие в этот текст по одному разу.
Jekkex
Turbo Pascal Множества.Задача 5. Дан текст из строчных русских букв, за которым следует точка. Напечатать в алфавитном порядке все буквы, входящие в текст не менее
Множества.Задача 5. Дан текст из строчных русских букв, за которым следует точка. Напечатать в алфавитном порядке все буквы, входящие в текст не менее двух раз; все буквы, входящие в текст по одному разу.
Данилов
Опции темы

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

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