определение символов в строке, интересуют варианты Опции

[Евгений]

Доброго всем времени суток! В первых строках хотелось бы поблагодарить всех, кто помог мне сдать сессию за 1-ый семестр.
Теперь по сути.. Хотелось бы посмотреть возможные варианты выполнения вот этого задания:
Определить, имеются ли в тексте все буквы, входящие в слово «шина».

Вот мое очередное извращение)):

program stroki;
var
  s: string;
  i,a,b,c,d: byte;
begin
 write ('введите текст  ');
 readln(s);
  for i:= 1 to length(s) do
   begin
     if s[i]='ш' then a:= a+1;
     if s[i]='и' then b:= b+1;
     if s[i]='н' then c:= c+1;
     if s[i]='а' then d:= d+1;
   end;
   if (a>=1) and (b>=1) and (c>=1) and (d>=1) then
       writeln ('в тексте имеются все буквы слова "шина"   ')
     else
       writeln ('в тексте НЕ имеются все буквы слова "шина"   ');
 readln;
end.

Понимаю что написано коряво, поэтому и предлагаю вам подсказать мне более правильное решение.

Сообщение отредактировано: Евгений - 15.01.2011 17:01

[volvo]

Зачем же делать столько лишнего? Проще:

const
  mySet : set of char = ['ш', 'и', 'н', 'а'];

{ ... }
   for ix := 1 to Length (s) do
      mySet := mySet - [ s[ix] ];

   { А теперь проверяем: }
   if mySet = [] then writeln (' в тексте имеются все буквы слова "шина" ')
   else writeln (' в тексте имеются НЕ все буквы слова "шина" ');
{ ... }

[Евгений]

const
  mySet : set of char = 

Если не трудно обьясните, это что?

   { А теперь проверяем: }
   if mySet = []

Т.е. если в в квдратых скобках нет элементов, то в тексте имеются все буквы слова "шина".
Я правильно понял?

[volvo]

Это описание множества символов. Все символы, наличие которых в строке тебе нужно проверить, заносишь в это множество, а потом просто идешь по строке, и из множества извлекаешь все буквы строки, одну за другой (заметил там знак "-"? Вот это и есть извлечение очередной буквы). Причем, если во множестве символа нет, а ты пытаешься его изъять - ничего страшного. У тебя невозможно отнять то, чего нет; также и у множества - если оно не содержит символ - то и разговора нет, просто ничего не изменится.

А теперь подумай, если вот так изъяли все буквы, входящие в слово, а множество осталось НЕпустым - это что значит? Значит, какие-то из букв, которые были в mySet изначально, в строке отсутствуют. Что и надо было проверить. Если же в конце множество пустое (т.е., равняется []), то все буквы, которые ты занес в самом начале, были из него вышвырнуты => они все были в строке...

[Евгений]

Спасибо, теперь все понятно.

[Евгений]

В вашем варианте компилятор ругается), говорит , что не хорошо константе присваивать. пришлось подправить:

Program StrokiDva;
Var
  mySet : set of char ;
  s : string;
  ix : byte;
Begin
   write ('введите строку  ');
   readln(s);
       mySet:= ['ш','и','н','а'];
   for ix := 1 to Length (s) do
      mySet := mySet - [ s[ix] ];
   if mySet = [] then writeln (' в тексте имеются все буквы слова "шина" ')
   else writeln (' в тексте имеются НЕ все буквы слова "шина" ');
  readln;
end.

Сообщение отредактировано: Евгений - 17.01.2011 19:12

[volvo]

В вашем варианте компилятор ругается), говорит , что не хорошо константе присваивать.

Это зависит от компилятора и от его настроек. У меня не ругается. Ругаться должно только в Дельфи, и то только при снятой галке "Assignable typed constants". При включенной галке (или после использования директивы {$J+}, чтоб не зависеть от настроек компилера) все будет работать.