Question

How to reverse a string using recursion in Pascal

Answer 1

Program ReverseStringProgram;

Function ReverseString(N:integer; word:string) : string;
begin
     if N=0 then
        ReverseString:=''
     Else
        ReverseString:= word[N] + ReverseString(N - 1, word);
end;

var 
len: integer;
str: string;

begin
    str := 'abcdef';
    len := length(str);
    
    writeln(ReverseString(len, str));
end.



(*
run:

fedcba

*)

 

70+ SQL courses for beginners and professionals