Question

Fie L1 si L2 doua liste liniare cu elemente de tip REAL. Sa se compună un program care
creează lista L ce include in sine câte o singura data elementele ce aparțin unei din listele L1 si
L2, dar totodată nu aparțin celeilalte din ele.

Answer 1

PROGRAM Problem;

TYPE

 TSet = set of REAL;

VAR

 L1, L2, L: TSet;

 x: REAL;

BEGIN

 L1 := [1, 2, 3, 4];

 L2 := [3, 4, 5, 6];

 // Adaugă în lista L elementele din L1 care nu se află în L2

 FOR x IN L1 DO

   IF NOT (x IN L2) THEN

     L += [x];

 // Adaugă în lista L elementele din L2 care nu se află în L1

 FOR x IN L2 DO

   IF NOT (x IN L1) THEN

     L += [x];

 // Afișează conținutul listei L

 FOR x IN L DO

   WriteLn(x);

END.