Технический форум - Строки. Pascal

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Строки. Pascal (http://www.tehnari.ru/f41/t34813/)

Строки. Pascal

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

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

Код HTML:

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.

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

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

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

Не за что :-)