Как найти симметричные слова в строке?

Question

Я пытался сделать эту работу некоторое время. Мне нужно сделать программу для школьного проекта, которая берет строку и учитывает в ней симметричные слова.

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

EDIT: мой текущий код

program rocnik; 
var text:string; 
    word,drow:string[10]; 
    i,j,k,p1:integer; 
    space,sym:boolean; 

begin 
    p1:=0; 
    write('Enter text: ');readln(text); 
    if text<>'' then 
    begin 
      for i:=1 to length(text) do 
      begin 
       k:=0; 
       if space then 
       begin 
        j:=0; 
        space:=false; 
       end; 
       sym:=true; 
       if text[i]<>' ' then 
       begin 
        j:=j+1; 
        word[j]:=text[i]; 
       end 
       else space:=true; 
       if space then 
       begin 
        space:=false; 
        for j:=1 to length(word) do 
        begin 
         k:=k+1; 
         drow[k]:=word[j]; 
         if drow[k]<>word[j] then sym:=false; 
        end; 
       end; 
       if space and sym then p1:=p1+1; 
      end; 
    end 
    else writeln('You didnt enter any text'); 
    writeln('there are ',p1,' symmetrical words in text'); 
    readln; 
end. 

Answer 1

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

Вам действительно нужно только проверить симметричное слово в конце каждого слова. Я предлагаю иметь строку, которая представляет текущее слово. Когда вы сталкиваетесь с каждым символом на входе, посмотрите, является ли это пространством. Если это не пробел, добавьте этот символ в строковую переменную currentWord.

Каждый раз, когда вы сталкиваетесь с пространством, вы должны проверить currentWord на симметрию, затем очистить переменную currentWord.

Ваш код пытается отдельно отслеживать длину слова. Это требует ошибок. Вы можете задать строку для текущей длины, используя функцию length.

Так что ваш код должен сводиться к следующему:

Обратите внимание, что это псевдо-Паскаль - Я пытаюсь не передать вам копировать-вставить ответ, так что вы научитесь

currentWord := '' 
for each character do 
begin 
    if this character is not a space then 
     add the character to the currentWord 
    else 
     if wordIsSymmetrical(currentWord) then 
      print word or add to count as needed 
     end 
     currentWord := '' 
    end 
end 
if currentWord <> '' then 
    if wordIsSymmetrical(currentWord) then 
     print word or add to count as needed 
    end 
end 

... и добавьте функцию под названием wordIsSymmetrical, которая проверяет только строковый параметр, который мы передаем ему.

Обратите внимание, что в конце вы можете иметь слово, не встречая пробела. Здесь вы также можете использовать wordIsSymmetrical для проверки.

Это проще сделать?