Найти обратные слова

[Basiclan]

Дан текст заканчивающейся точкой. Вывести все слова из этого текста в котором первые 2 буквы встречаются еще раз подряд, но в обратном порядке.( пример :САВРАСЫЙ, ПОТОП)

[ololo-schoolboy]

А где здравствуйте? Где пожалуйста помогите решить? совсем люди оборзели... XD

[Basiclan]

Сообщение от ololo-schoolboy

А где здравствуйте? Где пожалуйста помогите решить? совсем люди оборзели... XD

sorry please help me

[Mad_Cat]

язык7 сроки7 бюджет7

[Sparkman]

function IsIt(s:string):boolean;
var i:integer;
begin
     IsIt:=false;
     for i:=3 to length(s)-1 do
     if s[2]+s[1]=s[i]+s[i+1] then
     begin
          IsIt:=true;
          break;
     end;
end;

function findIt(x:string):string;
const b:set of byte=[65..90,97..122,128..175,224..241];//для кодировки 866
var s,t:string;
    i:integer;
begin
     t:='';
     s:='';
     for i:=1 to length(x) do
     if ord(x[i]) in b then
        t:=t+x[i]
     else
     begin
          if IsIt(t) then
          s:=s+t+' ';
          t:='';
     end;
     if ord(x[i]) in b then
     if IsIt(t) then
     s:=s+t;
     findIt:=s;
end;

usage:

readln(text);
writeln(findIt(text));

[Serge_Bliznykov]

Sparman, а с чёго Вы решили, что автору топика нужен Паскаль?!

Кроме того, обычно решают задачу разбиения на слова чуток по другому - оговаривается, что является РАЗДЕЛИТЕЛЕМ слов, и все символы между разделителями являются словами. такое_вот_например_одно_слово....

Впрочем, можно и так.
а ещё можно записать Вашу константу так:

const Letters : set of char=['A'..'Z','a'..'z','А'..'Я','а'..'п','р'..'я','Ё','ё']; {для кодировки 866}
...
  for i:=1 to length(x) do
    if x[i] in Letters then

p.s. я отнюдь не критикую Ваше решение. Похоже, что оно вполне рабочее!
просто решение, записанное через разделители слов сразу становится универсальным - и будет работать вне зависимости от кодировки исходной строки!
да и наглядность только улучшится...

[Sparkman]

1)

Sparkman, а с чёго Вы решили, что автору топика нужен Паскаль?!

Дан текст заканчивающейся точкой. Вывести все слова из этого текста в котором первые 2 буквы встречаются еще раз подряд, но в обратном порядке.( пример :САВРАСЫЙ, ПОТОП)

язык не указан, сообщение в разделе - помощь студентам, студенты начинают с изучения паскаля, если они не смогут интерпретировать код паскаля в код другого языка - то это их сложность;
2)

Кроме того, обычно решают задачу разбиения на слова чуток по другому - оговаривается, что является РАЗДЕЛИТЕЛЕМ слов, и все символы между разделителями являются словами. такое_вот_например_одно_слово....

свой метод решения интереснее, чем общепринятый (его можно и погуглить). я тоже не сильно отношусь к людям, подающим все готовое на блюдечке с голубой каёмочкой, поэтому иногда добавляю немного соли в код
3)

такое_вот_например_одно_слово

у нас общий случай (опять же ТС ничего не оговорил ), поэтому в моем коде - все что не состоит из букв - не является словом;
4)

Впрочем, можно и так.
а ещё можно записать Вашу константу так:

const Letters : set of char=['A'..'Z','a'..'z','А'..'Я','а'..'п','р'..'я','Ё','ё']; {для кодировки 866}
...
  for i:=1 to length(x) do
    if x[i] in Letters then

у меня в паскале русские буквы не печатаются, поэтому я все перевел в ASCII код

p.s. я отнюдь не критикую Ваше решение. Похоже, что оно вполне рабочее!
просто решение, записанное через разделители слов сразу становится универсальным - и будет работать вне зависимости от кодировки исходной строки!
да и наглядность только улучшится...

п. 2

[Serge_Bliznykov]

у меня в паскале русские буквы не печатаются

1) можете воспользоваться любым текстовым редактором (хоть Far Commander, хоть "продвинутым" блокнотом, лишь бы редактор поддерживал кодировку OEM (она же 866)

2) а почему не хотите настроить нормально DOS сессию? Это совсем не сложно...
и даже во всех факах на Windows XP есть...

свой метод решения интереснее, чем общепринятый

Я понимаю, что свой способ всегда интереснее. Просто я указал на недостатки этого Вашего метода. (неочевидность кода - не видно, где какие буквы, очень плохая совместимость и переносимость)...
Ну, согласен, что это лично Ваши (и тех, кто воспользуется Вашим решением) трудности. Каждый волен выбирать для себя...

[Basiclan]

Сообщение от Serge_Bliznykov

Sparman, а с чёго Вы решили, что автору топика нужен Паскаль?!

Кроме того, обычно решают задачу разбиения на слова чуток по другому - оговаривается, что является РАЗДЕЛИТЕЛЕМ слов, и все символы между разделителями являются словами. такое_вот_например_одно_слово....

Впрочем, можно и так.
а ещё можно записать Вашу константу так:

const Letters : set of char=['A'..'Z','a'..'z','А'..'Я','а'..'п','р'..'я','Ё','ё']; {для кодировки 866}
...
  for i:=1 to length(x) do
    if x[i] in Letters then

p.s. я отнюдь не критикую Ваше решение. Похоже, что оно вполне рабочее!
просто решение, записанное через разделители слов сразу становится универсальным - и будет работать вне зависимости от кодировки исходной строки!
да и наглядность только улучшится...

Ссори за что в начале не указал язык мне нужно было на с++? Буду очень очень признателен если было б на с++.Заранее всем огромное спасибо

[ololo-schoolboy]

На c++ можно так, правда это кривой вариант но он работает:

#include<iostream>
#include<locale.h>

using namespace std;

int main()
{
char str[]="САВРАСЫЙ, ПОТОП";
int start_word=0;

setlocale (LC_ALL,"rus");

for(int i=0;str[i] && str[i+3];++i)
{
	if(str[i]==' ' || str[i+1]==' ')
	{
		do{
			++i;
		}while(str[i]==' ');
		start_word=i;
	}
	for(int j=i+2, k=0;str[j+1] && str[j+1]!=' ';++j)
		if(str[i]==str[j+1] && str[i+1]==str[j])
		{
			for(k=start_word;str[k]!=' ' && str[k];++k)
				cout.put(str[k]);
			cout<<endl;
			i=str[k]?k:k-1;
			start_word=k+1;
			break;
		}
}
cin.get();
return 0;
}

ps мб кто знает какой крутой алгоритм как это можно сделать ? ну типа произвести сортировку подсчетом, а потом.... ну или что ни буть в таком духе, а еще круче регулярными выражениями, а то самому интересно....