Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 18.11.2012
Сообщений: 6
1

Определите слова, в которых нет хотя бы одной буквы из слова-образца

19.11.2012, 17:40. Просмотров 1459. Ответов 2
Метки нет (Все метки)

Вот, собственно, задача:"Вводится слово-образец. Затем вводится список слов (не более 100). Определите слова, в которых нет хотя бы одной буквы из слова-образца. Выведите такие слова, а также буквы, которых нет в слове-образце."
Есть какие-то идеи? Ибо я уже вторую неделю над ним сижу, боюсь даже начинать. За помощь буду признателен.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.11.2012, 17:40
Ответы с готовыми решениями:

Найти либо те слова в тексте, в которых есть все буквы определенного слова, либо те, в которых нет ни одной
1 - текстовое поле, куда пользователь вводит произвольный текст. 2 - текстовое поле, куда...

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

Вывести слова, в которых нет повторяющихся букв и буквы слова упорядочены по алфавиту
Дан текст. Вывести слова, в которых нет повторяющихся букв и буквы слова упорядочены по алфавиту.

Функция должна принимать два слова и возвращать те буквы из первого слова, которых нет во втором.
Здравствуйте, помогите разобраться. Функция должна принимать два слова и возвращать те буквы из...

2
Модератор
61732 / 46207 / 31877
Регистрация: 18.05.2008
Сообщений: 111,496
19.11.2012, 18:08 2
Лучший ответ Сообщение было отмечено lcause как решение

Решение

Цитата Сообщение от lcause Посмотреть сообщение
в которых нет хотя бы одной буквы из слова-образца. Выведите такие слова, а также буквы, которых нет в слове-образце."
Вот это не понятно.

Добавлено через 17 минут
Если выводить буквы, которые есть в образце, но нет в словах, то так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
var sl:string;
    s:array[1..100] of string;
    n,i,j,k:byte;
    f:boolean;
begin
writeln('Введите слово-образец:');
read(sl);
write('Количество слов в наборе до 100 n=');
read(n);
writeln('Введите набор слов:');
for i:=1 to n do
read(s[i]);
writeln('Слова, в которых нет хотя бы 1 буквы из слова-образца:');
k:=0;
for i:=1 to n do
 begin
  f:=false;
  j:=1;
  while(j<=length(sl))and not f do
  if pos(sl[j],s[i])=0 then f:=true
  else j:=j+1;
  if f then
   begin
    write(s[i],' нет букв:');
    k:=1;
    for j:=1 to length(sl) do
    if pos(sl[j],s[i])=0 then write(' ',sl[j]);
    writeln;
   end;
 end;
if k=0 then write('Во всех словах есть все буквы слова-образца')
end.
2
0 / 0 / 0
Регистрация: 18.11.2012
Сообщений: 6
19.11.2012, 18:19  [ТС] 3
Да вот я сам этого не пойму.
С таким бессмысленным заданием столкнулся впервые.
Все равно, спасибо тебе большое.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2012, 18:19

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

В строке найти чётные слова, в которых нет удвоенной буквы "и" и вывести эти слова в новую строку
Задать произвольную строку символов. Группу символов, разделенную с одной или с обеих сторон одним...

Найти слова четной длины, у которых все буквы из первой половины слова встречаются во второй половине слова
Пожалуйста, помогите написать программу. Вот условие: Дана последовательность символов,...

Вывести все слова в которых нет буквы f
Я попытался сделать, но у меня только получается не выводит слова где буква f первая в слове! ...

В тексте найти все слова, в которых нет буквы о
Хелп плиз...


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

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

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