Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
72 / 5 / 4
Регистрация: 18.03.2013
Сообщений: 227
1

Удаление из строки слов, длина которых меньше К символов

31.05.2015, 16:06. Просмотров 2336. Ответов 1
Метки нет (Все метки)

Удалить слова из заданного текста, длина которых меньше К символов.

Добавлено через 17 часов 56 минут
помогите, пожалуйста, ничего не получается. со строками у меня беда....
пример заключается в том, что бы ввести с клавиатуры строку
и ввести количество
ну например:
привет мой лучший друг
к=5
получится: привет лучший
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2015, 16:06
Ответы с готовыми решениями:

В строке символов определить количество слов, в которых длина меньше указанной пользователем
Здравствуйте, нужна ваша помощь. Задачу нужно сделать с использованием темы "Строки...

Удаление из строки слов, длина которых меньше заданной
Удалить из строки слова,длина которых меньше заданной,решите пожалуйста,за ранее спасибо)))

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

Удалить из входной строки все слова длина которых меньше L символов
Здравствуйте пользователи этого форума, мне нужна ваша помощь. Напишите программу на языке...

1
13042 / 5828 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
02.06.2015, 09:01 2
Лучший ответ Сообщение было отмечено pk_100 как решение

Решение

Цитата Сообщение от pk_100 Посмотреть сообщение
Удалить слова из заданного текста, длина которых меньше К символов.
Решение:
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
program Project1;
 
const
  {Множество разделителей слов.}
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var
  S : String;
  i, Len, LenW : Integer;
begin
  repeat
    Writeln('--------------------------------------------------');
    Write('Задайте строку: ');
    Readln(S);
    Write('Задайте длину: ');
    Readln(Len);
 
    LenW := 0; {Длина текущего слова.}
    {Перебор символов строки справа - налево. Таким образом алгоритм не будет
    зависеть от изменений длины строки.}
    for i := Length(S) downto 1 do
      if not (S[i] in D) then {Если текущий символ принадлежит слову.}
      begin
        Inc(LenW); {Учитываем текущий символ в длине слова.}
        if (i = 1) or (S[i - 1] in D) then {Если обнаружено начало слова.}
        begin
          if LenW < Len then    {Если длина слова оказалась меньше заданной.}
            Delete(S, i, LenW); {Удаление слова.}
          LenW := 0; {Сброс длины текущего слова.}
        end;
      end;
 
    Writeln('Строка после обработки:');
    Writeln(S);
 
    Write('Повторить - Enter. Выход - любой символ + Enter. ');
    Readln(S);
  until S <> '';
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2015, 09:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Удалить из строки все слова, длина которых меньше пяти символов
Удалить из строки все слова, длина которых меньше пяти символов. В строке не используются знаки...

Удалить из строки все слова, длина которых меньше пяти символов
Удалить из строки все слова,длина которых меньше пяти символов.В строке не используются знаки...

Удалить из строки все слова, длина которых меньше пяти символов
1. Вывести на экране строку, введенную пользователем, по диагонали. 2. Добавить в строку пробелы...

Удалить из строки все слова, длина которых меньше пяти символов
Доброго времени суток, условие в заголовке. Возможно ли добавить символ к строке? #include...


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

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

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