Задача с файлами.

[bygoga]

Дан текстовый файл (во вложении) на английском языке. Текс из него нужно скопировать в другой текстовый файл и в этом втором файле перед началом каждой нечетной строки вставить количество знаков препинания ( . , ; ! ? " ) в этом файле.

[Викдон]

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

[alex_fcsm]

uses crt;
var n,i:integer;
    f,f1:text;
    ch:char;

begin
assign(f,'c:\lab10.txt');
reset(f);
assign(f1,'c:\lab10Out.txt');
rewrite(f1);
n:=0;
while not eof(f) do
 begin
   read(f,ch);
   if (ch=',') or (ch='.') or (ch='!') or (ch='?')or (ch=';')or (ch=#39) then inc(n);
 end;
close(f);
assign(f,'c:\lab10.txt');
reset(f);
i:=1;
while not eof(f) do
 begin
 if i mod 2 =1 then write(f1,n);
 repeat
  read(f,ch);
  write(f1,ch);
 until ch='.';
 read(f,ch);
 write(f1,ch);
 if ch =' ' then inc(i)
    else i:=2;
 end;
end.

[bygoga]

Перед началом КАЖДОЙ нечетной строки нужно вставить количество знаков препинания, которые есть именно в этой строке.

[alex_fcsm]

а разве не так?

[bygoga]

Твоя прога пишет кол-во знаков препинания не в данной строке, а во всем файле, и лепит их где попало.

[alex_fcsm]

Сообщение от bygoga

Дан текстовый файл (во вложении) на английском языке. Текс из него нужно скопировать в другой текстовый файл и в этом втором файле перед началом каждой нечетной строки вставить количество знаков препинания ( . , ; ! ? " ) в этом файле.

Ставит перед нечетным предложением, а символы подсчитывает во всем файле как и написано

[alex_fcsm]

Несложно переделать было бы желание

uses crt;
var n,i:integer;
    f,f1:text;
    ch:char;
    s:string;

begin
assign(f,'c:\lab10.txt');
reset(f);
assign(f1,'c:\lab10Out.txt');
rewrite(f1);
n:=0;
while not eof(f) do
 begin
   read(f,ch);
   if (ch=',') or (ch='.') or (ch='!') or (ch='?')or (ch=';')or (ch=#39) then inc(n);
 end;
close(f);
assign(f,'c:\lab10.txt');
reset(f);
i:=1;
while not eof(f) do
 begin
 if i mod 2=1 then begin
                    write(f1,n);
                    write(f1,' ');
                   end;
 readln(f,s);
 writeln(f1,s);
 inc(i);
 end;
end.

[puporev]

Вот нормальный код, только учтите, что программа понимает под строкой массив длиной 255 символов. И если Вы не развернете блокнот на всю ширину, Вы увидите искаженную картину.

uses crt;
const zn=['.',',',';',':','?','!'];
var n,i,k:integer;
    f,f1:text;
    s,s1:string;
begin
assign(f,'lab10.txt');
reset(f);
assign(f1,'lab10Out.txt');
rewrite(f1);
n:=0;
while not eof(f) do
 begin
   inc(n);
   readln(f,s);
   if odd(n) then
     begin
       k:=0;
       for i:=1 to length(s) do
       if s[i] in zn then k:=k+1;
       str(k,s1);
       insert(s1,s,1);
       writeln(f1,s);
     end
   else writeln(f1,s);
  end;
close(f);
close(f1);
writeln('Fail lab10Out zapisan!');
readln
end.

Вот пример этого файла.

[bygoga]

Всем спасибо, особенно puporev!