Pascal: Даны произвольные текстовые файлы. Напишите функции, которые возвращают количество строк в файле и среднюю длину строк в тексте

Задачку прислали простенькую, но вдруг пригодится:)

Даны произвольные текстовые файлы. Напишите функции, которые возвращают количество строк в файле и среднюю длину строк в тексте

В общем-то нужно уметь читать из файлов, код будет таким:

Function GetStringCountInFileByFilePatch(filePatch:string):integer;
Var
  f:text;
  s:string;
  i:integer;
Begin
  i:=0;
  Assign(f, filePatch);
  Reset(f);
  While not eof(f) do
  Begin
    Readln(f,s);
    Inc(i)
  End;
  GetStringCountInFileByFilePatch := i;
End;
Function GetCharsCountInFile(filePatch:string):integer;
Var
  f:text;
  s:string;
  i:integer;
Begin
  i:=0;
  Assign(f, filePatch);
  Reset(f);
  While not eof(f) do
  Begin
    ReadLn(f,s);
    i := i + s.Length;
  End;
  GetCharsCountInFile := i;
End;
Function GetAverageLenthOfStringsInFile(filePatch:string):real;
Begin
  GetAverageLenthOfStringsInFile := GetCharsCountInFile(filePatch)/GetStringCountInFileByFilePatch(filePatch);
end;
begin
  WriteLn('Количество строк в файле: ', GetStringCountInFileByFilePatch('file.txt'));
  WriteLn('Средняя длина строки: ', GetAverageLenthOfStringsInFile('file.txt'));
  Readln();
end.

Вывод такой:

скрин

Вывод программы на тестовом файле

Тестовый файл

Скачать проект

Добавить комментарий