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

Вывести слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву

07.06.2014, 20:30. Показов 5937. Ответов 4
Метки нет (Все метки)

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

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

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

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

Напечатать все слова, отличные от последнего слова, преобразовав по правилу: перенести первую букву в конец слова
Помогите пожалуста решыть: 10.18. Программа. Дана последовательность, содержащая от 2 до 30 слов,...

4
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,260
Записей в блоге: 1
08.06.2014, 07:53 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var s,sl,st:string;
    i:byte;
Begin
    write('Последовательность слов: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    i:=Length(s);
    While (s[i]<>' ')and(i<>0) do
    Begin
      st:=s[i]+st;
      Delete(s,i,1);
      dec(i);
    End;
    While Pos(' ',s)>0 do
    Begin
      sl:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if (st<>sl)and(Length(sl)>1) then writeln(Copy(sl,1,Length(sl)-1));
    End;
    readln;
End.
1
0 / 0 / 0
Регистрация: 07.06.2014
Сообщений: 3
08.06.2014, 19:40  [ТС] 3
Благодарю
0
0 / 0 / 0
Регистрация: 28.02.2016
Сообщений: 13
28.02.2016, 19:30 4
а что нужно сделать, чтобы во всех словах последняя буква удалялась (не только в отличных от последнего)???
0
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,260
Записей в блоге: 1
01.03.2016, 14:36 5
Цитата Сообщение от Sienna Посмотреть сообщение
а что нужно сделать, чтобы во всех словах последняя буква удалялась (не только в отличных от последнего)???
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var s,st:string;
    i:byte;
Begin
    write('Последовательность слов: ');readln(s);
    if s[Length(s)]='.' then Delete(s,Length(s),1);
    s:=s+' ';
    While Pos(' ',s)>0 do
    Begin
      writeln(Copy(s,1,Pos(' ',s)-2);
      Delete(s,1,Pos(' ',s));
    End;
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2016, 14:36

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

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

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

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


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

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

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