удаление символов со строки.

[Dimidrolus]

Учу тип char. Есть такая задачка:

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

Я решил доработать задачу и пользователь может еще писать и другие символы кроме тире и дужки. И хочу добавлять в строку символ если он только равен цифре. Как реализовать? Есть ли что типа chartostr?) Вот я пробовал, но не могу понять как ему подпихнуть цифры:

var c: char; a,l: integer; s,r: string;
begin
repeat
writeln ('enter phone number'); readln (s);
l:= length(s);
for a:=1 to l do
begin
if s[a]='0', '1', '2', '3', '4', '5' ,'6' ,'7', '8', '9' then
r:=r+s[a];
end;
writeln (r);
until l=0;
end.

[Аватар]

if s[a] in ['0'..'9'] then r:=r+s[a];

l плохой идентификатор, визуально трудно от единицы отличать

[Dimidrolus]

Сообщение от Аватар

if s[a] in ['0'..'9'] then r:=r+s[a];

l плохой идентификатор, визуально трудно от единицы отличать

ну у меня пока проги маленькие)) типа length - длина) спасибо. сейчас почитаю за in.

спасибо) работает)

Running "d:\dev\pascal projects\21.exe "
enter phone number
kds394rhj23n3j25h325
39423325325
enter phone number

[Dimidrolus]

Сообщение от Аватар

if s[a] in ['0'..'9'] then r:=r+s[a];

l плохой идентификатор, визуально трудно от единицы отличать

Обьясни плиз за этот in. Как и где его еще можно использовать?

[Аватар]

Читай множества в паскале и операции с множествами

[Dimidrolus]

Пусть ваша программа напечатает введенную пользователем строку
вразрядку, добавляя подчёркивание либо пробел после каждого символа,
например: 'Pascal' преобразует в 'P_a_s_c_a_l'.

var c: char; a,l1,l2: integer; s,r: string;
begin
repeat
writeln ('enter string'); readln (s);
l1:= length(s);
for a:=1 to l1  do
begin
r:=r+s[a]+'_';
end;
l2:=length(r);
for a:=1 to l2-1 do
begin
r:=r+r[a];
end;
writeln (r);
until l1=0;
end.

Есть ли более умное решение? И, допустим я хотел бы юзать только одно значение L. Как ресетнуть переменную?

var c: char; a, l: integer; s,r: string;
begin
repeat
writeln ('enter string'); readln (s);
l:= length(s);
for a:=1 to l  do
begin
r:=r+s[a]+'_';
end;
l:=length(r);
for a:=1 to l-1 do
begin
r:=r+r[a];
end;
writeln (r);
until l=0;
end.

[Аватар]

l1:= length(s);
for a:=1 to l1  do
begin
  r:=r+s[a];
  if a<l1 then r:+r+'_';
end;

или так

l1:= length(s);
for a:=1 to l1  do  r:=r+s[a]+'_';
r:=Copy(r,1,Length(r)-1);

[Mad_Cat]

{Пусть ваша программа напечатает введенную пользователем строку
вразрядку, добавляя подчёркивание либо пробел после каждого символа,
например: 'Pascal' преобразует в 'P_a_s_c_a_l'.}

var s:string;
i:byte;
begin
s:='pascal';
i:=2;
while i<=length(s) do begin
insert('_',s,i);
inc(i,2) ;
end;
writeln(s);
end.

p_a_s_c_a_l

[quizi]

var s,r:string;
	i:integer;
begin
	write('Введите строку '); 
	readln(s);
	r:='';
	for i:=1 to length(s) do r:=r+s[i]+'_';
	s:='';
	for i:=1 to length(r)-1 do s:=s+r[i]; 
	writeln(s);
end.

[iborisov]

Извращаться, так уж извращаться.))

for i:=length(s) downto 2 do insert('_',s,i);