profile
Опубликовано 6 лет назад по предмету Информатика от magikvalowfawq

Функция, которая возвращает среднюю длину слов текста
Даны произвольные текстовые файлы.
Помогите, пожалуйста.

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
    Внимание! Если программа не работает, обновите версию!

    function AvgLen(fn:string):real;
    begin
      if FileExists(fn) then
        Result:=ReadAllText(fn).ToWords.Select(w->w.Length).Average
      else
        Result:=0
    end;

    begin
      Writeln(AvgLen(ReadlnString('Имя файла:')):0:2)
    end.

    Примеры
    Имя файла: input.txt
    5.42

    Имя файла: Pushkin2.txt
    5.20

    Имя файла: Pascal.txt
    7.02
Самые новые вопросы