Напечатать те слова, которые отличны от последнего и симметричны / буквы слова расположены по алфавиту

@artemka163rus · Регистрация: 07.11.2012

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

@CodeR · 12.11.2012, 12:46

Pascal

Var s,s1,s2,sl:string;
    i,j:byte;
Begin
    write('Введите строку: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    sl:='';
    For i:=Length(s) downto 1 do
     if s[i]<>' ' then sl:=sl+s[i]
      else break;
    Delete(s,i,Length(s));
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if (s1<>'')and(s1<>sl) then
      Begin
        s2:='';
        For i:=Length(s1) downto 1 do
         s2:=s2+s1[i];
        j:=1;
        For i:=1 to Length(s1)-1 do
         if s1[i]>s1[i+1] then j:=0;
        if (j=1)or(s1=s2) then writeln(s1);
      End;
    End;
    readln;
End.

@artemka163rus · 18.11.2012, 11:55 **[ТС]**

СПАСИБО!!! СПАСИБО!!! СПАСИБО!!! Ты мой спаситель)))) Респект тебе огромнейший!!!

Добавлено через 25 минут
А как будет если убрать свойство "симметричности"?))

@CodeR · 18.11.2012, 11:58

Сообщение от artemka163rus

А как будет если убрать свойство "симметричности"?))

Pascal

Var s,s1,sl:string;
    i,j:byte;
Begin
    write('Введите строку: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    sl:='';
    For i:=Length(s) downto 1 do
     if s[i]<>' ' then sl:=sl+s[i]
      else break;
    Delete(s,i,Length(s));
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if (s1<>'')and(s1<>sl) then
      Begin
        j:=1;
        For i:=1 to Length(s1)-1 do
         if s1[i]>s1[i+1] then j:=0;
        if (j=1) then writeln(s1);
      End;
    End;
    readln;
End.

@artemka163rus · 18.11.2012, 12:12 **[ТС]**

Спасибо!) А то я застрял на этой 9 лабе.))))

@artemka163rus · 20.11.2012, 00:10 **[ТС]**

Artem7, Как мне связаться с тобой?)))

@CodeR · 20.11.2012, 05:33

Не по теме:

Сообщение от artemka163rus

Artem7, Как мне связаться с тобой?)))

в профиле ICQ

@artemka163rus 2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 44
		1
	Напечатать те слова, которые отличны от последнего и симметричны / буквы слова расположены по алфавиту 11.11.2012, 12:53. Просмотров 1783. Ответов 6 Метки нет (Все метки) Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующим свойствам: - слово симметрично; -буквы слова упорядочены по алфавиту. 0

@artemka163rus 2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 44
	18.11.2012, 11:55 [ТС]	3
	СПАСИБО!!! СПАСИБО!!! СПАСИБО!!! Ты мой спаситель)))) Респект тебе огромнейший!!! Добавлено через 25 минут А как будет если убрать свойство "симметричности"?)) 0

@artemka163rus 2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 44
	18.11.2012, 12:12 [ТС]	5
	Спасибо!) А то я застрял на этой 9 лабе.)))) 0

@artemka163rus 2 / 2 / 0 Регистрация: 07.11.2012 Сообщений: 44
	20.11.2012, 00:10 [ТС]	6
	Artem7, Как мне связаться с тобой?))) 0

@CodeR
	20.11.2012, 05:33 Напечатать те слова, которые отличны от последнего и симметричны / буквы слова расположены по алфавиту #7
	Не по теме: Сообщение от artemka163rus Artem7, Как мне связаться с тобой?))) в профиле ICQ 0

Опции темы