Переписать текстовый файл в другой, вставляя в конец каждой строки число, количество слов

@kolbka · Регистрация: 29.10.2012

Студворк — интернет-сервис помощи студентам

переписать текстовый файл в другой, вставляя в конец каждой строки число, количество слов

@ZzzzoOk · 06.04.2013, 18:04

Pascal

var
  inp, outp: text;
  i, count: integer;
begin
  assign(inp, 'inp'); assign(outp, 'outp');
  reset(inp); rewtrite(outp);
  while not eof(inp) do begin
    readln(inp, s);
    for i:=1 to length(s) do
      if (s[i] = ' ') then inc(count);
    inc(count);
    writeln(outp, s);
  end;
  writeln(outp, count);
  close(inp); close(outp);
end.

@kolbka · 07.04.2013, 17:35 **[ТС]**

не работает

Добавлено через 7 минут
Нужно считать в каждой строке количество слов и в конце каждой строки вставить число - кол-во слов именно этой строки. Если подряд 2 пробела стоят, тогда как быть?

@ZzzzoOk · 07.04.2013, 22:43

Pascal

var
  inp, outp: text;
  i, count: integer;
  s: string;
  firstSpace: boolean;
 
begin
  assign(inp, 'inp'); assign(outp, 'outp');
  reset(inp); rewtrite(outp);
  firstSpace:=true;
  while not eof(inp) do begin
    readln(inp, s); count:=0;
    for i:=1 to length(s) do begin
      if (s[i] = ' ') and (firstSpace) then begin inc(count); firstspace:=false; end;
      if s[i] <> ' ' then firstspace:=true;
    end;
    inc(count);
    writeln(outp, s + ' ' + count);
  end;
  writeln(outp, count);
  close(inp); close(outp);
end.

@kolbka · 13.04.2013, 01:20 **[ТС]**

Не всегда правильно считает. Если в строке только пробелы - то выводит что 1 слово.
Немного переделал:

Pascal

var
  inp, outp: text;
  i,count: integer;
  s:string;
begin
  assign(inp, 'd:\inp.txt'); assign(outp, 'd:\outp.txt');
reset(inp); rewrite(outp);
  while not eof(inp) do
  begin
    readln(inp, s);
    for i:=2 to length(s) do
      if (s[i] = ' ')and(s[i-1]<>' ') then inc(count);
      if count<>0 then
    writeln(outp,s, count+1)
    else
    writeln(outp,s, ' 0');
    count:=0;
  end;
  close(inp); close(outp);
end.

но не правильно считает, если в строке только 1 слово, что изменить?

@ZzzzoOk · 13.04.2013, 10:38

Pascal

1	if ((s[i] = ' ') or (i = length(s))) and(s[i-1]<>' ') then inc(count);

@kolbka · 13.04.2013, 12:06 **[ТС]**

как быть, если в строке только одна буква , например "А" без пробела, прога пишет что 0, а если 2 буквы "ты" тогда хорошо считает

@ZzzzoOk · 13.04.2013, 22:19

Pascal

var
  inp, outp: text;
  i, count: integer;
  s: string;
  firstLetter: boolean;
 
begin
  assign(inp, 'inp'); assign(outp, 'outp');
  reset(inp); rewtrite(outp);
  while not eof(inp) do begin
    readln(inp, s); count:=0; firstLetter:=true;
    for i:=1 to length(s) do begin
      if (s[i] <> ' ') and (firstLetter) then begin inc(count); firstLetter:=false; end;
      if (s[i] = ' ') and (s[i+1] <> ' ') then firstLetter:=true;
    end;
    writeln(s, ' ', count);
  end;
  close(inp); close(outp);
end.

@Slava22-12 · 22.05.2013, 16:35

ZzzzoOk,
а как можно

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

while not eof(inp) do begin
* * readln(inp, s); count:=0; firstLetter:=true;

заменить на repeat?
пробовал так:
repeat
readln(inp,s); count:=0;
firstletter:=true;
until(eof(inp));

но после запуска программы у меня почему-то в файле outp.txt показывает правильно лишь последнюю строчку
помоги, пожалуйста

@ZzzzoOk · 23.05.2013, 01:29

Slava22-12,

Pascal

var
  inp, outp: text;
  i, count: integer;
  s: string;
  firstLetter: boolean;
 
begin
  assign(inp, 'inp'); assign(outp, 'outp');
  reset(inp); rewrite(outp);
  repeat
    readln(inp, s); count:=0; firstLetter:=true;
    for i:=1 to length(s) do begin
      if (s[i] <> ' ') and (firstLetter) then begin inc(count); firstLetter:=false; end;
      if (s[i] = ' ') and (s[i+1] <> ' ') then firstLetter:=true;
    end;
    writeln(outp, s, ' ', count);
  until eof(inp);
  close(inp); close(outp);
end.

@Slava22-12 · 23.05.2013, 11:39

спасибо большое!

Переписать текстовый файл в другой, вставляя в конец каждой строки число, количество слов

Решение

Решение

Решение

@kolbka 0 / 0 / 0 Регистрация: 29.10.2012 Сообщений: 32
		1
	Переписать текстовый файл в другой, вставляя в конец каждой строки число, количество слов 06.04.2013, 17:43. Показов 1723. Ответов 10 Метки нет (Все метки) переписать текстовый файл в другой, вставляя в конец каждой строки число, количество слов 0

@kolbka 0 / 0 / 0 Регистрация: 29.10.2012 Сообщений: 32
	07.04.2013, 17:35 [ТС]	3
	не работает Добавлено через 7 минут Нужно считать в каждой строке количество слов и в конце каждой строки вставить число - кол-во слов именно этой строки. Если подряд 2 пробела стоят, тогда как быть? 0

@kolbka 0 / 0 / 0 Регистрация: 29.10.2012 Сообщений: 32
	13.04.2013, 12:06 [ТС]	7
	как быть, если в строке только одна буква , например "А" без пробела, прога пишет что 0, а если 2 буквы "ты" тогда хорошо считает 0

@Slava22-12 0 / 0 / 0 Регистрация: 22.05.2013 Сообщений: 8
	22.05.2013, 16:35	9
	ZzzzoOk, а как можно Сообщение от ZzzzoOk while not eof(inp) do begin * * readln(inp, s); count:=0; firstLetter:=true; заменить на repeat? пробовал так: repeat readln(inp,s); count:=0; firstletter:=true; until(eof(inp)); но после запуска программы у меня почему-то в файле outp.txt показывает правильно лишь последнюю строчку помоги, пожалуйста 0

@Slava22-12 0 / 0 / 0 Регистрация: 22.05.2013 Сообщений: 8
	23.05.2013, 11:39	11
	спасибо большое! 0

Опции темы