Напечатать в алфавитном порядке: все строчные русские согласные буквы

@HalSaw · Регистрация: 18.12.2009

Студворк — интернет-сервис помощи студентам

МНОЖЕСТВА
Текст задан строкой, напечатать в алфавитном порядке: все строчные русские согласные буквы (все, кроме гласных и й,ь,ъ), входящие в текст. // скобочку не понял в задании...
1)

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
program class7;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const rs=['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','ц','х','ч','ш','щ'];
type M=set of char;
   var s:string;
       a:M;
 
  procedure Perevod(s:string; var a:M);
   var i:integer;
   begin
    a:=[];
    for i:=1 to length(s) do
    if s[i] in rs  then
    begin
    a:=a+[s[i]];
    end;
   end;
 
  procedure PrintSet(a:M);
  var ch:char;
  begin
   for ch:=#224 to #255 do
    if ch in a then write(ch);
  end;
begin
  readln(s);
  Perevod(s,a);
  PrintSet(a);
  readln;
end.

^ Пока пробую без больших, но не получается. Выводит, почти все буквы после 'c'...
Второе задание помогите)
2) Все звонкие согласные буквы, которыми заканчиваются нечетные слова

Сообщение от Puporev

HalSaw, Этот код нормально работает в Паскале, я проверил. В консоли Делфи с кодировкой русских букв какие-то проблемы, выдает не то.

Что делать?)

Добавлено через 2 часа 6 минут
1) Напечатать все строчные русские согласные буквы (все, кроме гласных и й,ь,ъ), входящие в текст.

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
program six;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const rs=[#161,#162,#163,#164,#166,#167,#170,#171,#172,#173,#175,#224,#225,#226,#228,#229,#230,#231,#232,#233];
type M=set of char;
   var s:string;
       a:M;
 
  procedure Perevod(s:string; var a:M);
   var i:integer;
   begin
    a:=[];
    for i:=1 to length(s) do
    if s[i] in rs  then
    begin
    a:=a+[s[i]];
    end;
   end;
 
  procedure PrintSet(a:M);
  var ch:char;
  begin
  write('Soglasnie : ');
   for ch:=#0 to #255 do
    if ch in a then write(ch);
  end;
begin
write('Enter your string: ');
  readln(s);
  Perevod(s,a);
  PrintSet(a);
  readln;
end.

^ Рабочая программа
2) Все гласные буквы, которые не входят более, чем в одно слово
^ Нужна помощь)

Добавлено через 1 час 6 минут
не уж то не знает никто)

Добавлено через 14 часов 11 минут
апапап

@Mawrat · 27.02.2010, 10:41

Задача 2.

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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils
 
  ,Windows;
 
//Возвращает строку, которая содержит гласные буквы, которые встречаются не более,
//чем в одном слове строки aStr.
function GetA(const aStr : String) : String;
const
  //Множество разделителей.
  Delims = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9)];
  //Множество гласных букв.
  A = ['А', 'а', 'Е', 'е', 'И', 'и', 'О', 'о', 'У', 'у', 'Ы', 'ы', 'Э', 'э', 'Ю', 'ю', 'Я', 'я'];
var
  //Множество гласных букв, которые обнаружены в тексте.
  OcText : set of Char;
  //Строка, содержащая множество гласных букв, которые обнаружены в отдельном слове.
  StrOcWord : String;
  //Для промежуточных вычислений.
  CharTmp : Char;
  //Индексы символов в строках.
  i, j, k : Integer;
  //Индекс конца очередного слова.
  Pos2 : Integer;
begin
  //Результирующая строка.
  Result := '';
 
  OcText := [];
  StrOcWord := '';
  Pos2 := 0;
  for i := 1 to Length(aStr) do begin
    //Если очередной символ является разделителем - пропускаем итерацию.
    if aStr[i] in Delims then Continue;
 
    //Обработка символов слова.
    //Если очередной символ слова является гласной буквой.
    if aStr[i] in A then begin
      //Берём строчную версию гласной буквы.
      CharTmp := AnsiLowerCase(aStr[i])[1];
      //Если этой гласной буквы нет в StrOcWord, то добавляем её.
      if Pos(CharTmp, StrOcWord) = 0 then
        StrOcWord := StrOcWord + CharTmp
      ;
    end;
 
    //Отслеживаем конец слова.
    if i = Length(aStr) then
      Pos2 := i
    else if aStr[i + 1] in Delims then
      Pos2 := i
    ;
    //Если конец слова найден.
    if Pos2 > 0 then begin
      for j := 1 to Length(StrOcWord) do begin
        if StrOcWord[j] in OcText then begin
          //Если гласная буква уже присутствует в OcText, то удаляем
          //такую букву из Result.
          k := Pos(StrOcWord[j], Result);
          if k > 0 then Delete(Result, k, 1);
        end else begin
          //Если гласной буквы нет в OcText, то добавляем её в OcText
          //и в Result.
          OcText := OcText + [ StrOcWord[j] ];
          Result := Result + StrOcWord[j];
        end;
      end;
      //Обнуляем сведения по слову перед следующей итерацией.
      StrOcWord := '';
      //Флаг - "Конец слова не найден".
      Pos2 := 0;
    end; //if Pos2 > 0
  end; //for i
end;
 
var
  StrRes, StrTmp : String;
begin
  //Переключаем кодовую страницу консоли на CP1251 (это Win-1251).
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  //Если для консоли по умолчанию установлен точечный шрифт, можно преключиться
  //на шрифт Lucida Console в свойтвах консольного окна.
  //Либо можно установить шрифт Lucida Console по умолчанию для консоли:
  //1. Находим раздел в реестре:
  //HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Console\TrueTypeFont
  //2. Добавляем строковый параметр (REG_SZ) с именем 00 (ноль ноль).
  //В поле Data этого параметра задать значение: Consolas.
 
  repeat
    Writeln('Введите строку:');
    Readln(StrTmp);
    StrRes := GetA(StrTmp);
    Writeln('Гласные буквы, которые встречаются в тексте не более, чем в одном слове:');
    Writeln(StrRes);
    Writeln('Повторить - ENTER. Выход - любой символ + ENTER.');
    Readln(StrTmp);
  until StrTmp <> '';
end.

В этом коде в комментах я добавил разъяснения, как настроить консоль на кодовую страницу Win-1251 и как задать шрифт Lucida Console по умолчанию.
Этот приём можно применить в коде первой задачи.

@HalSaw · 28.02.2010, 16:16 **[ТС]**

ммм , не подойдет.
мы пока не прошли так далеко...
нужно решать по типу последнего моего кода.

@HalSaw · 04.03.2010, 19:07 **[ТС]**

ну нужно, как я понял, несколько множеств и операции с ними...
а как оформить правильно не знаю.

@Mawrat · 04.03.2010, 20:38

Вот решение чисто на множествах:

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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
type
  TCharDim = set of Char;
 
//Возвращает множество гласных букв, которые встречаются не более,
//чем в одном слове строки aStr.
function GetA(const aStr : String) : TCharDim;
const
  //Множество разделителей.
  Delims = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9)];
  //Множество гласных букв.
  A = ['А', 'а', 'Е', 'е', 'И', 'и', 'О', 'о', 'У', 'у', 'Ы', 'ы', 'Э', 'э', 'Ю', 'ю', 'Я', 'я'];
var
  //Множество гласных букв, которые обнаружены в тексте.
  DimText : TCharDim;
  //Множество гласных букв, которые обнаружены в отдельном слове.
  DimWord : TCharDim;
  //Индекс символов в строке.
  i : Integer;
  //Индекс конца очередного слова.
  Pos2 : Integer;
begin
  //Результирующее множество.
  Result := [];
 
  DimText := [];
  DimWord := [];
  Pos2 := 0;
  for i := 1 to Length(aStr) do begin
    //Если очередной символ является разделителем - пропускаем итерацию.
    if aStr[i] in Delims then Continue;
 
    //Обработка символов слова.
    //Если очередная буква является гласной, то добавляем её
    //заглавную версию в множество DimWord.
    if aStr[i] in A then DimWord := DimWord + [ AnsiUpperCase(aStr[i])[1] ];
 
    //Отслеживаем конец слова.
    if i = Length(aStr) then
      Pos2 := i
    else if aStr[i + 1] in Delims then
      Pos2 := i
    ;
    //Если конец слова найден.
    if Pos2 > 0 then begin
      //Удаляем из Result те гласные буквы, которые присутствуют
      //одновременно в множествах DimWord и DimText.
      Result := Result - (DimWord * DimText);
      //Добавляем в множество Result те гласные буквы, которые присутствуют
      //в множестве DimWord, но которых нет в DimText.
      Result := Result + (DimWord - DimText);
      //Добавляем в множество DimText гасные буквы, которые имеются в множестве DimWord.
      DimText := DimText + DimWord;
 
      //Обнуляем сведения по слову перед следующей итерацией.
      DimWord := [];
      //Флаг - "Конец слова не найден".
      Pos2 := 0;
    end; //if Pos2 > 0
  end; //for i
end;
 
var
  DimRes : TCharDim;
  StrRes, StrTmp : String;
  CharTmp : Char;
begin
  //Переключаем кодовую страницу консоли на CP1251 (это Win-1251).
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  //Если для консоли по умолчанию установлен точечный шрифт, можно преключиться
  //на шрифт Lucida Console в свойтвах консольного окна.
  //Либо можно установить шрифт Lucida Console по умолчанию для консоли:
  //1. Находим раздел в реестре:
  //HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Console\TrueTypeFont
  //2. Добавляем строковый параметр (REG_SZ) с именем 00 (ноль ноль).
  //В поле Data этого параметра задать значение: Consolas.
 
  repeat
    Writeln('Введите строку:');
    Readln(StrTmp);
 
    //Получаем множество, которое содержит только те гласные буквы, которые
    //присутствуют не более чем в одном слове текста StrTmp.
    DimRes := GetA(StrTmp);
    //Переписываем буквы множества DimRes в строку StrRes.
    StrRes := '';
    for CharTmp := Low(Char) to High(Char) do begin
      if CharTmp in DimRes then begin
        if StrRes <> '' then StrRes := StrRes + ', ';
        StrRes := StrRes + CharTmp;
      end;
    end;
 
    Writeln('Гласные буквы, которые встречаются в тексте не более, чем в одном слове:');
    Writeln(StrRes);
    Writeln('Повторить - ENTER. Выход - любой символ + ENTER.');
    Readln(StrTmp);
  until StrTmp <> '';
end.

Поясню эту строку:

Delphi
1
2
3
...
    if aStr[i] in A then DimWord := DimWord + [ AnsiUpperCase(aStr[i])[1] ];
...

Здесь, что касается [ AnsiUpperCase(aStr[i])[1] ] - AnsiUpperCase() возвращает тип данных String, а элементами множества, в нашем случае, являются данные типа Char. Поэтому, хотя в нашем примере AnsiUpperCase() вернёт строку состоящую только из одного симовла, тем не менее это строка, а не символ. Поэтому нам надо в этой строке взять только первый символ. Эту задачу выполняет выражение: AnsiUpperCase(aStr[i])[1]. А так как мы выполняем действия со множествами, то нас инетерсует здесь множество, состоящее из одного символа AnsiUpperCase(aStr[i])[1]. Это представлено выражением: [ AnsiUpperCase(aStr[i])[1] ].

@HalSaw · 06.03.2010, 16:28 **[ТС]**

нам нельзя так решать,
uses
SysUtils, только с этим...
меня просто выгнали из темы паскаль, я сюда пришел

я выкладывал свой код, решенной первой задачи, вторую надо решить по такому же принципу)

@Mawrat · 07.03.2010, 01:07

Ясно.

Тогда вот вариант, который будет работать и в Delphi и в Pascal.

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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  TCharDim = set of Char;
 
//Возвращает заглавный вариант гласной буквы кириллицы для кодовой страницы CP866.
function AUp866(const aCh : Char) : Char;
begin
  case aCh of
  #160 : Result := #128;
  #165 : Result := #133;
  #168 : Result := #136;
  #174 : Result := #142;
  #227 : Result := #147;
  #235 : Result := #155;
  #237 : Result := #157;
  #238 : Result := #158;
  #239 : Result := #159;
  else
    Result := aCh;
  end;
end;
 
//Возвращает множество гласных букв кириллицы, которые встречаются не более,
//чем в одном слове строки aStr.
function GetA(const aStr : String) : TCharDim;
const
  //Множество разделителей.
  Delims = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9)];
  //Множество гласных букв кириллицы.
  //Для кодовой страницы ANSI (CP1251), если текст набран в редакторе Delphi.
  //Это же самое для кодовой страницы CP866, если текст набран в DOS редакторе PASCAL.
  //A = ['А', 'а', 'Е', 'е', 'И', 'и', 'О', 'о', 'У', 'у', 'Ы', 'ы', 'Э', 'э', 'Ю', 'ю', 'Я', 'я'];
  //Для кодовой страницы CP866 независимо от редактора.
  A = [#128, #160, #133, #165, #136, #168, #142, #174, #147, #227, #155, #235, #157, #237, #158, #238, #159, #239];
var
  //Множество гласных букв, которые обнаружены в тексте.
  DimText : TCharDim;
  //Множество гласных букв, которые обнаружены в отдельном слове.
  DimWord : TCharDim;
  //Индекс символов в строке.
  i : Integer;
  //Индекс конца очередного слова.
  Pos2 : Integer;
begin
  //Результирующее множество.
  Result := [];
 
  DimText := [];
  DimWord := [];
  Pos2 := 0;
  for i := 1 to Length(aStr) do begin
    //Если очередной символ является разделителем - пропускаем итерацию.
    if aStr[i] in Delims then Continue;
 
    //Обработка символов слова.
    //Если очередная буква является гласной, то добавляем её
    //заглавную версию в множество DimWord.
    if aStr[i] in A then DimWord := DimWord + [ AUp866(aStr[i]) ];
 
    //Отслеживаем конец слова.
    if i = Length(aStr) then
      Pos2 := i
    else if aStr[i + 1] in Delims then
      Pos2 := i
    ;
    //Если конец слова найден.
    if Pos2 > 0 then begin
      //Удаляем из Result те гласные буквы, которые присутствуют
      //одновременно в множествах DimWord и DimText.
      Result := Result - (DimWord * DimText);
      //Добавляем в множество Result те гласные буквы, которые присутствуют
      //в множестве DimWord, но которых нет в DimText.
      Result := Result + (DimWord - DimText);
      //Добавляем в множество DimText гасные буквы, которые имеются в множестве DimWord.
      DimText := DimText + DimWord;
 
      //Обнуляем сведения по слову перед следующей итерацией.
      DimWord := [];
      //Флаг - "Конец слова не найден".
      Pos2 := 0;
    end; //if Pos2 > 0
  end; //for i
end;
 
var
  DimRes : TCharDim;
  StrRes, StrTmp : String;
  CharTmp : Char;
begin
  repeat
    Writeln('Vvedite strku:');
    Readln(StrTmp);
 
    //Получаем множество, которое содержит только те гласные буквы, которые
    //присутствуют не более чем в одном слове текста StrTmp.
    DimRes := GetA(StrTmp);
    //Переписываем буквы множества DimRes в строку StrRes.
    StrRes := '';
    for CharTmp := Low(Char) to High(Char) do begin
      if CharTmp in DimRes then begin
        if StrRes <> '' then StrRes := StrRes + ', ';
        StrRes := StrRes + CharTmp;
      end;
    end;
 
    Writeln('Glasnie bukvi, kotorie vstrechaiutca ne bolee, chem v odnom slove:');
    Writeln(StrRes);
    Writeln('Povtorit - ENTER. Bihod - luboi simvol + ENTER.');
    Readln(StrTmp);
  until StrTmp <> '';
end.

@KaTerin-93 · 15.05.2012, 13:47

Сообщение от HalSaw

МНОЖЕСТВА
Текст задан строкой, напечатать в алфавитном порядке: все строчные русские согласные буквы (все, кроме гласных и й,ь,ъ), входящие в текст. // скобочку не понял в задании...
1)

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
program class7;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const rs=['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','ц','х','ч','ш','щ'];
type M=set of char;
   var s:string;
       a:M;
 
  procedure Perevod(s:string; var a:M);
   var i:integer;
   begin
    a:=[];
    for i:=1 to length(s) do
    if s[i] in rs  then
    begin
    a:=a+[s[i]];
    end;
   end;
 
  procedure PrintSet(a:M);
  var ch:char;
  begin
   for ch:=#224 to #255 do
    if ch in a then write(ch);
  end;
begin
  readln(s);
  Perevod(s,a);
  PrintSet(a);
  readln;
end.

^ Пока пробую без больших, но не получается. Выводит, почти все буквы после 'c'...
Второе задание помогите)
2) Все звонкие согласные буквы, которыми заканчиваются нечетные слова

Что делать?)

Добавлено через 2 часа 6 минут
1) Напечатать все строчные русские согласные буквы (все, кроме гласных и й,ь,ъ), входящие в текст.

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
program six;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const rs=[#161,#162,#163,#164,#166,#167,#170,#171,#172,#173,#175,#224,#225,#226,#228,#229,#230,#231,#232,#233];
type M=set of char;
   var s:string;
       a:M;
 
  procedure Perevod(s:string; var a:M);
   var i:integer;
   begin
    a:=[];
    for i:=1 to length(s) do
    if s[i] in rs  then
    begin
    a:=a+[s[i]];
    end;
   end;
 
  procedure PrintSet(a:M);
  var ch:char;
  begin
  write('Soglasnie : ');
   for ch:=#0 to #255 do
    if ch in a then write(ch);
  end;
begin
write('Enter your string: ');
  readln(s);
  Perevod(s,a);
  PrintSet(a);
  readln;
end.

^ Рабочая программа
2) Все гласные буквы, которые не входят более, чем в одно слово
^ Нужна помощь)

Добавлено через 1 час 6 минут
не уж то не знает никто)

Добавлено через 14 часов 11 минут
апапап

а как в эту программу впихнуть чтобы выводили только в первом слове согласные

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117
	28.02.2010, 16:16 [ТС]
	ммм , не подойдет. мы пока не прошли так далеко... нужно решать по типу последнего моего кода. 0

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117
	04.03.2010, 19:07 [ТС]
	ну нужно, как я понял, несколько множеств и операции с ними... а как оформить правильно не знаю. 0

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117
	06.03.2010, 16:28 [ТС]
	нам нельзя так решать, uses SysUtils, только с этим... меня просто выгнали из темы паскаль, я сюда пришел я выкладывал свой код, решенной первой задачи, вторую надо решить по такому же принципу) 0