Проверить, является ли фрагмент строки с 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.