Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
olya1995
0 / 0 / 0
Регистрация: 13.03.2013
Сообщений: 13
#1

Строковые величины: можно ли из букв, входящих в слово Х, составить слово Y - QBasic

12.04.2013, 15:13. Просмотров 563. Ответов 5
Метки нет (Все метки)

составить программу ,проверяющую ,можно ли из букв, входящих в слово Х ,составить слово Y( буквы можно переставлять , и каждую букву можно использовать более одного раза)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2013, 15:13
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Строковые величины: можно ли из букв, входящих в слово Х, составить слово Y (QBasic):

Составить слово из произвольных вводимых букв - QBasic
составить слово из произвольных вводимых букв, до тех пор пока не будет введен пробел. Вывести это словом подсчитать кол-во букв "а" в этом...

Строковые Величины: какая из букв встречаются в слове X чаще - QBasic
Составе программу ,выясняющую какая из букв (первая или последняя)встречаются в слове X чаще.

Вывести слово без букв А - QBasic
ввести с клавиатуры слово,и чтобы оно выводилось на экран без букв А

Ввести слово и в слове подсчитать количество согласных букв - QBasic
Need help =\ 1) Ввести слово и в слове подсчитать количество согласных букв 2) Дан массив из 12 элементов. Найти количество элементов...

строковые величины - QBasic
составить программу вычеркивающую из слова х буквы стоящие на нечетных местах

Дано слово. Вывести все варианты перестановок его букв - QBasic
Помогите решить задачу. ни как не смог сам. Дано слово. Вывести все варианты перестановок его букв. Например для Дом Будет: Дом ...

5
m-ch
5207 / 754 / 199
Регистрация: 25.02.2011
Сообщений: 1,035
Записей в блоге: 1
12.04.2013, 17:10 #2
QBasic/QuickBASIC
1
2
3
4
5
6
7
INPUT "X: ", x$
INPUT "Y: ", y$
p = 1
FOR i = 1 TO LEN(y$)
  p = p * SGN(INSTR(x$, MID$(y$, i, 1)))
NEXT i
IF p THEN PRINT "Yes" ELSE PRINT "No"
1
olya1995
0 / 0 / 0
Регистрация: 13.03.2013
Сообщений: 13
12.04.2013, 18:47  [ТС] #3
спасибо только он почему то мне всегда выдает "нет"
0
Апострофф
Заблокирован
13.04.2013, 17:36 #4
А так?
QBasic/QuickBASIC
1
2
3
4
5
6
INPUT "X: ", x
INPUT "Y: ", y
FOR i = 1 TO LEN(y)
  IF INSTR(x, MID$(y, i, 1)) = 0 THEN EXIT FOR
NEXT i
IF i > LEN(y) THEN PRINT "Yes" ELSE PRINT "No"
1
Quiet Snow
4375 / 1245 / 208
Регистрация: 25.04.2010
Сообщений: 3,041
14.04.2013, 00:10 #5
А так?
Хитрожопее на 1 строчку

P.S: Рефакторинг не стоил потраченных усилий...
0
olya1995
0 / 0 / 0
Регистрация: 13.03.2013
Сообщений: 13
16.04.2013, 21:44  [ТС] #6
спасибо там только кое где $ добавила и все работает

Добавлено через 5 минут
составить программу ,заменяющую в слове X все гласные буквы на "O" ,а согласные на "C".
не могли бы эту задачку еще посмотреть. заранее спасибо
0
16.04.2013, 21:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2013, 21:44
Привет! Вот еще темы с ответами:

Составить слово algorithm - QBasic
Дан набор букв "aioghlmrt" в виде строковой переменной Требуется составить из него слово "algorithm" используя рекурсивную процедуру. ...

Составить слово из элементов символьных массивов - QBasic
Всем доброго времени суток. Напишите, пожалуйста, программу на QBasic: ввести два символьных массива А и В одинаковой размерности....

Ввести с клавиатуры слово и символ. Перевернуть введенное слово. Вставить символ в середину слова - QBasic
Ввести с клавиатуры слово и символ. Перевернуть введенное слово. Вставить символ в середину слова (если оно нечетной длины, то заменить им...

Составить программу, которая в заданном предложении находит самое длинное симметричное слово - Basic
составить программу, которая в заданном предложении находит самое длинное симметричное слово. на Turbo Basic


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru