Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 21.11.2015, 15:55   #1
ENTERPRISE2015
Пользователь
 
Регистрация: 19.11.2015
Сообщений: 25
Репутация: 10
По умолчанию встречаются ли в тексте все буквы, которые входят в слово «шина»

Выяснить, встречаются ли в тексте все буквы, которые входят в слово «шина».
ENTERPRISE2015 вне форума   Ответить с цитированием
Старый 21.11.2015, 16:10   #2
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Адрес: RF Moscow
Сообщений: 5,406
Репутация: 2502

icq: 438888048
По умолчанию

Сначала засовываете весь текст побуквенно в M: set of char. Затем делаете проверку ['ш', 'и', 'н', 'а'] <= M. Если проверка положительна, то все буквы встречаются.
__________________
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума   Ответить с цитированием
Старый 21.11.2015, 16:23   #3
ENTERPRISE2015
Пользователь
 
Регистрация: 19.11.2015
Сообщений: 25
Репутация: 10
По умолчанию

ну мы ведь в теме по паскалю как бы...
ENTERPRISE2015 вне форума   Ответить с цитированием
Старый 21.11.2015, 16:35   #4
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,845
Репутация: 5617
По умолчанию

Цитата:
Сообщение от ENTERPRISE2015 Посмотреть сообщение
ну мы ведь в теме по паскалю как бы...
Что Вы увидели в ответе "не паскальное" ?!!

Код:
var M : set of char;
 i, count : integer;
 s : string;
begin
  ReadLn(s);

  M := [];
  count := 0;
  for i:=1 to Length(s) do
    if (s[i] in  ['ш', 'и', 'н', 'а'])
      and not (s[i] in M) then begin
            Include(M, s[i]);
            Inc(count);
         end;

 if count=4 
   then WriteLn('Нашли все буквы') 
    else  WriteLn('Букв не хватает!');
end.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 21.11.2015, 17:47   #5
BDA
Модератор
Заслуженный модератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Адрес: RF Moscow
Сообщений: 5,406
Репутация: 2502

icq: 438888048
По умолчанию

Serge_Bliznykov, наверное, ТС попался на мою подпись.
__________________
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума   Ответить с цитированием
Старый 21.11.2015, 17:58   #6
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,845
Репутация: 5617
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Serge_Bliznykov, наверное, ТС попался на мою подпись.
точно! Думаю, что Вы правы!
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 21.11.2015, 18:08   #7
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6850
По умолчанию

Цитата:
Выяснить, встречаются ли в тексте все буквы, которые входят в слово «шина».
LINQ по-паскалевски:
Код:
var s:string;
begin
 s:='Тащи еще шины, ща зажжем...';
 write(
  (pos('ш',s)<>0) and
  (pos('ы',s)<>0) and
  (pos('н',s)<>0) and
  (pos('а',s)<>0) 
 );
 readln;
end.
Как альтернатива.
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 21.11.2015, 18:44   #8
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,845
Репутация: 5617
По умолчанию

Цитата:
Код:
  (pos('ы',s)<>0) and

лучше
Код:
  (pos('и',s)<>0) and
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 21.11.2015, 19:42   #9
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6850
По умолчанию

Ну не... шЫна - это сила. А шина... Ну что это? Тьфу какое-то...
В современном новоязе жеж не модно правила русского языка "древние" собюдать.
Потому "жЫ шЫ - не стесняйся, пишЫ"
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Напечатать в алфавитном порядке все согласные буквы, которые не входят в каждое слово Rinat777 Помощь студентам 5 22.11.2013 12:17
Посмотрите, где ошибка! Пусть задан текст до точки. Поменяйте все строчные латинские буквы,которые встречаются в тексте, на проп Lalalako3 Паскаль 5 29.11.2012 13:28
задача на множества - вывести в алфавитном порядке звонкие согласные буквы, которые входят в каждое нечетное слово и не входят ни клавдий Помощь студентам 1 30.03.2012 10:39
В алфавитном порядке напечатать все согласные буквы, которые не входят ни в одно слово Shain Помощь студентам 16 23.02.2010 10:39
Напечатать в алфавитном порядке все гласные буквы, которые не входят более чем в одно слово. GHOST_DOG Помощь студентам 5 30.03.2009 15:24


21:37.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.