04.04.2021
Новый выпуск журнала Автоматизация и Программирование.
27.03.2021
Новая статья Где взять Питон и как установить.
25.03.2021
Новый раздел Python.
04.03.2021
Новые видео и статья Процедура Exclude.
03.03.2021
Новый выпуск журнала Автоматизация и Программирование.
Раздел: Стандартные функции Паскаля
Процедура Include
Процедура Include
в Паскале включает элемент в множество, если его там ещё нет. Синтаксис:
procedure Include(var S : TSetType; E : TSetElement);
Здесь E
- это элемент множества S
, который надо добавить.
То есть процедура Include
включает элемент E
в множество S
,
если он еще не является частью множества. Элемент E
должен быть того же типа, что и базовый тип множества S
.
Таким образом, два следующих оператора выполняют одно и то же действие:
S := S + [E]; Include(S, E);
Если элемент Е
не соответствует базовому типу множества S
, то компилятор выдаст ошибку.
Пример:
program myprog; type TMyChar = set of Char; type TSeasons = (Winter, Spring, Summer, Autumn); var chm : TMyChar; M : set of TSeasons; //*************************************************************** // ОСНОВНАЯ ПРОГРАММА //*************************************************************** begin //Сейчас в множестве М нет элемента Summer M := [Winter, Spring]; if Summer in M then WriteLn('Summer in M') else WriteLn('Summer no in M'); //Добавляем элемент Summer Include(M, Summer); if Summer in M then WriteLn('Summer in M') else WriteLn('Summer no in M'); chm := []; //Пробуем добавить элемент в chm Include(chm, 'A'); //А теперь элемент "неправильного" типа //Include(M, 'A'); //!!! Это ошибка WriteLn(#10#13'The end. Press ENTER...'); ReadLn; end.
В этом примере мы сначала проверяем, есть ли элемент Summer
в множестве М
(изначально его там нет). Затем добавляем этот элемент в множество и снова проверяем. Таким образом программа сначала выведет надпись
Summer no in M
а затем
Summer in M
В конце программы мы пытаемся добавить в множество М
элемент, тип которого не соответствует типу множества:
Include(M, 'A');
Так делать нельзя, поэтому компилятор выдаст ошибку:
Error: Incompatible types: got "Char" expected "TSeasons"
То есть компилятор нам говорит, что типы "Char" и "TSeasons" несовместимы, и что он получил тип
Char
, хотя ожидал получить TSeasons
.
Подписаться на канал в YouTube
Вступить в группу "Основы программирования" Подписаться на рассылки по программированию |
![]() |
Как стать программистом 2.0
Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее... |