profile
Размещено 5 лет назад по предмету Информатика от oxxi05

Задача 2. Текст.
Разочарованный результатами его последнего конкурса, Дима бросил программирование и сосредоточился исключительно на кропотливой работе, но с участием меньше интеллектуальных усилий. На этот раз, он получает текст и должен вычислить среднюю длину слов текста, слово определяется как непрерывная последовательность символов английского алфавита ('a' .. 'z' , 'A' .. 'Z'). Определим среднюю длину = (общая длина слов текста) / (число слов текста).
Задание:
Написать программу, которая решит эту проблему Димы.
Входные данные
В первой строке входного файла text.in содержится данный текст.
Вывод данных
Выходной файл text.out будет содержать в первой строке целое число, которое представляет среднюю длину слов по всему тексту.
Ограничения:
- размер входного файла не превосходит 1 Мб
- Входной файл будет содержать только прописные и строчные буквы, цифры, пробелы и символы (т.е. не содержат специальные символы)

  1. Ответ на вопрос
    Ответ на вопрос дан Gleb1Kosyrev
    //Pascal ABC.NET v3.0 сборка 1111

    type
     ty=set of char;

    Const
     t:ty=['a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'];

    Var
     f:text;
     s:string;
     i,slo,ks:integer;
     k:real;
    begin
     assign(f,'text.in');
     reset(f);
     while not Eof(f) do read(f,s);
     close(f);
     slo:=0;
     ks:=0;
     for i:=1 to length(s) do
     if s[i] in t then inc(slo) else
      begin;
       k:=k+slo;
       inc(ks);
       slo:=0;
      end;
     if s[length(s)] in t then
      begin;
       inc(ks);
       k:=k+slo;
      end;
     k:=k/ks;
     assign(f,'text.out');
     rewrite(f);
     write(f,k);
     close(f);
     end. 

    Пример ввода(text.in):
    SIMPLE text
    Пример вывода(text.out):
    5
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.