Question

How to print text diagonally from left to right recursively in Pascal

Answer 1

program DiagonalPrint;

procedure printTextDiagonallyRecursivelyLTR(spaces, text: string);
begin
    if Length(text) > 0 then
    begin
        writeln(spaces + text[1]);
        printTextDiagonallyRecursivelyLTR(spaces + ' ', Copy(text, 2, Length(text) - 1));
    end;
end;

begin
    printTextDiagonallyRecursivelyLTR('', 'HELLO WORLD');
end.



(*
run:

H
 E
  L
   L
    O
      
      W
       O
        R
         L
          D

*)

 

70+ SQL courses for beginners and professionals