Question

How to create an array containing a range of characters in Pascal

Answer 1

program CharacterRangeArrayProgran;

type
  LowerCaseLetters = 'a'..'m';

var
  LetterArray: array[LowerCaseLetters] of Char;
  i: Char;

begin
  for i := 'a' to 'm' do
    LetterArray[i] := i;

  for i := 'a' to 'm' do
    Write(LetterArray[i], ' ');

  Writeln;
end.




(*
run:

a b c d e f g h i j k l m 

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program CharacterRangeArrayProgran;

var
  LetterArray: array[1..26] of Char;
  i: Integer;

begin
  for i := 1 to 26 do
    LetterArray[i] := Chr(Ord('a') + i - 1);

  for i := 1 to 26 do
    Write(LetterArray[i], ' ');

  Writeln;
end.




(*
run:

a b c d e f g h i j k l m n o p q r s t u v w x y z 

*)

 

70+ SQL courses for beginners and professionals