5. Найти самое длиной симметричное слово заданного предложения. паскаль

[tipson]

5. Найти самое длиной симметричное слово заданного предложения.
паскаль

[Stilet]

симметричное слово

Палиндром что ли?

[puporev]

uses crt;
const bk=['A'..'Z','a'..'z','А'..'п','р'..'ё'];
function Simm(st:string):boolean;
var st1:string;
    i:byte;
begin
st1:='';
for i:=length(st) downto 1 do
st1:=st1+st[i];
if st1=st then Simm:=true
else Simm:=false;
end;
var s,s1,s2:string;
    i,mx,k,j:byte;
begin
clrscr;
writeln('Введите предложение:');
readln(s);
i:=1;
mx:=0;
k:=0;
while i<=length(s) do
 begin
  if s[i] in bk then
   begin
    j:=i;s1:='';
    while s[j] in bk do
      begin
       s1:=s1+s[j];
       j:=j+1;
      end;
    writeln(s1);
    if Simm(s1)and(length(s1)>mx) then
     begin
      mx:=length(s1);
      s2:=s1;
      k:=1;
     end;
    i:=i+length(s1)+1;
   end
  else i:=i+1;
 end;
if k=1 then write('Самое длинное симметричное слово ',s2)
else write('Симметричных слов нет!');
readln
end.

[tipson]

не пашет прога
все время пишет симметричных слов нет
симметричные это слова читающиеся одинакого с обоих концов

[profi]

Это полиндромы. Вот http://programmersforum.ru/showthrea...E4%F0%EE%EC%FB

[puporev]

не пашет прога
все время пишет симметричных слов нет

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

[tipson]

puporev,
за прогу, конечно, спасибо,

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


>...ты даже готовой программой не умеешь пользоваться. Ты даже видимо не умеешь правильно тексты вводить...

запустил программу, написал слово kazak ответ "симметричных слов нет", написал слово казак купил шалаш - "симметричных слов нет"
и х. поймешь че там не пашет

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

[puporev]

Пожалуйста, Ваш текст.

[puporev]

Так что пост №6 остается в силе.