Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 3
Регистрация: 12.12.2012
Сообщений: 33
1

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

16.02.2013, 22:58. Показов 1525. Ответов 1
Метки нет (Все метки)

Дан текст, состоящий из латинских букв. Между соседними словами – не менее одного пробела; за последним словом – точка. Напечатать те слова текста, которые отличны от последнего слова и в которых буквы упорядочены по алфавиту.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.02.2013, 22:58
Ответы с готовыми решениями:

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

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

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

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

1
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,263
Записей в блоге: 1
17.02.2013, 08:35 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
29
Var f:text;
    s,s1,sk:string;
    b:boolean;
    i:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      if s[Length(s)]='.' then Delete(s,Length(s),1);
      sk:='';
      For i:=Length(s) downto 1 do
       if s[i]=' ' then break
        else sk:=s[i]+sk;
      Delete(s,i,Length(sk));
      s:=s+' ';
      While Pos(' ',s)>0 do
      Begin
        s1:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        b:=true;
        For i:=1 to Length(s1)-1 do
         if s1[i]>s1[i+1] then b:=false;
        if b then write(s1,' ');
      End;
      writeln;
    End;
    readln;
End.
Не проверял на работоспособность)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2013, 08:35

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

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

Напечатать слова, отличные от последнего, в которых буквы упорядочены по алфавиту
Дана последовательность. Напечатать те слова последовательности, которые отличны от последнего...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru