Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 19
1

Дана последовательность символов, построить и напечатать множество

28.10.2009, 19:01. Просмотров 611. Ответов 3
Метки нет (Все метки)


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

Зарание спасибо)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2009, 19:01
Ответы с готовыми решениями:

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

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

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

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
3
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
28.10.2009, 19:16 2
вот держи:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const
  mn1=['0'..'9'];
  mn2=[',',':',';','.'];{çäåñü äîáàâüòå íóæíûå}
var
  s:string;
  i:integer;
begin
  readln(s);
  writeln('Âàøà ïîñëåäîâàòåëüíîñòü:');
  for i:=1 to length(s) do
    if (s[i] in mn1) or (s[i] in mn2) then
      write(s[i]);
  writeln
end.
1
0 / 0 / 0
Регистрация: 28.10.2009
Сообщений: 19
28.10.2009, 19:18  [ТС] 3
Спасибо
0
Модератор
63229 / 46981 / 32383
Регистрация: 18.05.2008
Сообщений: 113,873
28.10.2009, 19:23 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const s=['0'..'9','.',',','?','!',';',':',' ','-'];
{добавить всякие скобки, тильду и пр.}
var m:set of char;
    c:char;
    n,i:byte;
begin
clrscr;
write('Длина последовательности n=');
readln(n);
writeln('Введите ',n,' символов:');
m:=[];
for i:=1 to n do
 begin
  write('Символ ',i,' ');
  readln(c);
  if c in s then m:=m+[c];
 end;
writeln('Множество:');
for i:=32 to 126 do
if chr(i) in m then write(chr(i));
readln
end.
Добавлено через 1 минуту
Таблица символов.
Написать функцию, которая возвращает N правых символов в виде строки

Inadequate, Сорри, не посмотрел.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2009, 19:23

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

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

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

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

Дана последовательность из N символов. Напечатать все символы, расположенные до первого тире включительно
Дана последовательность из N символов.Напечатать все символы, расположенные до первого тире...


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

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

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