Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/25: Рейтинг темы: голосов - 25, средняя оценка - 4.76
1 / 1 / 0
Регистрация: 14.06.2012
Сообщений: 11
1

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

14.06.2012, 20:11. Просмотров 4830. Ответов 1
Метки нет (Все метки)

Удалить из строки все слова,длина которых меньше пяти символов.В строке не используются знаки препинания. решите пожалуйста,за ранее спасибо)))
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2012, 20:11
Ответы с готовыми решениями:

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

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

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

Удалить из третьей строки все слова, длина которых меньше пяти символов
С клавиатуры вводится строка, состоящая из слов и чисел (целых и вещественных), отделенных друг от...

1
1 / 1 / 2
Регистрация: 29.02.2012
Сообщений: 48
14.06.2012, 21:00 2
Лучший ответ Сообщение было отмечено шевелева как решение

Решение

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
program del;
var s: string;
    len, i, j: integer;
begin
write('Vvedite stroku: ');
readln(s);
len:= length(s);
 i:= 1; {начинаем с первого символа в строке}
 j:= 0; {сначала длина слова ровна нулю}
  while i<=len do begin
   if s[i] <> ' ' then begin {если очередной символ не пробел} 
   j:=j+1; {увеличиваем длину слова}
   i:=i+1; {переходим к следующей букве}
    end
     else begin 
       if j < 5 then begin  {если длинна слова < 5} 
                delete(s,i-j,j+1); {вырезаем вместе с пробелом после слово}
                len:= length(s);
                i:= i-j; 
                j:= 0; {обнуляем длину слова}
            end
            else begin {если длина слова > 5}
                i:= i+1; {переходим к следующей букве}
                j:= 0; {обнуляем длину слова}
            end;
        end;
    end;
if j < 5 then {если последнее слова  < 5 букв}
 delete(s,i-j,j);
 writeln(s);
 readln;
 end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.06.2012, 21:00

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

Удалить из строки все слова, длина которых меньше пяти символов. В строке не используются знаки препинания
Ребят , не могу решить , помогите пожалуйста. #include &quot;pch.h&quot; #include &lt;Windows.h&gt; #include...

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

Удалить все слова, длина которых меньше 3 символов
Дан текст. Удалить все слова, длина которых меньше 3 символов. Все слова, длина которых больше 3...

Из заданной строки символов удалить слова, длина которых меньше указанной пользователем
Из заданной строки символов удалить слова, длина которых меньше указанной пользователем int n,...


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

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

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