Question

How to insert an element in a set with Pascal

Answer 1

program InsertElementInSet;

type
  TMySet = set of 1..10; // Define a set with elements from 1 to 10

var
  MySet: TMySet;
  i : Integer;

begin
  MySet := []; // Initialize the set as empty
  Include(MySet, 1); // Insert the element 1 into the set
  Include(MySet, 5); // Insert the element 5 into the set
  Include(MySet, 6); // Insert the element 6 into the set

  // Display the result
  if 5 in MySet then
    WriteLn('Element 5 has been successfully added to the set!');
    
  for i := Low(TMySet) to High(TMySet) do
    if i in MySet then
      WriteLn('Set contains: ', i);
end.




(*
run:
  
Element 5 has been successfully added to the set!
Set contains: 1
Set contains: 5
Set contains: 6

*)

 

70+ SQL courses for beginners and professionals