[Appolinariya_]

Программа меняет порядок следования слов на обратный.
Возникла проблема с выводом строки в файл. При запуске программы открывается пустое окно вывода результата на экран, файл не создается. В чем ошибка? Сама функция смены порядка слов отдельно работает правильно. Помогите с ВВОДОМ и ВЫВОДОМ! Срочно!

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

program Project1; {$APPTYPE CONSOLE} uses  SysUtils; var  str:string; procedure vvodstr(var str:string);  var  fin:TextFile; begin  AssignFile(fin,'File1.txt');  Reset(fin);  readln(fin,str);  CloseFile(fin); end; function smena (str:string):string; var  pr:integer; begin  Result:='';  while Length(str)>0 do  begin   pr:=Pos(' ',str);   Insert(Copy(str,1,pr),Result,1);   Delete(str,1,pr);   if pr=0 then    begin    Insert(str+' ',Result,1);   end;   pr:=0;  end; end; procedure vivodres;   var  fout:TextFile; begin  AssignFile(fout,'File2.txt');  Rewrite(fout);  write(fout,smena(str));  CloseFile(fout); end; begin  vvodstr(str);  smena(str);  vivodres; end.

[Rosenkrantz]

У вас последнее слово не удаляется из строки, цикл никогда не заканчивается (функция smena). То есть до записи результатов процесс даже не доходит.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

function smena (str:string):string; var  pr:integer; begin  Result:='';  while Length(str)>0 do  begin   pr:=Pos(' ',str); // Здесь неплохо бы на 0 проверять результат поиска   Insert(Copy(str,1,pr),Result,1);   Delete(str,1,pr);   if pr=0 then   begin // Вот здесь сделайте что-нибудь с исходной строкой // Например после инсерта напишите str := ''    Insert(str+' ',Result,1);   end;   pr:=0; // Эта строка совершенно не нужна  end; end;