Question

How to pad a string on the right in Pascal

Answer 1

program PadRightProgram;
 
function PadRightCustom(const S: string; N: Integer; PadChar: Char): string;
begin
  PadRightCustom := S;
   
  while Length(PadRightCustom) < N do
    PadRightCustom := PadRightCustom + PadChar;
end;
 
var
  str, padded: string;
begin
  str := 'Pascal';
   
  padded := PadRightCustom(str, 10, '*');
   
  WriteLn('"' + padded + '"');  
end.
 
 
 
(*
run:
 
"Pascal****"
 
*)

 

70+ SQL courses for beginners and professionals

Answer 2

program PadRightProgram;

uses StrUtils;

var
  str, padded: string;
begin
  str := 'Pascal';
  
  padded := PadRight(str, 10); 
  
  WriteLn('"' + padded + '"');    
end.



(*
run:

"Pascal    "

*)

 

70+ SQL courses for beginners and professionals