Question

How to print text diagonally from left to right in Pascal

Answer 1

program DiagonalText;

procedure PrintDiagonalText(s: string);
var
  i, j: integer;
begin
  for i := 1 to length(s) do
  begin
    for j := 1 to i - 1 do
      write(' ');   { indent }
    writeln(s[i]);
  end;
end;

var
  text: string;

begin
  text := 'HELLO WORLD';
  PrintDiagonalText(text);
end.


{
run:

H
 E
  L
   L
    O
      
      W
       O
        R
         L
          D

}

 

70+ SQL courses for beginners and professionals