пользователей: 21281
предметов: 10473
вопросов: 178149
Конспект-online
зарегистрируйся или войди через vk.com чтобы оставить конспект.
РЕГИСТРАЦИЯ ЭКСКУРСИЯ

pogromirovanie:
» sooqa
Уася:
» History motherfuckers

Множества, действия с множествами. (пример программ).

Множества

Множество цифр [0,1,2,3,4,5,6,7,8,9]

Множество литер [‘A’, ’+’, ’9’ ]

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

  1. [1,2,2,3 ] = [ 1,2,3]
  2. [ 1,3,2] = [1,2,3 ]
  3. [ I, K, K+2 ] [ 10,5,7]
  4. [1,2,3,4,5,6,7] = [1..7 ]
  5. [ I..J ] при I=J множество состоит из одного элемента; I>J - пустое множество.

Множественный тип

Type T=Set of < базовый тип>;

T1=Set of ‘A’..’Z’;
T2=Set of byte;
T3=Set of 1000..1255;
Var A,B: T1;
C: T2;

  1. A:=S;
  2. + объединение множеств; [1,3,4,5] + [2,3,5 ] = [1..5 ]
    * пересечение множеств; [1,3,4,5] * [2,3,5 ] = [3,5 ]
    - разность множеств; [1,3,4,5] - [2,3,5 ] = [1,4 ]
  3. Добавление и исключение эл.
    A:= A + [ x ] добавление
    A:= A - [ x ] исключение
  4. Операции сравнения
  5. Операция IN (определение принадлежности множеству)
    (b=1) or (b=3) or (b=7) запишется b in [1,3,7 ]
  6. Процедуры ввода – вывода не работают.

Строку литер входного файла оформить как множество
Var
A: set of car;
c: car;
Begin
A:=[ ];
Read(c);
While c<> #13 do
begin
A:= A+ [c ];
Read (c);
end;
………………………..
Фрагмент вывода сформированного множества литерного типа.
For I:= 0 to 255 do
begin
c:=Chr(I);
If c in A Then Write (c :2);
 


27.01.2014; 07:11
хиты: 171
рейтинг:0
для добавления комментариев необходимо авторизироваться.
  Copyright © 2013-2016. All Rights Reserved. помощь