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

Построить множество, элементами которого являются символы от A до F и от X до Z из последовательности

01.12.2010, 16:22. Показов 2247. Ответов 1
Метки нет (Все метки)

Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого является встречающиеся в последовательности:
буквы от ‘A’ до ‘F’ и от ‘X’ до ‘Z’
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.12.2010, 16:22
Ответы с готовыми решениями:

Построить и напечатать множество, элементами которого являются встречающиеся в последовательности символы
Помогите построить код пожалуйста. Дана непустая последовательность символов. Требуется построить...

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

Построить множество, элементами которого являются символы от А до К и от 10 до 20
Program mn; uses crt; var A, S: set of char; i: char; begin clrscr; S:=; ...

Множество. Построить множество, элементами которого являются встречающиеся в последовательности цифры от 0 до 9
Сформировать множество Дана последовательность символов. Построить и напечатать множество,...

1
76 / 76 / 51
Регистрация: 28.02.2010
Сообщений: 159
01.12.2010, 17:18 2
Лучший ответ Сообщение было отмечено allens как решение

Решение

воть
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
a:set of char;
i,k,m,n:integer;
s:string;
Begin
 
writeln('s= ');
readln(s);
 
for i:=1 to length(s) do
if (s[i]>='A') and (s[i]<='F') or (s[i]>='X') and (s[i]<='Z')
then
a:=a+[s[i]];
 
for i:=1 to 255 do
    if (chr(i)) in a then
       write(chr(i));
End.
Добавлено через 55 секунд
по-другому немного:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:set of char;
i:integer;
s:string;
Begin
writeln('s= ');
readln(s);
 
 for i:=1 to length(s) do
    if s[i] in ['A'..'F','X'..'Z'] then include(a,s[i]);
 
 for i:=1 to 255 do
    if (chr(i)) in a then
    write(chr(i));
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2010, 17:18
Помогаю со студенческими работами здесь

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

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

Построить и напечатать множество, элементами которого являются встречающиеся в последовательности цифры от 0 до 9
Сформировать множество. Дана последовательность символов. Построить и напечатать множество,...

Построить и напечатать множество, элементами которого являются встречающиеся в последовательности цифры от 0 до 9
1)Сформировать множество Дана последовательность символов. Построить и напечатать множество,...


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

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

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