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

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

29.04.2012, 18:16. Показов 1503. Ответов 1
Метки нет (Все метки)

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

Напечатать только те слова, в которые первые буква слова входит хотя бы еще один раз
Прошу помощи) в составлении программы, HELPPP ME please Напечатать только те слова заданного...

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

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

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

1
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 151
29.04.2012, 18:32 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a: array [1..50] of string[8];
    st: string;
    sl, i, j, b: integer;
begin
     write('Строка: '); readln(st);
     st[length(st)]:=' ';
     repeat
           inc(sl);
           a[sl]:=copy(st,1,pos(' ',st));
           delete(st,1,pos(' ',st));
     until st='';
     for i:=2 to sl do begin
         b:=0;
         for j:=1 to length(a[i]) do
             if (a[i][length(a[i])-1]=a[i][j]) then inc(b);
         if a[i]=a[1] then a[i]:='';
         if b<>2 then a[i]:='';
     end;
     write('Вывод: '); for i:=2 to sl do write(a[i])
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2012, 18:32

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

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

Напечатать те слова последовательности, которые отличны от первого слова
Написать 2 программы: 1) Задав с клавиатуры последовательность символов, реализовать обработку...

Напечатать те слова последовательности, которые отличны от первого слова
ЦЕЛЬ РАБОТЫ. Задав с клавиатуры последовательность символов, реализовать обработку ее, как указано...


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

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

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