Вывести строку в файл Опции

[NickOlya]

Здравствуйте.Решила почти задачу, надо было удалить вторую букву из каждого слова. Но еще одним условием является вывод получившейся строки в текстовый файл. Как раз это у меня и не получается. Пишет, что файл не найден. Помогите пожалуйста, незнаю как делать.

Код

program ex2;
Uses crt;
var f:text;
s:string;
i,k,l:integer;
BEGIN
ClrSCR;
{assign(f,'c:\TP7\Files\21.pas');
rewrite(f);}
write('Vvedite stroky: ');readln(s);
s:=s+' '; l:=length(s);
k:=0; i:=1;
While i<=l do
begin
If s[i]<>' ' then
 begin
  while s[i]<>' ' do
   begin
    i:=i+1;
    k:=k+1;
    If k=2 then
    delete(s,i-1,1)
   end;
   k:=0;
 end;
 i:=i+1;
end;
writeln(s);
{while not eof(f) do
writeln(f,s);
close(f);}
readln;
END.

[volvo]

NickOlya,

{ в начале программы: }
assign(f, 'result.txt'); { ну, или другое имя файла }
rewrite(f);
...
writeln(f, s); { после вывода строки на экран }
close(f);

[Ozzя]

Вот это убери

while not eof(f) do

[NickOlya]

Я так же вначале и написала, а когда делаю пошаговое выполнение. На строке rewrite(f) мне выдается ошибка , что Part not found.

[NickOlya]

T.е. это из-за

Код

While not eof(f) do?

[Ozzя]

While not eof(f) do

Пока не конец файла делать
У тебя файл пустой (rewrite создает новый пустой файл) и ты сразу идешь на конец файла.
Соответственно, ничего в файл и не пишет.

Сообщение отредактировано: Ozzя - 9.12.2005 15:40

[NickOlya]

Спасибо!

[Ozzя]

NickOlya
Дыкнезачто
Расти большая