Строки. Pascal

[cerlag]

Строки. Pascal

Программа должна удалять каждое четное слово и записывать наоборот каждое нечетное.
Например:
Исходный текст:велик и могуч русский язык
Выходной текст:килев чугом кызя

Вот, что написал я. Программа работает только в том случае, если строка line_out чему то равна, если она изначально пустая, то туда ничего не записывается. Как с этим справиться?

program stroki_chet_nechet;
uses CRT;
var   i,d,j,k:integer;
       wd1,wd2:integer {wd1-начало слова, wd2-конец слова}
       line_in,line_out:string;
begin
ClrScr;
writeln('Введите текст:');
readln(line_in);

d:=0;
k:=0;
wd1:=1;
i:=1;
while i<=length(line_in) do
 begin
 if line_in[i]=' ' then
  begin
   inc(k);
   if k mod 2=0 then
    wd1:=i+1;
   if k mod 2<>0then
    begin
     wd2:=i;
     inc(d);
      for j:=wd2 downto wd1 do
       begin
        line_out[d]:=line_in[j];
        inc(d);
        writeln(line_out);
       end;
    end;
  end;
 inc(i);
 end;

writeln(line_out);
readln
end.

 

[Long Cat]

Есть два способа исправить - плохой и хороший.
Плохой:
Дописать в конце программы (перед writeln) line_out[0]:=d;
Хороший: добавлять символы в line_out вот так: line_out:=line_out+line_in[j];
Самый лучший: забросить Паскаль куда подальше и изучать СИ.

Причины проблемы: Паскаль хранит длину строки в символе с индексом[0]. Соответственно, для новой строки эта длина равна неизвестно чему, и writeln не знает, что печатать.
Если же вы что-то запишите в line_out, длина этого чего-то запишется в line_out[0] и все заработает.

 

[cerlag]

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

 

[Long Cat]

Не за что