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

Ответ Создать новую тему
 
12.04.2013, 15:13   #1
olya1995
Новичок
Регистрация: 13.03.2013
Сообщений: 13
Репутация: 0 (0)
составить программу ,проверяющую ,можно ли из букв, входящих в слово Х ,составить слово Y( буквы можно переставлять , и каждую букву можно использовать более одного раза)
12.04.2013, 15:13
AdAgent
Объявления
12.04.2013, 17:10   #2
m-ch
Форумчанин
Регистрация: 25.02.2011
Сообщений: 499
Репутация: 2582 (386)
Лучшие ответы: 37
Код 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"
Другие темы раздела
QBasic Цикл: Подсчитать количество отрицательных чисел среди n введенных.
прошу прощения, но с QBasic не очень знакома, поэтому прошу помощи. необходимо подсчитать количество отрицательных чисел среди n введенных. Если задать введение чисел получилось, то дальше ступор.... Заранее большое спасибо!!!!!!!!!!!!
QBasic Дана матрица целых чисел X(n, т). Упорядочить ее столбцы по возрастанию их минимальных элементов. Вывести исходную и полученную матрицы
Дана матрица целых чисел X(n, т). Упорядочить ее столбцы по возрастанию их минимальных элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры. Добавлено через 1 минуту cls INPUT "N = "; N DIM X(N, N) FOR i = 1 TO N FOR j = 1 TO N INPUT ; " ";...
12.04.2013, 18:47  [ТС]   #3
olya1995
Новичок
Регистрация: 13.03.2013
Сообщений: 13
Репутация: 0 (0)
спасибо только он почему то мне всегда выдает "нет"
13.04.2013, 17:36   #4
Апострофф
Форумчанин
Регистрация: 11.10.2011
Сообщений: 4,322
Репутация: 7481 (3055)
Лучшие ответы: 280
А так?
Код 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"
13.04.2013, 17:36
AdAgent
Объявления
14.04.2013, 00:10   #5
Quiet Snow
Форумчанин
Регистрация: 25.04.2010
Сообщений: 2,394
Репутация: 3902 (1089)
Лучшие ответы: 44
А так?
Хитрожопее на 1 строчку

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

Добавлено через 5 минут
составить программу ,заменяющую в слове X все гласные буквы на "O" ,а согласные на "C".
не могли бы эту задачку еще посмотреть. заранее спасибо
16.04.2013, 21:44
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal ABC Составьте программу,проверяющую,можно ли из букв,входящи в слово Х,составить слово У
Составьте программу,проверяющую,можно ли из букв,входящи в слово Х,составить слово У(Буквы можно переставлять,но каждую букву можно использовать не более одного раза)
Pascal ABC Thesotsky 26.12.2013 19:30
C++ Ввести строку и слово. Вывести те слова, которые не содержат букв, входящих в слово.
Ребят помогите плииизз... только мне сказали через стандартную библиотеку Добавлено через 1 минуту Ах да и если не сложно, пояснения написать...
С++ для начинающих Иришка... 24.12.2010 20:04
C# Можно ли из букв входящих в слово А, построить слово В
Помогите пожалуйста !!! На C# (Можно ли из букв входящих в слово А, построить слово В ???) Зарание спасиба!
C# .NET smazchuk 25.04.2010 23:00
C# Проверьте, можно ли из букв, входящих в слово А, построить слово В.
На С# (Проверьте , можно ли из букв входящих в слово А, построить слово В. Буквы исходного слова можно переставлять , но нельзя каждую букву использовать более одного раза). Заранее спасиба)))
C# .NET smazchuk 25.04.2010 22:54
Delphi Составить программу выясняющую, можно из букв входящих в слова Х, составить слово Y
Если у кого есть такая лаба, буду искренни благодарен за нее:) Ну или может кто нибудь может сделать ее, если для него это не проблема) Составить программу выясняющую, можно из букв входящих в слова Х, составить слово Y?(Буквы можно переставлять и каждую букву можно использовать ровно 2 раза)....
Delphi для начинающих Davidof 22.04.2010 22:54
Опции темы

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

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