Рекурсивная подпрограмма, исключающая из заданной строки заданный символ

@Daizex · Регистрация: 09.07.2015

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

@Puporev · 09.07.2015, 11:58

Pascal

function del(s:string;c:char):string;
begin
if pos(c,s)>0 then
 begin
  delete(s,pos(c,s),1);
  del:=del(s,c);
 end
else del:=s
end;
var s:string;
    c:char;
begin
s:='2123252';
c:='2';
write(del(s,c));
end.

@Daizex · 09.07.2015, 13:01 **[ТС]**

Puporev, спасибо!

@Daizex 0 / 0 / 0 Регистрация: 09.07.2015 Сообщений: 8
		1
	Рекурсивная подпрограмма, исключающая из заданной строки заданный символ 09.07.2015, 09:50. Показов 1194. Ответов 2 Метки нет (Все метки) Всем привет. Задача: Описать рекурсивную подпрограмму, исключающую из заданной строки заданный символ. Помогите, пожалуйста, кому не трудно. 0

@Daizex 0 / 0 / 0 Регистрация: 09.07.2015 Сообщений: 8
	09.07.2015, 13:01 [ТС]	3
	Puporev, спасибо! 0

Опции темы

Рекурсивная подпрограмма, исключающая из заданной строки заданный символ

Решение