Удалить из строки символы, не являющиеся цифрами

@RomaRi0 · Регистрация: 14.01.2016

Author24 — интернет-сервис помощи студентам

Задача: записи телефонных номеров обычно содержат дополнительные символы(скобки.черточки,пробелы), - чтобы удобней запоминалось.Например:8(123)45-67-89.Предположим,что пользователь их так и вводит.Пусть ваша программа преобразит строку с таким номером,удалив все символы,кроме цифр.Например, после ввода указанного выше номера она должна напечатать 8123456789.

Вот, что получишь накодить, но на месте не нужных символов остались пробелы.(((

Pascal

var a:integer;
    s:string;
begin
writeln('Введите ваш номер телефона');
readln(s);
for a:=1 to Length(S) do
if (s[a]='-') or (s[a]='(') or (s[a]=')') then 
s[a]:=' ';
write(s);
end.

Напишите новую программу, но с предельно простым синтаксисом.Спасибо)

@Puporev · 13.02.2016, 19:36

Pascal

var a:integer;
    s:string;
begin
writeln('Введите ваш номер телефона');
readln(s);
for a:=Length(s) downto 1 do
if not(s[a] in ['0'..'9']) then delete(s,a,1);
write(s);
end.

@RomaRi0 · 14.02.2016, 12:38 **[ТС]**

Puporev, прошу пожалуйста, дополните вашу программу комментариями..Спасибо

@Puporev · 14.02.2016, 12:50

Идем с конца строки к началу и если не цифра, то удаляем.

@RomaRi0 · 14.02.2016, 12:56 **[ТС]**

Puporev,

Сообщение от Puporev

delete(s,a,1)

а что здесь указываеться в скобка?

@Puporev · 14.02.2016, 12:57

А справку открой да посмотри, если до сих пор ни строчки из учебника не прочитал

@RomaRi0 · 14.02.2016, 12:59 **[ТС]**

Puporev, учебник, который я изучаю об этом ни слово("Песни о Паскале"), а интернет рыть - это значит кучу время потерять.Лучше я думаю если живой человек объяснит.Но все равно спасибо за помощь)

@RostorLuxor · 14.02.2016, 12:59

Pascal

var a:integer;
    s:string;
begin
writeln('Введите ваш номер телефона'); // запрос номера
readln(s); // считывание
for a:=Length(s) downto 1 do // цикл будет выполнен столько раз, сколько символов в переменной s
if not(s[a] in ['0'..'9']) then delete(s,a,1); // если символ под номером a не равен цифре, то удаляем.
write(s); // выводим исправленный s
end.

@Puporev · 14.02.2016, 13:01

Сообщение от RomaRi0

Лучше я думаю если живой человек объяснит.

Считай что он помер..

Добавлено через 1 минуту
RostorLuxor, Ну и что ты опять влез? Что ты нового написал?

@RostorLuxor · 14.02.2016, 13:01

Pascal

1	delete(s,a,1);

Удаление символа из строки в указанной позиции.

S - Строка.
A - Позиция.
1 - Сколько символов от позиции будет удалено.

@RomaRi0 · 14.02.2016, 13:03 **[ТС]**

Сообщение от RostorLuxor

delete(s,a,1)

объясните пожалуйста какие парметры указываються в скобках, гуглить не хочу((((((((((((((

Добавлено через 11 секунд
RostorLuxor, спасибо

Добавлено через 51 секунду

Сообщение от Puporev

RostorLuxor, Ну и что ты опять влез? Что ты нового написал?

он хотя бы объяснил, а не чистый код...........

@Puporev · 14.02.2016, 13:03

Сообщение от RomaRi0

гуглить не хочу

А нахрена у тебя в Паскале есть встроенная справка?

@RomaRi0 · 14.02.2016, 13:08 **[ТС]**

Puporev, оо и правда есть.Спасибо за инфу. +1.

@RomaRi0 2 / 2 / 4 Регистрация: 14.01.2016 Сообщений: 58
	14.02.2016, 12:38 [ТС]	3
	Puporev, прошу пожалуйста, дополните вашу программу комментариями..Спасибо 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.02.2016, 12:50	4
	Идем с конца строки к началу и если не цифра, то удаляем. 0

@RomaRi0 2 / 2 / 4 Регистрация: 14.01.2016 Сообщений: 58
	14.02.2016, 12:56 [ТС]	5
	Puporev, Сообщение от Puporev delete(s,a,1) а что здесь указываеться в скобка? 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.02.2016, 12:57	6
	А справку открой да посмотри, если до сих пор ни строчки из учебника не прочитал 0

@RomaRi0 2 / 2 / 4 Регистрация: 14.01.2016 Сообщений: 58
	14.02.2016, 12:59 [ТС]	7
	Puporev, учебник, который я изучаю об этом ни слово("Песни о Паскале"), а интернет рыть - это значит кучу время потерять.Лучше я думаю если живой человек объяснит.Но все равно спасибо за помощь) 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.02.2016, 13:01	9
	Сообщение от RomaRi0 Лучше я думаю если живой человек объяснит. Считай что он помер.. Добавлено через 1 минуту RostorLuxor, Ну и что ты опять влез? Что ты нового написал? 0

@RomaRi0 2 / 2 / 4 Регистрация: 14.01.2016 Сообщений: 58
	14.02.2016, 13:03 [ТС]	11
	Сообщение от RostorLuxor delete(s,a,1) объясните пожалуйста какие парметры указываються в скобках, гуглить не хочу(((((((((((((( Добавлено через 11 секунд RostorLuxor, спасибо Добавлено через 51 секунду Сообщение от Puporev RostorLuxor, Ну и что ты опять влез? Что ты нового написал? он хотя бы объяснил, а не чистый код........... 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.02.2016, 13:03	12
	Сообщение от RomaRi0 гуглить не хочу А нахрена у тебя в Паскале есть встроенная справка? 1

@RomaRi0 2 / 2 / 4 Регистрация: 14.01.2016 Сообщений: 58
	14.02.2016, 13:08 [ТС]	13
	Puporev, оо и правда есть.Спасибо за инфу. +1. 0

Опции темы

Удалить из строки символы, не являющиеся цифрами

Решение