«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

”пражнение 1

»ллюстрацией описани€ множеств и операций над ними может служить программа Dem_Mno, в которой описаны множества чисел D, D1, D2, D3. «атем они заполнены следующим образом: множество D1 Ц четными числами 2, 4, 6, 8; множество D2 Ц числами 0, 1, 2, 3, 5; множество D3 Ц нечетными числами 1, 3, 5, 7, 9. ѕосле этого над множествами выполнены операции объединени€, разности и пересечени€.

program Dem_Mno: {ƒемонстраци€ операций над множествами}

type Digits = set of 0..9:

var

Dl. D2. D3. D : Digits:

begin

Dl:=[2,4,6,8]: {«аполнение множеств}

D2:=[0..3,5]:

D3:=[1.3.5.7,9];

D:=D1 + D2; {ќбъединение множеств 01 и 02}

D:=D + D3; {ќбъединение множеств D и D3}

D:=D - D2: {–азность множеств D и D2}

D:=D * Dl: {ѕересечение множеств D и 01}

end.

 ак видно из текста программы, сначала описан тип Digits = set of 0..9, затем описаны переменные Dl, D2, D3, D этого типа. ¬ первой части программы осуществл€етс€ заполнение множеств, а затем над множествами выполн€ютс€ операции объединени€, пересечени€, разности.

ƒл€ проверки работы программы запустите интегрированную среду программировани€. ¬ведите текст программы Dem_Mno и запишите файл на диск под соответствующим именем, а затем откомпилируйте его. “ак как в Pascal отсутствуют средства ввода-вывода элементов множества, то работу программы придетс€ провер€ть, выполн€€ ее в пошаговом режиме и отслежива€ изменени€ значений переменных Dl, D2, D3, D в окне просмотра.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

Ћинейна€ сортировка (сортировка отбором) —ортировка методом пузырька ”слови€ задач (без ответов) ќписание типа Ђћножествої ќперации над множествами ”пражнение 2 ”пражнение 3 ќписание типа "«апись" ”пражнение є1 дл€ работы с запис€ми ”пражнение є2 дл€ работы с запис€ми 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом