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

Преобразовать заданную строку, оставив в ней только арабские цифры с сохранением порядка их следования

19.10.2010, 19:37. Просмотров 672. Ответов 3
Метки нет (Все метки)

Доброго времени суток! Помогите, пожалуйста решить задучу:
Преобразовать заданную строку, оставив в ней только арабские цифры с сохранением порядка их следования. Написать код программы
Заранее спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.10.2010, 19:37
Ответы с готовыми решениями:

Преобразовать строку, оставив в ней только первые два слова
Составить подпрограмму для решения следующей задачи: 2. Задана строка...

Преобразовать строку, оставив в ней только символы, являющиеся цифрами
Задана строка символов. Преобразовать эту строку, оставив в ней только символы,...

Преобразовать заданную строку, оставив в ней только цифры с сохранением порядка их следования
:help: Спасибо огромное.... 1. В одномерном массиве А поменять местами пары...

Преобразовать заданную строку, заменив в ней каждую точку многоточием
Даны натуральное число n и символы S1, …, Sn (строка). Преобразовать данную...

Переписать с сохранением порядка следования элементы 1-го файла во 2-ой
]Имеются 2 типизированных файла одинакового размера, элементами которых...

3
Шутка
code code
123 / 120 / 75
Регистрация: 11.10.2009
Сообщений: 371
19.10.2010, 19:46 2
На Большие буквы так же можно прописать условие и на символы типа !, ?, :
Pascal
1
2
3
4
5
6
7
8
9
var
s:string;
i:integer;
begin
readln(s);
for i:=length(s) downto 1 do
if (s[i] in ['Г*'..'Гї']) or(s[i] in['a'..'z']) then delete(s,i,1);
writeln(s);
end.
1
Puporev
Модератор
54699 / 42113 / 29077
Регистрация: 18.05.2008
Сообщений: 99,389
19.10.2010, 21:26 3
Pascal
1
2
for i:=length(s) downto 1 do
if not (s[i] in ['0'..'9']) then delete(s,i,1);
1
Ground
0 / 0 / 0
Регистрация: 31.01.2009
Сообщений: 12
20.10.2010, 09:38  [ТС] 4
Спасибо за ответы!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2010, 09:38

Переписать с сохранением порядка следования компоненты файла f1 — в файл f2
Здравствуйте, помогите пожалуйста , с помощу процедуры. Сформировать файлы...

Переписать с сохранением порядка следования компоненты файла f1 в файл f2
1, Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следова-ния...

Записать в файл G с сохранением порядка следования те символы файла F
Здравствуйте. Сама программа у меня есть, мне нужно чтобы вы написали мне...


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

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

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