Задачку прислали простенькую, но вдруг пригодится:)
Даны произвольные текстовые файлы. Напишите функции, которые возвращают количество строк в файле и среднюю длину строк в тексте
В общем-то нужно уметь читать из файлов, код будет таким:
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.
Вывод такой:
Вывод программы на тестовом файле