множества Опции

[Sqrin]

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами – запятая или не менее одного пробела, за последним словом - точка.
Напечатать те слова последовательности, которые отличны от последнего слова и
удовлетворяют следующему свойству:
- в слове гласные чередуются с согласными;
Напечатать те слова последовательности, которые отличны от последнего слова,
предварительно преобразовав каждое из них по следующему правилу:
- если слово нечетной длины, то удалить его среднюю букву.


напишите плиз

[klem4]

Не уверен что отрабатывает полностью правильно, так что не бейте , здесь вариант с фиксированным числом записей, взгляните :

uses crt;
const
   limits=[' ',',','.'];
   glasn=['q','e','y','u','i','o','a'];
   sogl=['a'..'z']-glasn;
var
   s,ss:string;
   ch:char;
   posl:array[1..50] of string[8];
   i,j,k,n:integer;
   flag:boolean;

Begin
   clrscr;

   write('n='); readln(n);

   j:=0;
   repeat
      s:='';
      i:=0;
      repeat
         inc(i);
         ch:=readkey;
         write(ch);
         if not (ch in limits) then
          s:=s+ch;
      until (ch in limits)or(i=8);
      inc(j);
      posl[j]:=s;
   until j=n;

   writeln;

   for i:=1 to n do
    if (posl[i]<>posl[n])or(n=1) then begin
         ss:=posl[i];
         if odd(length(ss)) then
          delete(ss,length(ss) div 2 + 1,1);

         flag:=true;

         k:=1;

         case ss[k] in glasn of
           True : begin

               while(k<=length(ss))and(flag) do
                if not((ss[k] in glasn)and(ss[k+1] in sogl)) then
                 flag:=false
                else inc(k,2);

               if flag then
                writeln('YES : ',posl[i]);
           end;

           False : begin
               while(k<=length(ss))and(flag) do
                if not((ss[k] in sogl)and(ss[k+1] in glasn)) then
                 flag:=false
                else inc(k,2);

               if flag then
                writeln('YES : ',posl[i]);
           end;
        end;
     end;

   readln;
end.

если надо, можно сделать такойже ввод, только без фиксированного числа последовательностей

Сообщение отредактировано: klem4 - 16.06.2005 19:08