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

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

01.06.2014, 20:27. Показов 2648. Ответов 4
Метки нет (Все метки)

Народ помогите решить задачу!Плиз очень надо!
Задание:"Дана непустая последовательность символов .Требуется построить и напечатать множество , элементами которого является встречающиеся в последовательности(Цифры от "0" до "9" , буквы от "A" до "T" и знаки препинания."
Язык PascalABC.
Заранее огромное спасибо!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2014, 20:27
Ответы с готовыми решениями:

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

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

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

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

4
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
01.06.2014, 20:41 2
Лучший ответ Сообщение было отмечено Napster094 как решение

Решение

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
uses crt;
var s:string;
    i:integer;
    a,b,c:set of char;
begin
 write('Ââåäèòå ñòðîêó - ');
  readln(s);
  a:=[];b:=[];c:=[];
 for i:=1 to length(s) do
  begin
   if s[i] in ['0'..'9'] then
    a:=a+[s[i]];
   if s[i] in ['a'..'t','A'..'T'] then
    b:=b+[s[i]];
   if s[i] in [' ','.',',',':',';','!','?'] then
    c:=c+[s[i]];
  end;
 writeln('Ìíîæåñòâî öèôð :');
  for i:=0 to 255 do
   if chr(i) in a then
    write(chr(i):4);
  writeln;
  writeln('Ìíîæåñòâî áóêâ :');
   for i:=0 to 255 do
    if chr(i) in b then
     write(chr(i):4);
  writeln;
   writeln('Ìíîæåñòâî çíàêîâ :');
    for i:=0 to 255 do
     if chr(i) in c then
      write(chr(i):4);
end.
1
0 / 0 / 0
Регистрация: 10.04.2014
Сообщений: 40
01.06.2014, 20:55  [ТС] 3
Svager Спасибо огромное!!!)))
0
Модератор
9119 / 4557 / 3093
Регистрация: 17.08.2012
Сообщений: 14,458
02.06.2014, 04:32 4
Лучший ответ Сообщение было отмечено Napster094 как решение

Решение

Svager, одно множество, а не три. И множества ['a'..'t'] в задании нет. Получается, что Ваш код не соответствует заданию, по крайней мере, формально. И ещё. Чисто риторический вопрос. Почему все, не только Вы, указываете в программе "uses crt;" безо всякой необходимости? По инерции, что ли? Скажите, что из модуля crt используется в Вашей программе? Вот, исправил согласно задания:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var s:string;
    i:integer;
    a:set of char;
begin
 write('Введите строку - ');
  readln(s);
  a:=[];
 for i:=1 to length(s) do
  if s[i] in ['0'..'9','A'..'T',' ','.',',',':',';','!','?']
   then a:=a+[s[i]];
 writeln('Множество :');
 for i:=0 to 255 do if chr(i) in a then write(chr(i):2);
 writeln;
end.
1
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
02.06.2014, 07:43 5
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Svager, одно множество, а не три. И множества ['a'..'t'] в задании нет. Получается, что Ваш код не соответствует заданию, по крайней мере, формально. И ещё. Чисто риторический вопрос. Почему все, не только Вы, указываете в программе "uses crt;" безо всякой необходимости? По инерции, что ли? Скажите, что из модуля crt используется в Вашей программе? Вот, исправил согласно задания:
ах да,вижу что одно множество.
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
По инерции, что ли?
именно по интерции
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2014, 07:43
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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