Задание 6

Известен набор продуктов: хлеб, масло, сыр, молоко, имеющиеся в ассортименте магазинов. В три магазина доставлены отдельные виды этих продуктов требуется построить множества А, В, С, которые содержат собственно:

• продукты, имеющиеся одновременно во всех магазинах;

• продукты, имеющиеся, по крайней мере, в одном из магазинов;

• продукты, которых нет ни в одном из магазинов.

Решение:

Program MAGAZIN;

const

n=3;

type

Product= (хлеб, масло, сыр, молоко);

ASSORT= SET of Product;

Mag=array[1..n] of assort;

Var

M1:Mag;

x: product;

a, b, c, XM1: integer;

i, j, iw, M: integer;

begin

for i:=1to n do

begin

XM1:=[];

writeln (‘Введите номера продуктов’, i:2, ‘-го магазина’);

repeat

read (iw);

Case iw of

1: x:=хлеб;

2: x:=масло;

3: x:=сыр;

4: x:=молоко;

end;

XM1:=XM1+[x];

until Eoln;

m1[i]:=XM1;

end;

a:=m1[1];

b:=[];

c:=[хлеб .. молоко];

for i:=1 to n do

begin

b:=b+m1[i];

a:=a+m1[i];

c:=c-b

end;

for i:=1 to 3 do

begin

case i of

1: writeln (‘Продукты, имеющиеся одновременно во всех магазинах’);

2: writeln (‘Ассортимент продуктов’);

3: writeln (‘Продукты, которых нет ни в одном магазине’);

end;

for x:=хлеб to молоко do

if x in a

then

case

хлеб: write (‘хлеб’);

масло: write (‘масло’);

сыр: write (‘сыр’);

молоко: write (‘молоко’);

end;

if i:=1 then a:=b

else a:=c;

writeln

end;

readln

end.

Задачи для самостоятельного решения:

1. Задано множество персональных компьютеров, которыми может быть обеспечен колледж: Pentium II, Pentium III, Pentium IV, Celeron, Atlon. Известен набор компьютеров, имеющихся в каждом колледже. Количество колледжей равно 10. Требуется построить и распечатать множество, включающее в себя персональные компьютеры:

   1. которыми обеспечены все колледжи;

   2. которые имеет хотя бы один колледж;

   3. которых нет ни в одном колледже.

2. Задано множество ассортиментного перечня обуви, которыми может быть обеспечен каждый из 5-ти имеющихся магазинов: кроссовки, мужские туфли, женские туфли модельные, босоножки. Требуется построить и распечатать три множества: первое множество должно включать в себя обувь, которая имеется во всех магазинах, второе – обувь, которой нет ни в одном из магазинов; третье – обувь которая есть хотя бы в одном из магазинов.

Лабораторная работа №11. Тема: «Разработка алгоритмов и программ с использованием методов внутренней сортировки».

Цель работы: получение навыков составления программ на языке Pascal с использованием методов внутренней сортировки.

Задание

Напишите программу, которая высчитывает количество матчей и очков. Сортирует массив по убыванию количества произведенных побед.

Для исходных данных и результата обработки используется двумерный массив game, количество строк которого на единицу больше, чем количество команд, а количество столбцов на два больше, чем видов результатов матчей. Дополнительные два столбца используются для хранения вычислительного количества матчей и очков, а дополнительная строка – как буфер при обмене строк во время сортировки строк таблицы.

Команды	Матчей	Побед	Ничьих	Поражений	Очков
Алания		5	6	4
Динамо		1	9	5
Зенит		8	6	1
Локомотив		6	5	4
Ростсельмаш		6	6	3
Ротор		5	8	2
Спартак		9	4	2