Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Napster094
0 / 0 / 0
Регистрация: 10.04.2014
Сообщений: 40
1

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

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

Народ помогите решить задачу!Плиз очень надо!
Задание:"Дана непустая последовательность символов .Требуется построить и напечатать множество , элементами которого является встречающиеся в последовательности(Цифры от "0" до "9" , буквы от "A" до "T" и знаки препинания."
Язык PascalABC.
Заранее огромное спасибо!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2014, 20:27
Ответы с готовыми решениями:

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

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

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

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

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

4
Svager
397 / 376 / 406
Регистрация: 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
Napster094
0 / 0 / 0
Регистрация: 10.04.2014
Сообщений: 40
01.06.2014, 20:55  [ТС] 3
Svager Спасибо огромное!!!)))
0
Cyborg Drone
Модератор
5413 / 3221 / 2457
Регистрация: 17.08.2012
Сообщений: 10,313
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
Svager
397 / 376 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
02.06.2014, 07:43 5
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Svager, одно множество, а не три. И множества ['a'..'t'] в задании нет. Получается, что Ваш код не соответствует заданию, по крайней мере, формально. И ещё. Чисто риторический вопрос. Почему все, не только Вы, указываете в программе "uses crt;" безо всякой необходимости? По инерции, что ли? Скажите, что из модуля crt используется в Вашей программе? Вот, исправил согласно задания:
ах да,вижу что одно множество.
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
По инерции, что ли?
именно по интерции
1
02.06.2014, 07:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2014, 07:43

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

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

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


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

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

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