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

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

11.11.2012, 12:53. Просмотров 1783. Ответов 6
Метки нет (Все метки)

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующим свойствам:
- слово симметрично;
-буквы слова упорядочены по алфавиту.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2012, 12:53
Ответы с готовыми решениями:

Дан текст.Напечатать те слова последовательности ,которые симметричны и отличны от последнего слова
Дан текст.Напечатать те слова последовательности ,которые симметричны и отличны от последнего слова

Напечатать те слова последовательности которые отличны от последнего слова и длина слова максимальна
Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1 до 8 строчных...

Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству
Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего...

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

6
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,961
Записей в блоге: 1
12.11.2012, 12:46 2
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
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.
1
2 / 2 / 0
Регистрация: 07.11.2012
Сообщений: 44
18.11.2012, 11:55  [ТС] 3
СПАСИБО!!! СПАСИБО!!! СПАСИБО!!! Ты мой спаситель)))) Респект тебе огромнейший!!!

Добавлено через 25 минут
А как будет если убрать свойство "симметричности"?))
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,961
Записей в блоге: 1
18.11.2012, 11:58 4
Цитата Сообщение от artemka163rus Посмотреть сообщение
А как будет если убрать свойство "симметричности"?))
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
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.
0
2 / 2 / 0
Регистрация: 07.11.2012
Сообщений: 44
18.11.2012, 12:12  [ТС] 5
Спасибо!) А то я застрял на этой 9 лабе.))))
0
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
20.11.2012, 05:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2012, 05:33
Привет! Вот еще темы с ответами:

Напечатать те слова последовательности, которые отличны от последнего слова
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

Напечатать те слова последовательности, которые отличны от последнего слова
Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных...

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

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


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

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

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