Текстовый файл: подсчитать количество слов

ant-10-10-08

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

ребята помоги плиз!
у меня файл более 1000 символов
мне надо посчитать кол-во слов в нем (у меня читает только первые 255 символов)

@CodeR · 15.11.2012, 13:09

ant-10-10-08, потому когда ты считываешь из файла строку то в паскале она ограничена размером 255 символов
так что тебе надо чтобы в каждой строке файла было не более 255 символов
А потом

Pascal

While not Eof(f) do //пока не конец файла
Begin
   readln(f,s);//считываем очередную строку из файла
   //что то делаем
End;

@КонецСвета · 15.11.2012, 13:50

ant-10-10-08, в данном случае лучше считывать текстовый документ как файл символов, подсчитывая пробелы и переходы на другой абзац
(решение для PascalABC)

Pascal

uses crt;
var f: file of char;
    k: integer;
    c: char;
begin
assign(f,'D:\in.txt');
reset(f);
while not (eof(f)) do
      begin
      read(f,c);
      if (c=' ') or (c=#13) then inc(k);
      end;
close(f);
write(k);
end.

@AvaII · 12.12.2013, 10:46

Сообщение от КонецСвета

uses crt;
var f: file of char;
k: integer;
c: char;
begin
assign(f,'D:\in.txt');
reset(f);
while not (eof(f)) do
begin
read(f,c);
if (c=' ') or (c=#13) then inc(k);
end;
close(f);
write(k);
end.

Можете пояснить 11-ю строку? Спасибо

@ermolay · 12.12.2013, 16:23

Сообщение от КонецСвета

if (c=' ') or (c=#13) then inc(k);

Сообщение от КонецСвета

подсчитывая пробелы и переходы на другой абзац

(#13 - переход на другой абзац)

ant-10-10-08
		1
	Текстовый файл: подсчитать количество слов 15.11.2012, 01:52. Показов 7106. Ответов 4 Метки нет (Все метки) ребята помоги плиз! у меня файл более 1000 символов мне надо посчитать кол-во слов в нем (у меня читает только первые 255 символов)

@AvaII 0 / 0 / 0 Регистрация: 18.10.2013 Сообщений: 36
	12.12.2013, 10:46	4
	Сообщение от КонецСвета uses crt; var f: file of char; k: integer; c: char; begin assign(f,'D:\in.txt'); reset(f); while not (eof(f)) do begin read(f,c); if (c=' ') or (c=#13) then inc(k); end; close(f); write(k); end. Можете пояснить 11-ю строку? Спасибо 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	12.12.2013, 16:23	5
	Сообщение от КонецСвета if (c=' ') or (c=#13) then inc(k); Сообщение от КонецСвета подсчитывая пробелы и переходы на другой абзац (#13 - переход на другой абзац) 1

Опции темы

Текстовый файл: подсчитать количество слов

Решение