0 / 0 / 0
Регистрация: 08.05.2014
Сообщений: 2
1

Подсчитать количество слов в каждой строке

08.05.2014, 20:01. Показов 2958. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите решить задачи на тему Файлы:
1.Дан текстовый файл, состоящий из нескольких строк. Строки содержат слова, разделённые пробелами. Подсчитать количество слов в каждой строке. Результаты с соответствующими комментариями поместить в виде строк в конце исходного файла.
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема. Ваша вторая задача здесь:
2) Определить, сколько чисел в массиве находятся внутри диапазона и вывести их индексы
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2014, 20:01
Ответы с готовыми решениями:

Подсчитать количество слов в данной строке, подсчитать количество букв а в последнем слове
Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать количество букв а в...

Подсчитать количество слов в строке
Дана строка в которой записаны слова отдельные друг от друга одним пробелом, в конце строки стоит...

Подсчитать количество слов в строке
Дана строка,заканчивающаяся точкой.Подсчитать,сколько слов в строке.

Подсчитать количество слов в строке
Дан файл f. В нем текстовая строка. Нужно подсчитать кол.во слов в строке. Мой код Var text:...

1
Фрилансер
3418 / 2815 / 3000
Регистрация: 08.02.2012
Сообщений: 8,590
Записей в блоге: 1
09.05.2014, 08:25 2
Лучший ответ Сообщение было отмечено killerok как решение

Решение

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
26
27
28
29
Const nmax=30;//max количество строк в файле
Var f:text;
    s,sl:string;
    A:array[1..30] of byte;
    i,n:byte;
Begin
    Assign(f,'in.txt');Reset(f);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';inc(n);
      While Pos(' ',s)>0 do
      Begin
        sl:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        if sl<>'' then inc(A[n]);
      End;
    End;
    Close(f);Append(f);
    writeln(f);
    For i:=1 to n do
    Begin
      Str(A[i],sl);
      writeln(f,i,' строка - ',sl);
    End;
    Close(f);
    writeln('Результат в файле "in.txt"');
    readln;
End.
0
09.05.2014, 08:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2014, 08:25
Помогаю со студенческими работами здесь

Подсчитать количество прописных букв в каждой строке
Задано M строк символов, которые вводятся с клавиатуры.Каждая строка представляет собой текст.

Подсчитать количество положительных элементов в каждой строке
Подсчитать количество положительных элементов в каждой строке матрицы размером МхN, элементы...

Подсчитать количество заданных слов в строке
Разработать подпрограмму обработки исходного предложения на русском языке (из 50÷80 знаков, в...

Подсчитать количество слов в введенной строке
Запросить у пользователя произвольные слова пока не введена точка. Подсчитать кол-во слов. ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru