Процедура 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.

Вступить в группу "Основы программирования"

Подписаться на канал в РУТУБ

Подписаться на Дзен-канал

Подписаться на рассылки по программированию

Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...

Помощь в технических вопросах

Помощь студентам. Курсовые, дипломы, чертежи (КОМПАС), задачи по программированию: Pascal/Delphi/Lazarus; С/С++; Ассемблер; языки программирования ПЛК; JavaScript; VBScript; Fortran; Python и др. Разработка (доработка) ПО ПЛК (предпочтение - ОВЕН, CoDeSys 2 и 3), а также программирование панелей оператора, программируемых реле и других приборов систем автоматизации. Подробнее...

Главная
Контакты