Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Demidow
0 / 0 / 0
Регистрация: 16.09.2012
Сообщений: 7
1

Выведите в алфавитном порядке все согласные буквы, которые не входят ни в одно слово четной длины

02.01.2013, 23:44. Просмотров 986. Ответов 1
Метки нет (Все метки)

Задано предложение, в котором слова отделены одним или несколькими пробелами, в
конце предложения - точка. Выведите в алфавитном порядке все согласные буквы,
которые не входят ни в одно слово четной длины.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.01.2013, 23:44
Ответы с готовыми решениями:

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

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

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

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

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

1
Одиночка
3933 / 1858 / 337
Регистрация: 16.03.2012
Сообщений: 3,869
03.01.2013, 01:17 2
Лучший ответ Сообщение было отмечено Demidow как решение

Решение

Delphi
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
const
  //Множество разделителей.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Множество согласных букв.
  Da = ['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
var
  S : String;
  Dr,Dw : set of Char; //Dr - результирующее множество.
  Ch : Char;
  i, j, Len : Integer;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Наберите текст:');
    Readln(S); //Например: бвджзлмнр, бвгджзлнр, вгджзлмнр.
 
    S:=AnsiLowerCase(S)+' ';
    Len := Length(S);
    Dr := Da;
    j:=0; //Индекс перед предыдущим словом
    for i := 1 to Len do
    if S[i] in D then
    //Разделитель...
    begin
      if Dw<>[] then
      if not Odd(i-j-1) then
      //Если обработанное слово чётной длины
      //В результирующем множестве убираем согласные буквы, которые
      //входят в текущее слово
      Dr := Dr - Dw;
      Dw := [];
      j:=i; //Запоминаем позицию перед очередным словом
    end else
    if (S[i] in Da) then
    //Формируем множество согласных букв, которые входят в текущее слово
    Include(Dw,S[i]);
 
    Writeln;
    Writeln; //Пропустили 2 строки
    //Распечатка согласных букв, которые не входят хотябы в одно слово.
    if Dr = [] then
    Writeln('Нет ни одной согласной буквы, которая бы не входила в слова чётной длины.')
    else
    begin
      Writeln('Перечень согласных букв, которые не входят ни в одно слово чётной длины:');
      i:=0;
      for Ch := Low(Char) to High(Char) do
      if (Ch in Dr) then
      begin
        if i<>0 then Write(', ');
        Write(Ch);
        Inc(i);
      end;
      Writeln;
    end;
 
    Writeln;
    Writeln;
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.01.2013, 01:17

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

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

Напечатать в алфавитном порядке все гласные буквы, которые входят более чем в одно слово
Очень прошу, люди добрые! Желательно с формами. Дана непустая...


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

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

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