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

Дано предложение, состоящее не менее чем из 5 слов. Напечатать все слова из предложения, содержащие ровно две буквы "d".

10.03.2010, 01:36. Показов 3055. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожайлуста решить лабу:

Дано предложение, состоящее не менее чем из 5 слов.
Напечатать все слова из предложения, содержащие ровно две
буквы "d".
Очень нужно.
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2010, 01:36
Ответы с готовыми решениями:

Дано предложение, состоящее не менее из 10 слов. Напечатать все слова из предложения, в которых ...
Нужна помощь) Есть задачка. Дано предложение, состоящее не менее из 10 слов. Напечатать все слова...

Напечатать все слова из предложения, содержащие ровно две буквы буквы "d"
Дано предложение, состоящее не менее чем из 5 слов.Напечатать все слова из предложения,...

Напечатать все слова, содержащие ровно две маленькие латинские буквы
Здравствуйте, есть пример решения данной задачи: #include <stdio.h> #include <ctype.h> #define...

Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D
Дана строка из 25 слов. Вывести на экран все слова строки, содержащие ровно две буквы D. Заранее...

Слова предложения, содержащие две или более одинаковые буквы переместить в другое предложение
Здраствуйте. Помогите пожалуйста с написанием программы на С (не ++). "Введите предложение....

4
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
10.03.2010, 01:51 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
33
34
35
36
37
uses
  Crt;
  
const
  dividers = [' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
 
function F(s: string; ch: char): byte;
var
  i,c: byte;
begin
  c := 0;
  for i := 1 to Length(s) do
    if s[i] = ch then
      Inc(c);
  F := c
end;
 
var
  s,temp: string;
  i: integer;
begin
  ClrScr;
  ReadLn(s);
  temp := '';
  WriteLn('Íàéäåííûå ñëîâà: ');
  for i := 1 to Length(s) do
  begin
    if not (s[i] in dividers) then
      temp := temp + s[i];
    if ((s[i] in dividers) or (i = Length(s))) and (temp <> '') then
    begin
      if F(temp, 'd') = 2 then
        Write(temp, ' ');
      temp := '';
    end
  end;
end.
3
13 / 13 / 0
Регистрация: 24.06.2009
Сообщений: 28
10.03.2010, 12:25  [ТС] 3
Спасибо большое просто спасаешь

Добавлено через 10 часов 20 минут
Блин тут надо без множеств

Добавлено через 17 секунд
Блин тут надо без множеств
1
Retired
7727 / 2559 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
10.03.2010, 16:03 4
Kasper89, ну можешь заменить проверку на множество проверкой на пробел. Правда при этом у тебя будет один только разделитель - пробел. Все остальное будет относиться к словам.
2
13 / 13 / 0
Регистрация: 24.06.2009
Сообщений: 28
12.03.2010, 01:21  [ТС] 5
спасибо большое! вот мой вариант как у меня приняли:
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
uses
  Crt;
 
 
function F(s: string; ch: char): byte;
var
  i,c: byte;
begin
  c := 0;
  for i := 1 to Length(s) do
    if s[i] = ch then
      Inc(c);
  F := c
end;
 
var
  s,temp: string;
  i: integer;
begin
  ClrScr;
  writeln('Введите строку из 5 слов:');
  ReadLn(s);
  temp := '';
  WriteLn('Найденные слова: ');
  for i := 1 to Length(s) do
  begin
    if  ((s[i] <> ' ') or (s[i] <> '.'))then
      temp := temp + s[i];
    if ((s[i] = ' ') or (s[i] = '.')) or (i = Length(s)) and (temp <> '') then
    begin
      if F(temp, 'd') = 2 then
        Write(temp, ' ');
      temp := '';
    end
  end;
end.
1
12.03.2010, 01:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2010, 01:21
Помогаю со студенческими работами здесь

Строка: Вывести все слова строки, содержащие ровно две буквы d.
(язык программирования Си) ................................................. Здравствуйте!), ...

В предложении найти и вывести на экран все слова, содержащие ровно две буквы “d”
Всем привет! Помогите написать программу! В предложении найти и вывести на экран все слова,...

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

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

Строки: Напечатать все слова, содержащие две рядом стоящие одинаковые буквы
Напечатать все слова, со-держащие две рядом стоящие одинаковые буквы. Как мне в моем коде выводить...

Напечатать все слова, содержащие две рядом стоящие одинаковые буквы на Питоне!
Нужно напечатать все слова, содержащие две рядом стоящие одинаковые буквы. Заранее спасибо!


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

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

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