Текстовый файл. Подсчитать в нем количество слов, символов, абзацев.

[Xeon332]

Дан текстовой файл my.txt. Вывести его содержимое на экран (с организацией постраничных пауз вывода). Подсчитать в нем количество слов, символов, абзацев (считать, что абзац заканчивается признаком конца строки). Вывести статистику в текстовой файл stat.txt.

Начал писать код:

const
Var
f1,f2: text;
a: array[1..n] of byte;
i: 1..n;
begin
assign(f1,'c:\my.txt')
rewrite(f1);
assign(f2,'c:\stat.txt')
rewrite(f2);


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

[Sibedir]

Для начала, файл "my.txt" лучше открыть для чтения а не для записи:
reset(f1);
Вывод на экран:
writeln (s);
В отличии от writeln (f2, s), которая записывает в файл, writeln (s) без указания файла выводил информацию непосредственно на экран.

Подсчитать в нем количество слов, символов, абзацев

Все уже обсуждалось:
http://programmersforum.ru/showthread.php?t=1106
http://www.programmersforum.ru/showt...E+%F1%EB%EE%E2
Вот обобщенно по вопросу:

program TextFile;
uses
  Crt;
var
  F1, F2: Text;
  CharCount, WordCount, LineCount: Integer;
  i: Integer;
  s: String;
  c: Char;
  f: Boolean;
begin
  Assign (F1, 'my.txt');
  Assign (F2, 'stat.txt');

  Reset (F1);
  Rewrite (F2);

  CharCount := 0;
  WordCount := 0;
  LineCount := 0;
  while not EOF (F1) do begin
    readln (F1, s);
    Inc (LineCount);
    Inc (CharCount, Length (s));
    f := True;
    for i := 1 to Length (s) do begin
      if (s[i] <> ' ') and f then begin
        Inc (WordCount);
        f := False;
      end;
      if (s[i] = ' ') and (not f) then begin
        f := True;
      end;
    end;

    writeln (s);
    c := readkey;
  end;

  writeln (F2, 'Символов: ', CharCount);
  writeln (F2, 'Слов: ', WordCount);
  writeln (F2, 'Абзацев: ', LineCount);

  Close (F1);
  Close (F2);
end.

[Xeon332]

Огромнейшее спасибо!! Очень признателен!!!

[Antoxer_92]

Помогите пожалуйста написать программу! Дан текстовый файл!!! подсчитать в нём количество слов содержащих хотя бы одну букву m!!!!! Т.е. нам нужно открыть этот файл, и подсчитав в нём колличество слов , содержащих хотябы одну букву m, вывести на экран.