Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
1

программа для подсчета, сколько N-символьных слов (число N вводится пользователем) содержится во введенной строке символов

12.03.2010, 09:19. Показов 1524. Ответов 1
Метки нет (Все метки)

нужна программа для подсчета, сколько N-символьных слов (число N вводится пользователем) содержится во введенной строке символов...
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2010, 09:19
Ответы с готовыми решениями:

Напишите пожалуйста программу, считающую число слов, заканчивающихся и начинающихся одной и той же буквой, в строке, введенной пользователем.
Напишите пожалуйста программу, считающую число слов, заканчивающихся и начинающихся одной и той же...

Программа для подсчета пробелов во введенной пользователем строке
#include <stdio.h> // Задані заголовочні файли є в #include <string.h> // пакеті VC++ // і...

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

Узнать, содержится ли в строке, введенной пользователем сочетание букв «ао»
Нужно решить 2 задачи. 1)Узнать, содержится ли в строке, введенной пользователем сочетание букв...

1
13077 / 5862 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
12.03.2010, 10:28 2
Лучший ответ Сообщение было отмечено nikolaii как решение

Решение

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
program Project1;
 
(*Находит и подсчитывает в тексте aStr слова, состоящие ровно из aN символов.*)
function GetWords(const aStr : String; const aN : Word; var aWordCnt : Word) : String;
const
  (*Множество разделителей.*)
  Delims = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9)];
var
  (*Индекс символов в строке.*)
  i : Integer;
  (*Индекс конца очередного слова.*)
  Pos2 : Integer;
  (*Отдельные слова в тексте.*)
  StrTmp : String;
  (*Результирующая строка.*)
  StrRes : String;
  (*Счётчик букв в слове.*)
  CharCnt : Word;
begin
  aWordCnt := 0;
  StrRes := '';
  StrTmp := '';
  CharCnt := 0;
  Pos2 := 0;
  for i := 1 to Length(aStr) do begin
    (*Если очередной символ является разделителем - пропускаем итерацию.*)
    if aStr[i] in Delims then Continue;
 
    (*Обрабатываем очередную букву слова.*)
    StrTmp := StrTmp + aStr[i];
    Inc(CharCnt);
    (*Отслеживаем конец слова.*)
    if i = Length(aStr) then
      Pos2 := i
    else if aStr[i + 1] in Delims then
      Pos2 := i
    ;
    (*Если конец слова найден.*)
    if Pos2 > 0 then begin
      if CharCnt = aN then begin
        if StrRes <> '' then StrRes := StrRes + ', ';
        StrRes := StrRes + StrTmp;
        Inc(aWordCnt);
      end;
      CharCnt := 0;
      StrTmp := '';
      Pos2 := 0;
    end; //if Pos2
  end; //for i
 
  GetWords := StrRes;
end;
 
var
  StrSrc, StrRes, StrTmp : String;
  N, WordCnt : Word;
begin
  repeat
    Writeln('Введите строку:');
    Readln(StrSrc);
    Writeln('Задайте количество символов в искомых словах:');
    Readln(N);
    StrRes := GetWords(StrSrc, N, WordCnt);
    Writeln('Слова, состоящие ровно из ', N:2, ' букв:');
    if WordCnt > 0 then
      Writeln(StrRes)
    else
      Writeln('Таких слов нет в заданном тексте.')
    ;
    Writeln('Повторить - ENTER. Выход - любой символ + ENTER.');
    Readln(StrTmp);
  until StrTmp <> '';
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2010, 10:28

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

Определить сколько раз каждое слово содержится во введенной строке
Определить сколько раз каждое слово содержится во введенной строке. {1}^{2} = 1

Программа для подсчета символов в строке с указателями
Добрый день. Есть вот такая программа: #include &lt;stdio.h&gt; int quan (char *s) { int i=0;...

В строке, вводимой пользователем, определить сколько слов в строке, составить новое предложение из чётных слов
В строке вводимой пользователем, определить сколько слов в строке, составить новое предложение из...


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

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

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