13. Množiny

13.1 Příklad

type JmenaDnu = (Pondeli, Utery, Streda, Ctvrtek, Patek, Sobota, Nedele);

        MnozinaDnu = set of JmenaDnu;

var Pracovni : MnozinaDnu;

13.2 Syntaxe

set of type

13.3 Popis

• Bázový typ množiny musí být ordinální typ a nesmí obsahovat více než 256 možných hodnot.

• Dolní a horní hranice ordinálních hodnot bázového typu musí být v intervalu 0..255.

• Konstruktor množiny, který popisuje hodnotu typu množina, je tvořen výrazy uvnitř hranatých závorek. Každý výraz určuje hodnotu množiny.

• Notace [ ] popisuje prázdnou množinu, která je kompatibilní vzhledem k přiřazení s jakýmkoliv typem množina.

13.4 Příklady

{ Typy množina }
type Den = (Po, Ut, Str, Ctv, Pa, So, Ne);

  Znaky = set of Char;

  Cislice = set of 0..9;

  Dny = set of Day;

{ Konstruktory množiny }

  ['0'..'9', 'A'..'Z', 'a'..'z', '_']

  [1, 5, I + 1 .. J - 1]

  [Po..Pa]

13.5 Operace s množinami

M + N sjednocení

M * N průnik

M - N rozdíl

13.5.1 Příklad

Pracovni := [Pondeli, Utery, Streda, Ctvrtek, Patek];

Pracovni := [Pondeli..Patek];

Pracovni := [Pondeli..Nedele] - [Sobota, Nedele];

Pracovni := [Pondeli..Streda] + [Utery..Patek];

Den := Patek;

Pracovni := [Pondeli..Ctvrtek] + [Den];

13.5.2 Příklad

Tohle budou užitečné řádky! Načítání pravdivostní hodnoty ano / ne:

var C : Char;

...

Write ('Je to pravda? [a/n]');

repaet

   readln (C);

until C in ['a','A','n','N'];

Tento program nepustí uživatele dál, dokud nezadá některou z požadovaných hodnot.

13.6 Cvičení

• Sestav program, který zjistí, zda vstupní text obsahuje všechna malá písmenka anglické abecedy. ...řešení

• Uprav předchozí program tak, aby vypsal všechna chybějící písmenka! ...řešení

   

  ---