Презентация, доклад по теме Множества в Pascal

возможно, самой важной новой дисциплиной постиндустриальной эры.
2002 год

из конечного набора данных одного типа.
Предельный размер множества – 255 компонент.

Множество записывается в виде списка значений в квадратных скобках.
#1: [7, 5, 0, 4] или ['p', 'j', 'k'].

Повторение и порядок элементов не играют роли
#2: [2, 5, 2] и [2, 5] эквивалентны
#3: [2, 5] и [5, 2] эквивалентны

Пустое множество: []

>;

Название типа множества

Знак равенства

Зарезервированное слово

Зарезервированное слово

Название базового типа

Точка с запятой

CONST
COUNTER = [1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024];
TYPE
SYMBOL = SET OF CHAR;
LIST = SET OF BOOLEAN;
VAR
SYMB: SYMBOL;
NUMBER: SET OF 1..100;
COLOR: SET OF (RED, YELLOV, GREEN);
D: LIST;

М2

М1≠М2

М1 <> М2

М1 ⊆ М2

М1 <= М2

М1 ⊇ М2

М1 >= М2

М1 ∪ М2

М1 + М2

М1 ∩ М2

М1 * М2

М1 \ М2

М1 - М2

digit = set of '0' .. '9';
var
s1, s2, s3 : digit;
s4, s5, s6 : num;
begin
s1 := ['1', '2', '3'];
s2 := ['2', '1', '3'];
s3 := ['1', '3'];
s4 := [0..3];
s5 := [4 .. 6];
s6 := [3, 5 .. 9];
......
end.

Найдите результат операции:

s1=s2
s3 <=s1
s3<=s2
3 in s6
2*2 in s1
s4 * s6
s4 *s5
s4 + s5
s6 - s5

true

true

true

true

false

[3]

[]

[0,1,2,3,4,5,6]

[3,7,8,9]

m: byte; {очередное число последовательности}
k: integer; {число различных элементов}
begin
writeln ('Введите элементы последовательности:');
read(m); {прочли первый элемент}
z:=[]; {до просмотра множество пусто}
while m <>0 do
begin z := z+[m]; {добавление элемента в множество}
read(m) {чтение очередного числа}
end;
k:=0;
writeln('Последовательность в порядке убывания:');
for m:= 255 downto 1 do
if m in z then begin write(m,' '); inc(k) end;
writeln('Количество различных элементов: ',k)
end.

Задача №1.
В последовательности натуральных чисел i (i<256) определить число различных чисел и вывести их в порядке убывания. Признаком конца последовательности служит число 0.

k:=k+1

L := Length(str); {число введенных символов}
Tru := L > 0; {true, если не пустая строка}
while Tru and (L > 0) do {проверка с конца строки}
begin
Tru:=Str[L] in ['0'..'9', 'A'..'Z', 'a'..'z', ' ']; {проверка допустимости символа}
Dec(L) {предыдущий символ}
end;
if Tru then
WriteLn('Правильная строка') else
WriteLn('Неправильная строка')
end.

Задача №2.
Ввести строку символов, состоящую из латинских букв, цифр и пробелов.
Осуществить проверку правильности введенных символов.

L:=L-1

= set of 2..n;
var simple: resheto; {формируемое множество}
i, k, l: integer;
begin
writeln ('Простые числа, не превышающие ',n);
simple :=[2..n]; {множество всех чисел}
l := trunc(sqrt(n+1));
k := 1;
while k <= l do
begin
repeat k:=k+1 until k in simple; {поиск наименьшего простого числа}
write(k:3,' ');
for i := 2 to n div k do
simple := simple - [k*i] {исключение чисел, которые кратны простому числу k}
end;
for k := k+1 to n do
if k in simple then write(k:3,' ')
end.

Задача №3.
Найти все простые числа, не превышающие заданного натурального числа N, используя «Решето Эратосфена»

i - {числа, кратные очередному простому числу}
k - {наименьшее простое число в формируемом множестве}
l - {верхняя граница для делителей n}

Целая часть числа

н. э.)

с множествами позволяют в некоторых случаях сократить программы и сделать их более наглядными и эффективными за счет уменьшения числа проверок. Пример: условие if (key = 'Y') or (key = 'y') используя множество запишется проще: if key in ['Y', 'y']

«-»
множество нельзя вывести на экран
множество можно вводить только по элементам

V. «+» и «-» использования множеств

теории множеств»