Решаем задачи Абрамян на Паскале. Recur12

Recur12. Описать рекурсивную функцию DigitCount($$S$$) целого типа, которая находит количество цифр в строке $$S$$, не используя оператор цикла. С помощью этой функции найти количество цифр в каждой из пяти данных строк.

Решение:

program Recur12;
var
 S:String;
 i:integer;

Function DigitCount(S:String):integer;
begin
 if length(S)<=0 then DigitCount:=0
 else if (S[1] in ['0'..'9']) then
       begin
        Delete(S,1,1);
        DigitCount:=1+DigitCount(S);
       end
      else
       begin
        Delete(S,1,1);
        DigitCount:=DigitCount(S);
       end;
end;

begin
 for i:=1 to 5 do
  begin
   Write('S: ');
   Readln(S);
   Writeln(DigitCount(S));
  end;
end.

program Recur12;

var

S:String;

i:integer;

Function DigitCount(S:String):integer;

begin

if length(S)<=0 then DigitCount:=0

else if (S[1] in ['0'..'9']) then

begin

Delete(S,1,1);

DigitCount:=1+DigitCount(S);

end

else

begin

Delete(S,1,1);

DigitCount:=DigitCount(S);

end;

begin

for i:=1 to 5 do

begin

Write('S: ');

Readln(S);

Writeln(DigitCount(S));

end;

end.

Другие задачи из раздела Recur можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Recur12

Комментарии:

Добавить комментарий Отменить ответ