Question

14. Elaborați un program care afişează pe ecran numerele de ordine ale valorilor următoarelor tipuri de date enumerare: PASCAL 1) type FunctiaOcupata = (Muncitor=10, Sef DeEchipa, Maistru, Sef DeSantier, Director); 2) type Starea Civila = (Casatorit, Necasatorit);​

Answer 1

Răspuns:

program ExempluEnumerare;

type

   FunctiaOcupata = (Muncitor = 10, SefDeEchipa, Maistru, SefDeSantier, Director);

   StareaCivila = (Casatorit, Necasatorit);

var

   i: FunctiaOcupata;

   j: StareaCivila;

begin

   for i := Muncitor to Director do

   begin

       write(Ord(i), ' ');

   end;

   writeln();

   for j := Casatorit to Necasatorit do

   begin

       write(Ord(j), ' ');

   end;

   writeln();

end.

Explicație: