Работа со Строками

@beka91 · Регистрация: 13.12.2009

Author24 — интернет-сервис помощи студентам

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

Требуется выделить слова из текста и каждое слово записать в соответствующий элемент массива.Напечатать те слова которые отличны от последнего слова и удовлетворяют следующему свойству.
а)Слово симметрично
б)Первая буква слова входит в него ещё раз

Добавлено через 1 час 26 минут
........................

@кот Бегемот · 02.11.2010, 01:56

Pascal

var
s:string;
a:array[1..100]of string;
i,f,t,j,k:integer;
begin
readln(s);
s:=' '+s;
for i:=1 to length(s) do
if s[i]<>' 'then a[k]:=a[k]+s[i] else if s[i+1]<>' 'then inc(k);
for i:=1 to k-1 do
if a[i]<>a[k] then
begin
f:=0;
t:=0;
 for j:=1 to (length(a[i]) div 2) do
 if a[i][j]<>a[i][length(a[i])-j+1]then f:=1;
if f=0 then
for j:=2 to length(a[i])do
if a[i][j]=a[i][1]then inc(t);
if (f=0)and(t=1)then writeln(a[i]);
end;
readln;
end.

Под фразой

б)Первая буква слова входит в него ещё раз

подразумевается, что первая буква входит в слово ещё ровно 1 раз, в противном случае это условие вообще излишне - в симметричных словах первая буква обязательно повторяется

@beka91 0 / 0 / 0 Регистрация: 13.12.2009 Сообщений: 50
		1
	Работа со Строками 01.11.2010, 22:18. Показов 1106. Ответов 1 Метки нет (Все метки) Дана строка текста. Группы символов, разделенных одним или несколькими пробелами назовём словами.Пробелы могут находиться как в начале, так и в конце текста. Требуется выделить слова из текста и каждое слово записать в соответствующий элемент массива.Напечатать те слова которые отличны от последнего слова и удовлетворяют следующему свойству. а)Слово симметрично б)Первая буква слова входит в него ещё раз Добавлено через 1 час 26 минут ........................ 0

	02.11.2010, 01:56

Опции темы

Работа со Строками

Решение