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

Сформировать новую строку, в которую включить все слова, длиной не более 4 символов

25.04.2016, 11:49. Показов 2034. Ответов 2
Метки нет (Все метки)

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

Сформировать новую строку, в которую включить слова, состоящие только из латинских букв
Здравствуйте! Есть задача: Задан текст, состоящий из слов, записанных через пробелы или...

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

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

Найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку
найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку, ввод...

2
Почетный модератор
64271 / 47570 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.04.2016, 15:04 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
var s,s1,s2:string;
    i,j,n:integer;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
n:=length(s);
s2:='';
i:=1;
while i<=n do
if (s[i]<>' ')and((i=1)or(s[i-1]=' '))then
 begin
  j:=i;
  s1:='';
  while(s[j]<>' ')and(j<=n) do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if length(s1)<5 then s2:=s2+s1+' ';
  i:=i+length(s1);
 end
else i:=i+1;
if s2='' then write('Нет слов из 1..4 символов')
else write(s2);
end.
0
39 / 39 / 49
Регистрация: 18.12.2015
Сообщений: 127
28.04.2016, 14:15 3
С одним циклом:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var s,s1,s2:string;
    i,n:integer;
begin
 writeln('Введите строку из слов, разделенных пробелами');
 readln(s);
 n:=length(s);
 s1:=''; s2:='';
 i:=1;
 while i<=n do
  begin
   if s[i]<>' '
     then s1:=s1+s[i]
     else begin
       if (s1>'') and (length(s1)<5)
         then s2:=s2+s1+' ';
       s1:='';
       end;
   i:=i+1;
  end;
 if s2=''
   then write('Нет слов из 1..4 символов')
   else write(s2);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.04.2016, 14:15
Помогаю со студенческими работами здесь

Найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку
найти слова в исходной строке длиной не более 3-х символов и составить из них новую строку, ввод...

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

В новый массив собрать все слова с длиной символов 5 и более
Создать два одномерных массива слов.В первый массив собрать все слов с длиной символов 5 и более.Во...

Сформировать новую строку, в которую включены слова по возрастанию их длин. Найти первое цифровое слово и изменить его
Совсем дуб в строках... Помогите кто чем сможет. Сформировать новую строку, в которую включены...


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

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

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