|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.03.2013, 11:36 | #1 |
Пользователь
Регистрация: 23.12.2011
Сообщений: 10
|
Убрать скобки, тире и пробелы
8(940)435-32-54 из номера нужно убрать все кроме цифр, чтобы получилось
89404353254. Все убрал, а цифры соединить не могу. var S : string; i : integer; begin repeat Write('Введите номер телефона: '); Readln(S); for i=1 to Length(S) do begin if (S[i]='(' ) or (S[i]=')' ) or (S[i]='-' ) then S[i]:=' '; {здесь у меня варианты, но не выходит S[i]=S[i-2] или S[i]=S[i+i] и т.д.} end; Writeln(S); until Length(S)=0; end. |
12.03.2013, 12:01 | #2 |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Код:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
12.03.2013, 12:10 | #3 |
Пользователь
Регистрация: 23.12.2011
Сообщений: 10
|
Добавлю в конце нужно поменять Writeln(S) на (S2).
Спасибо. Только написал уже исправили. |
12.03.2013, 12:15 | #4 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Код:
программа — запись алгоритма на языке понятном транслятору
|
12.03.2013, 12:22 | #5 | |
Пользователь
Регистрация: 23.12.2011
Сообщений: 10
|
Цитата:
Последний раз редактировалось 1Hitman1; 12.03.2013 в 12:34. |
|
12.03.2013, 12:39 | #6 | |
Пользователь
Регистрация: 23.12.2011
Сообщений: 10
|
Цитата:
|
|
12.03.2013, 14:53 | #7 |
Пользователь
Регистрация: 23.12.2011
Сообщений: 10
|
then else S2:=S2+S[i];
Дороги форумчане можно попросить прокомментировать данную функцию. Мне для себя, чтобы понять как здесь убираются скобки, тире и т.д. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужно убрать пробелы | lezgin | Общие вопросы Delphi | 13 | 28.01.2013 08:36 |
Убрать лишние пробелы | ДмитрийРэй | C# (си шарп) | 1 | 22.05.2011 09:19 |
убрать пробелы | zetrix | Microsoft Office Excel | 9 | 10.03.2009 10:03 |
Убрать пробелы из строки | Neymexa | Помощь студентам | 2 | 09.12.2008 14:29 |
Убрать пробелы из строки | Neymexa | Общие вопросы по Java, Java SE, Kotlin | 2 | 29.11.2008 11:03 |