Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
vsan
0 / 0 / 0
Регистрация: 03.11.2010
Сообщений: 17
1

символы

23.11.2010, 23:44. Просмотров 893. Ответов 2
Метки нет (Все метки)

Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от "T" до "X" и знаки препинания. Помогите решить плиз)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.11.2010, 23:44
Ответы с готовыми решениями:

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

Если в строке массива есть одинаковые символы, то упорядочить символы строки в алфавитном порядке
Дан массив строк. Если в строке массива есть одинаковые символы, то упорядочить символы строки в...

Даны целое число n и символы s1,s2,.sn , среди которых есть двоеточие. Получить все символы после двоеточия
Задачка вроде понятная и я её даже решил,но я взял в основу строковый тип.Как в последствии...

Дан текст, в который входят любые символы. Удалить из него все символы не являющиеся буквами или цифрами
Дан текст, в который входят любые символы. Удалить из него все символы не являющиеся буквами или...

Даны две символьные переменные, в которых все символы, кроме одного, одинаковы. Определить номер позиции, в которй символы отличаются
Ребят помогите решить задачи Задание 3 Даны две символьные переменные, по 4 символа каждая, ...

2
pryda
Неадекват и грубиян
292 / 286 / 294
Регистрация: 22.02.2010
Сообщений: 627
24.11.2010, 01:07 2
Лучший ответ Сообщение было отмечено vsan как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const m:set of char=['T'..'X',',','.','!','?','-',':'];
var i:integer;
    s:string;
    st:set of char;
begin
writeln('Введите строку');
readln(s);
st:=[];
for i:=1 to length(s) do
if s[i] in m then st:=st+[s[i]];
writeln('Полученное множество:');
for i:=1 to 255 do
if chr(i) in st then writeln(chr(i));
readln;
end.
1
vsan
0 / 0 / 0
Регистрация: 03.11.2010
Сообщений: 17
24.11.2010, 01:14  [ТС] 3
спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2010, 01:14

В строке все символы ‘7’ и ‘!’ заменить на символы ‘?’
1.Дана символьная строка S. Скопировать первые N сиволов из исходной строки в новую. N вводиться с...

Если длина строки больше заданной, отбросить первые символы, иначе в её начало добавить символы "."
Дано целое число N (N>0) и строка S.Преобразовать строку S в строку длины N следующим образом:если...

Преобразовать строку, удалив все символы 'a' и продублировав все символы отличные от 'a'
Дана строка A. Нужно преобразовать её, удалив все символы 'a' и продублировав все символы отличные...


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

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

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