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

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

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

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству:предпоследняя буква слова входит в него еще раз;
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2012, 18:16
Ответы с готовыми решениями:

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

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

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

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

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

1
Krot-buterbrod
88 / 88 / 75
Регистрация: 21.08.2011
Сообщений: 149
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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2012, 18:32

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

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

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


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

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

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