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

Ответ Создать новую тему
 
Старый 12.04.2013, 15:13   #1
olya1995
Новичок
 
Регистрация: 13.03.2013
Сообщений: 13
Репутация: 0 (0)
Строковые величины: можно ли из букв, входящих в слово Х, составить слово Y / QBasic

составить программу ,проверяющую ,можно ли из букв, входящих в слово Х ,составить слово Y( буквы можно переставлять , и каждую букву можно использовать более одного раза)
Старый 12.04.2013, 17:10   #2
m-ch
Форумчанин
 
Регистрация: 25.02.2011
Сообщений: 495
Репутация: 5872 (383)
Лучшие ответы: 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. Язык программирования QBasic. Помощь в решении задач.
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,065
Репутация: 12838 (2902)
Лучшие ответы: 237
А так?
Код 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
Google
Объявления
Строковые величины: можно ли из букв, входящих в слово Х, составить слово Y / QBasic

Старый 14.04.2013, 00:10   #5
Quiet Snow
Форумчанин
 
Аватар для Quiet Snow
 
Регистрация: 25.04.2010
Сообщений: 2,293
Репутация: 4139 (998)
Лучшие ответы: 42
А так?
Хитрожопее на 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
С++ для начинающих Ввести строку и слово. Вывести те слова, которые не содержат букв, входящих в слово.
Ребят помогите плииизз... только мне сказали через стандартную библиотеку Добавлено через 1 минуту Ах да и если не сложно, пояснения написать...
Иришка...
С++ для начинающих Ввести строку и слово. Вывести те слова, которые не содержат букв, входящих в слово (через <stdio.h>)
Помогите плз...лучше с пояснениями
VladimirH
C# .NET Можно ли из букв входящих в слово А, построить слово В
Помогите пожалуйста !!! На C# (Можно ли из букв входящих в слово А, построить слово В ???) Зарание спасиба!
smazchuk
C# .NET Проверьте, можно ли из букв, входящих в слово А, построить слово В.
На С# (Проверьте , можно ли из букв входящих в слово А, построить слово В. Буквы исходного слова можно переставлять , но нельзя каждую букву использовать более одного раза). Заранее спасиба)))
smazchuk
Delphi для начинающих Составить программу выясняющую, можно из букв входящих в слова Х, составить слово Y
Если у кого есть такая лаба, буду искренни благодарен за нее:) Ну или может кто нибудь может сделать ее, если для него это не проблема) Составить программу выясняющую, можно из букв входящих в слова Х, составить слово Y?(Буквы можно переставлять и каждую букву можно использовать ровно 2 раза)....
Davidof
Опции темы

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

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