Дан текст.Найти все палиндромы(слова-перевёртыши)в етом тексте

[НЕМО170792]

Доброго времени суток ув.форумчане!Нужна ваша помощь в решении задачи по программированию.Язык програмирования-Delphi7.Задача состоит в следующем:Дан текст.Найти все палиндромы(слова-перевёртыши)в етом тексте.заранее благодарен!

[Serge_Bliznykov]

1) поиском пользовались?

2) задача простая - разбиваете текст на отдельные слова.
Каждое слово проверяете (своей функцией) не является ли оно палиндромом.
И всё.

3) Где наработки? что именно не получается?

[Dima170792]

Поиском пользовался.Нашел только вариант на паскале

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   function palind(a:integer):boolean;
    var i,j,e,d:integer;s,s1:string;
      begin
         s1:=inttostr(a);
          for i:=length(inttostr(a)) downto 1 do
          s:=s+s1[i];
             if s=s1 then palind:=true
              else palind:=false;
       end;

 var a,b,i:integer;
begin
   readln(a,b);
    for i:=a to b do
     if (palind(i)=true)and(palind(i*i)=true) then
      write(i,' ');
     readln
end.

пробовал переделать для delphi 7-но уровень знаний очень мал-поэтому не получилось! а требования преподавателя выше того что нам было начитано на лекциях!если несложно-помогите с переводом под Delphi7!

[Mad_Cat]

a,b,i:integer;

а причем тут слова и integer;

Дан текст.Найти все палиндромы(слова-перевёртыши)в етом тексте

(c) Demon-red

var s,s1,s2:string;
i,k:integer;
function Pal(s:string):boolean;
var i:byte;
    s1:string;
begin
s1:='';
for i:=length(s) downto 1 do
s1:=s1+s[i];
if s=s1 then Pal:=true
else Pal:=false;
end;
 
begin;
writeln('Введите слова разделенными пробелами: ');
readln(s);
while pos('  ',s)>0 do
delete(s,pos('  ',s),1);
i:=length(s);
s1:='';
while s[i]<>' ' do
 begin
  s1:=s[i]+s1;
  i:=i-1;
 end;
k:=0;
while pos(' ',s)>0 do
 begin
 s2:=copy(s,1,pos(' ',s)-1);
 if (s2<>s1)and Pal(s2) then
 begin
  write(s2,' ');
  k:=k+1;
  end;
 delete(s,1,pos(' ',s));
 end;
if k=0 then
write('В строке не найдено палиндрома! ');
readln
end.

[Alex11223]

А причем тут числа? В задании же про слова говорится. И если вам нужно консольное приложение Дельфи, то почти никакой разницы с Паскалем нет.

[Dima170792]

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

А причем тут числа? В задании же про слова говорится. И если вам нужно консольное приложение Дельфи, то почти никакой разницы с Паскалем нет.

В ТОМ ТО И ВСЯ ПРОБЛЕМА-Я НЕМОГУ ОКОННОЕ ПРИЛОЖЕНИЕ СО СЛОВАМИ ОРГАНИЗОВАТЬ( ОБЬЯСНИТЕ ЧТО НУЖНО ПЕРЕДЕЛАТЬ?

[Alex11223]

Ну вставить на форму какой-нибудь Мемо1 или Эдит1, в него ввести текст, нажать Кнопку1 и по ее нажатию сделать поиск палиндромов (основная часть в коде выше, а у вас был для чисел, а не для слов) там, где их ввели и вывести их куда-нибудь, в Мемо2, например. Можно еще сделать счетчик или boolean, чтобы если их вообще нет вывести соответствующее сообщение.
Если что, могу сделать за небольшое вознаграждение, контакты в подписи)