Помогите пожалуйста найти ошибки в программе

[Asira]

Дана строка S, слова в которой разделены пробелами и знаками препинания.
В каждом слове поменять местами левую и правую половины. Например, из слова “задача” получится “ачазад”. Если количество букв нечетное, то среднюю букву оставить на месте

Код: [Выделить]

{$APPTYPE CONSOLE}

uses
  SysUtils;
const znaki=',.";: -?!';
 var s,s2,s1,s3:string;
     ns,ks,i,j,k,p,m:integer;

begin
writeln('Enter string ');
 readln(s);
 k:=1;
while k<=length(s) do
  begin
  k:=1;
   while (pos(s[k],znaki)<>0) and (k<=length(s)) do
    k:=k+1;
    ns:=k;
   while (pos(s[k],znaki)=0) and (i<=length(s)) do
    i:=i+1;
    ks:=i;
if i mod 2 =0 then
p:= i div 2;

s1:= copy(s,ns,p);

s2:=copy(s,p+1,p);

s3:=s2+s1;

writeln(s3);
if i mod 2<>0 then
s1:= copy(s,ns,p);
s2:=copy(s,p,p);
s3:=s2+s1;
writeln(s3);
end;
writeln(s3);
readln;
end.

[InfStudent]

Вобще то задача очень простая:изменить порядок следования символов на обратный)

[Данила]

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

[Asira]

Ничем пользоваться не умею......... первокурсница я только...... так что мозгов маловато ........  не работает это значит она слова не в ту сторону разворачивает..........
InfStudent  если задача лёгкая дак помоги........!!!!!!!!

[InfStudent]

Сейчас я как раз тебе код пишу

[Данила]

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

[InfStudent]

Ну вот код который переваричивает строку:

{$APPTYPE CONSOLE}

uses
  SysUtils;
 procedure GetWordAndReverse(s:string;sw:string);
 var
 i:integer;
 j:integer;
 c:char;
 begin
  sw:=copy(s,1,4);
  j:=length(sw);
  for I := 1 to j-1 do
   begin
   c:=sw;
   sw:=sw[j];
   sw[j]:=c;
   dec(j);
   writeln(sw);
   end;
     writeln(sw);
   end;

 var
 s,sw:string;
begin
write('Enter word:');
readln(s);
GetWordAndReverse(s,sw);
readln;
end.

[Asira]

Код: [Выделить]

[size=10pt][size=10pt]{$APPTYPE CONSOLE}

uses
  SysUtils;

const znaki=',.";: -?!' ;
function Perestanovka(s: string): string;
var
  l,p:integer;
begin
  l:= length(s);p:= l div 2;
  if l mod 2 = 0  then
  begin
s := s + copy(s, 1, p);
Delete(s, 1, p);
  end
  else
  begin
    s := s + copy(s, p + 1, 1) + copy(s, 1, p);
    Delete(s, 1, p + 1);
  end;
   Perestanovka:= s;
end;


 var k,i: Integer;
  S, s1: String;
begin
writeln('Enter string ');
 readln(s);
 i:=1;

while i<=length(s) do
  begin
//i:=1;
while (pos(s[i],znaki)=0) and (i<=length(s))do

//s1:=' ';
s1:= s1 + s[i];
Inc(i);
write(Perestanovka(s1));
//end;
 while (pos(s[i],znaki)<>0) and (i<=length(s))do
 write(s[i]);
Inc(i);
end;
Readln;
  Readln;
end.[/size][/size]Проблема в том как правильно сделать чтоб моя функция переворачивала каждое слово в строке

[Данила]

разбейте строку на слова,запихните все слова в массив,а уж там будете переворачивать

[Asira]

а зачем в массив то засовывать??? без него никак???

[samar]

а зачем в массив то засовывать??? без него никак???

Можно и нужно. Если вы начнете хранить слова массиве, вам также прийдется как-то запоминать символы, которыми эти слова разделяются

[samar]

Код: [Выделить]

const
  separator='., ';
 
var
  s : string;
  i, beginWord, j : integer;
  ch : char;
 
begin
  s:='word,word2.res wer';
  beginWord:=1;
 
  for i:=1 to length(s) do begin
    if pos(s[i],separator)<>0 then begin
      if (i-beginWord>1) then begin
        for j:=1 to (i-beginWord) div 2 do begin
          ch:=s[beginWord+j-1];
          s[beginWord+j-1]:=s[i-j];
          s[i-j]:=ch;         
        end;       
      end;
      beginWord:=i+1;
    end;
  end;
 
  writeln(s);
 
end.
у меня такое решение получилось. могут быть неточности, т.к. я давно уже на Паскале не программировал.

[Данила]

без массива можно,но так проще

можно так:
получили 1ое слово,развернули его,вывели,идете далее,так же со 2ым и последующими словами...но вот дважды к одному слову вы не сможете обратиться