Дан текстовый файл. Подсчитать, сколько слов в каждой строке

@Anastasiaya · Регистрация: 11.04.2017

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

нужно чтоб программа открыла файл ,считала текст и посчитала слова в строках

@Puporev · 19.06.2018, 09:35

Pascal

const rz=[' ',',','.','!','?'];//разделители слов, можно добавить в зависимости от текста
var f:text;
    s:string; //строка
    i,k,n:byte;
begin
assign(f,'text.txt');//файл в папке с программой
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  inc(k);
  s:=' '+s; //добавим пробел в начало для удобства
  n:=0;//количество слов
  for i:=2 to length(s) do
  if not(s[i]in rz)and(s[i-1]in rz) then inc(n);//если не разделитель, а перед ним разделитель
                                               //новое слово
  writeln('Строка ',k,' кол.слов=',n);
 end;
close(f);
end.

@Anastasiaya 1 / 1 / 0 Регистрация: 11.04.2017 Сообщений: 49
		1
	Дан текстовый файл. Подсчитать, сколько слов в каждой строке 19.06.2018, 09:22. Показов 2121. Ответов 1 Метки нет (Все метки) нужно чтоб программа открыла файл ,считала текст и посчитала слова в строках 0

Опции темы

Дан текстовый файл. Подсчитать, сколько слов в каждой строке

Решение