Подсчитать количество символов слов и предложений в текстовом файле на языке pascal

Категория: Delphi/Pascal
2011-08-28 22:44:47
code: #pascal
  1. procedure Counter(var symbols,words,sentences:integer);
  2. var f:text;
  3.      letter:char;
  4.      end_of_word, end_of_sentence:boolean;
  5. begin
  6. symbols:=0;
  7. words:=0;
  8. sentences:=0;
  9. end_of_word:=false;
  10. end_of_sentence:=false;
  11. assign(f,'file.txt');
  12. reset(f);
  13. while not eof(f) do
  14. begin
  15.   Read(f,letter);
  16.   symbols:=symbols+1;
  17.   if letter in [' ' , '.' , ',' , ';' , ':' , '-', #10, #13, #9] then
  18.   begin
  19.     if not end_of_word then
  20.       words:=words+1;
  21.     end_of_word:=true;
  22.     if not end_of_sentence and (letter='.') then
  23.     begin
  24.       end_of_sentence:=true;
  25.       sentences:=sentences+1
  26.     end;
  27.   end
  28.   else
  29.   begin
  30.     end_of_word:=false;
  31.     end_of_sentence=false
  32.   end;
  33. end;
  34. if not end_of_word then
  35.   words:=words+1;
  36. if not end_of_sentence then
  37.   sentence:=sentences+1;
  38. close(f);
  39. end;
Поделиться:

Похожие статьи:

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