Проверить, является ли фрагмент строки с i-го по j-й символ палиндромом - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

используя рекурсию,проверить является ли фрагмент строки с i-го по j-й символ палиндромом. был бы очень благодарен.
задачу решил, вопрос исчерпан)

Решение задачи: «Проверить, является ли фрагмент строки с i-го по j-й символ палиндромом»

textual
Листинг программы
Var
  St :String;
  i : Byte;
 
Function PolyRekurs(S : String; a,b : Byte) : Boolean;
Begin
  PolyRekurs:=True;
  If a<=b then
    If S[a]=S[b] then PolyRekurs:=PolyRekurs(S,a+1,b-1) else PolyRekurs:=False;
End;
 
Begin
  St:='вапр абырвалглаврыба впрыыцнлоыл';
  If PolyRekurs(St,6,20) then Writeln('Yes') else Writeln('No');
End.

Объяснение кода листинга программы

Var St : String; i : Byte; Function PolyRekurs(S : String; a,b : Byte) : Boolean; Begin PolyRekurs := True; If a <= b Then If S[a] = S[b] Then PolyRekurs := PolyRekurs(S, a + 1, b - 1) Else PolyRekurs := False; End; Begin St := 'вапр абырвалглаврыба впрыыцнлоыл'; If PolyRekurs(St, 6, 20) Then Writeln('Yes') Else Writeln('No'); End.

Оцени полезность:

14   голосов , оценка 4.429 из 5
Похожие ответы