Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Levzer
0 / 0 / 0
Регистрация: 10.06.2013
Сообщений: 16
1

Подсчитать количество слов, состоящих из трех букв

17.06.2013, 23:26. Просмотров 425. Ответов 4
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program number;
Var 
    f1,f2: text;
    i: integer;
    s,sl: string;
    k: byte;
begin
    assign(f1, 'D:/1.txt');
    reset(f1);
    readln(f1,s);
    close(f1);
    s := s + ' '; 
    sl := '';
    for i := 1 to length(s) do
        if s[i] <> ' ' then sl := sl + s[i];
            begin
                if length(sl)=3 then inc(k);
                sl := '';
            end;
 
    assign(f2, 'D:/2.txt');
    Rewrite(f2);
    Write(f2, 'Символов в файле: ', length(s)-1, ' Трех значных слов: ', k);
    close(f2);
end.
Ни как не могу понять почему не считает трех значные символы.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.06.2013, 23:26
Ответы с готовыми решениями:

Подсчитать в тексте количество слов, состоящих из одинаковых букв
Добрый день, помогите, пожалуйста! Составьте программу подсчета в тексте...

Подсчитать количество слов, состоящих только из заглавных латинских букв
Подсчитать количество слов, состоящих только из заглавных латинских букв. ...

Подсчитать количество слов, состоящих только из строчных букв, но начинающихся с большой буквы
Подсчитать количество слов, состоящих только из строчных букв, но начинающихся...

В исходном файле подсчитать количество слов начинающихся с заданных букв
В исходном файле подсчитать количество слов начинающихся с букв ‘a’, ‘е’, ‘и’,...

Количество слов, состоящих из одного, двух, трех и т.д. символов в текстовом файле
Дан текстовый файл. Считая, что количество букв в одном слове не превосходит...

4
palva
3101 / 2233 / 450
Регистрация: 08.06.2007
Сообщений: 8,135
Записей в блоге: 4
17.06.2013, 23:31 2
После 15-й строки надо поставить
Pascal
1
else
1
Levzer
0 / 0 / 0
Регистрация: 10.06.2013
Сообщений: 16
17.06.2013, 23:54  [ТС] 3
пишет ожидался оператор
0
palva
3101 / 2233 / 450
Регистрация: 08.06.2007
Сообщений: 8,135
Записей в блоге: 4
18.06.2013, 08:10 4
Убрать в 15-й строке точку с запятой в конце.
0
Striker
Ведущий программист C#
240 / 219 / 154
Регистрация: 19.08.2012
Сообщений: 498
Записей в блоге: 1
18.06.2013, 08:15 5
Цитата Сообщение от Levzer Посмотреть сообщение
Ни как не могу понять почему не считает трех значные символы.
Всё он считает.
0
Миниатюры
Подсчитать количество слов, состоящих из трех букв  
18.06.2013, 08:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.06.2013, 08:15

Найти количество слов, состоящих только из гласных букв
Всем привет. Требуется найти количество слов (слова отделены пробелом),...

Дана строка символов. Определить количество слов, состоящих из четырех букв
Дана строка символов. Определить количество слов состоящих из четырех букв. ...

Изменить программу так, чтобы определить количество слов, состоящих из одного, двух, трех и более слогов
Изменить программу так, чтобы определить количество слов, состоящих из одного,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru