2 / 2 / 1
Регистрация: 02.05.2012
Сообщений: 59
1

Текст на английском языке. Напечатать в алфавитном порядке все согласные, которые не входят ни в одно слово

26.09.2012, 21:48. Показов 1294. Ответов 1
Метки нет (Все метки)

здраствуйте
нужна помощь в решении
заранее спасибо

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

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

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

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

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

1
13087 / 5868 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
26.09.2012, 23:22 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
program Project1;
 
//Для кодовой страницы CP866 переводит символы в верхний регистр.
//Правильно обрабатывает символы кириллицы.
function UpCaseRus(const aCh : Char) : Char;
var
  Res : Char;
begin
  Res := aCh;
  case Res of
    #$A0..#$AF: Res := Char(Ord(Res) - $20);
    #$E0..#$EF: Res := Char(Ord(Res) - $50);
    #$F1: Res := #$F0;
    else Res := UpCase(Res);
  end;
  UpCaseRus := Res;
end;
 
const
  //Множество согласных букв.
  A = [
    'Б', 'В', 'Г', 'Д', 'Ж', 'З', 'Й', 'К', 'Л', 'М', 'Н', 'П',
    'Р', 'С', 'Т', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ь', 'Ъ'
  ];
var
  S : String;
  Ch : Char;
  Da : set of Char;
  i : Integer;
begin
  repeat
    Writeln('Введите строку:');
    Readln(S);
 
    //Составляем множество согласных букв, которые входят хотя бы в одно слово.
    Da := [];
    for i := 1 to Length(S) do begin
      Ch := UpCaseRus( S[i] );
      if Ch in A then Da := Da + [Ch];
    end;
 
    //Множество согласных букв, которые не входят ни в одно слово.
    Da := A - Da;
 
    //Распечатка результата.
    if Da <> [] then begin
      Writeln('Перечень согласных букв, которые не входят ни в одно слово:');
      i := 0;
      for Ch := #0 to #255 do
        if Ch in Da then begin
          Inc(i);
          if i > 1 then Write(', ');
          Write(Ch);
        end;
      Writeln;
    end else
      Writeln('Все согласные буквы участвуют в тексте.');
 
    Writeln('Повторить - Enter. Выход - любой символ = Enter.');
    Readln(S);
  until S <> '';
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.09.2012, 23:22
Помогаю со студенческими работами здесь

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

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

Напечатать в алфавитном порядке все согласные буквы, которые входят только в ОДНО СЛОВО.
Доброго времени суток!Посмотрите задачу, пожалуйста! Дан текст на русском языке. Напечатать в...

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


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

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

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