Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
1252 / 702 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
1

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

02.03.2010, 14:51. Просмотров 1105. Ответов 2
Метки нет (Все метки)

Помогите с задачкой: определите все ли буквы слова различны.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.03.2010, 14:51
Ответы с готовыми решениями:

Определить, имеются ли в последовательности слова, в которых все буквы различны
Определить, имеются ли в последовательности слова, в которых все буквы различны.

Определите все ли буквы слова различны.
Определите все ли буквы слова различны.

Найти все такие слова, в которых все буквы различны
В данном тексте найти все такие слова, в которых все буквы различны. Словом в строке будем считать...

Составьте программу, определяющую, все ли буквы слова Х различны
1)составьте программу, меняющую в слове Х букву "а" на букву "е", если "а" стоит на четном месте....

2
Платежеспособный зверь
8719 / 4132 / 1600
Регистрация: 28.10.2009
Сообщений: 11,145
02.03.2010, 17:10 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от softmob Посмотреть сообщение
Помогите с задачкой: определите все ли буквы слова различны.
PureBasic
1
2
3
4
5
6
7
input "vvedite slovo ",a$
for i=1 to len(a$)
for j=1 to len(a$)
if i<>j and mid$(a$,i,1)=mid$(a$,j,1)then f=1
next
next
if f=0 then print"vse bukvy slova razlichny" else print"v slove est odinakovye bukvy"
1
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
31.08.2016, 14:59 3
Вариант 2

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
DECLARE FUNCTION f! (s AS STRING)
 
CLS
DIM s AS STRING
DIM u(0 TO 1) AS STRING
u(0) = "NO"
u(1) = "YES"
INPUT "SLOVO = "; s
 
PRINT u(f(s))
END
 
FUNCTION f (s AS STRING)
   DIM t AS STRING
 
   IF LEN(s) = 1 THEN
      f = 1
   ELSE
      t = LEFT$(s, 1)
      s = MID$(s, 2)
      k = INSTR(2, s, t)
      IF k = 0 THEN f = f(s)
   END IF
END FUNCTION
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.08.2016, 14:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить программу, определяющую, все ли буквы слова Х различны
Составить программу, определяющую, все ли буквы слова Х различны.

Вывести только те слова, все буквы которых различны
Помогите сделать надо чтобы вводились слова и выводились только те в которых все буквы разные

Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны
Задание 2 Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны.

Выясните, все ли буквы слова Х, стоящие на нечетных местах, различны
Здраствуйте Уважаемые форумчане, скажите почему у меня при компилировании программы, не выводит...

Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны
Задание 2 Выяснить, все ли буквы слова Х, стоящие на нечетных местах, различны. (помогите с...

Все ли гласные буквы слова Х, стоящие на нечетных местах, различны
Составьте программу, выясняющую, все ли гласные буквы слова Х, стоящие на нечетных местах, различны.


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

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

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