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

Между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать слова больше 1

09.01.2013, 00:12. Показов 1929. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Если дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 10 символов; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать слова больше 1.
(желательно использовать ф-ции работы со строками)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2013, 00:12
Ответы с готовыми решениями:

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

Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного
Напишите пожалуйста код :-* Дана последовательность, содержащая от 2 до 50 слов, в каждом из...

Напечатать все слова, совпадающие с последним словом
Дана строка состоящая из слов(слова разделены одним пробелом). Напечатать все слова совпадающие с...

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

1
13107 / 5888 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
09.01.2013, 10:33 2
Лучший ответ Сообщение было отмечено hero_b как решение

Решение

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

Заданная последовательность слов от 1 до 30 слов, в каждом от 1 до 5 латинских букв. Между соседними словами - запятая за последний словом точка. выве
Здраствуйте решите пожалуста такую задачку: Заданная последовательность слов от 1 до 30 слов, в...

Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитно
Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая,...

последовательность, содержащая от 10 до 30 слов, в каждом от 1 до 5 знаков, между словами запятая, за последним точка. Напечатать слова из цифр
Дана последовательность, содержащая от 10 до 30 слов(либо только цифры, либо только буквы), в...

МНОЖЕСТВО.дана не пустая последовательность слов из строчных русских букв,между соседними словами запятая,за последним -точка.
дана не пустая последовательность слов из строчных русских букв,между соседними словами запятая,за...


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

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

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