Сгенерировать n множеств

@Yevgeniy_ · Регистрация: 26.04.2011

Author24 — интернет-сервис помощи студентам

Сгенерировать n множеств (нумерацию начать с единицы). вывести элементы, которые входят во все множества с номерами, кратными трём, но не входят в 1 множество.

@Высокий · 26.04.2011, 18:45

множества рандомные?

@Yevgeniy_ · 26.04.2011, 18:56 **[ТС]**

В задаче не указано какие множества.

@Высокий · 26.04.2011, 19:04

Множества задаются генератором случайных чисел:

Pascal

uses crt;
type mnoj = set of byte;
     mas = array[1..100] of mnoj;
var A: mas;
    i,j,k,n,l: integer;
    sum: mnoj;
begin clrscr;
write('Ââåäèòå êîëè÷åñòâî ìíîæåñòâ: ');
readln(n);
write('Ââåäèòå ÷èñëî ýëåìåíòîâ â ìíîæåñòâå: ');
readln(l);
for i:=1 to n do begin;
for j:=1 to l do begin
k:=random(100);
include(A[i],k);
end;
end;
sum:=A[3];
for i:=1 to n do
if i mod 3 = 0 then
sum:=sum*A[i];
sum:=sum-A[1];
for i:=1 to n do begin
write(i,': ');
for j:=1 to 100 do begin
if j in A[i] then write(j:3);
end; writeln;
end; writeln;
write('Èòîãîâîå ìíîæåñòâî: ');
for i:=1 to 100 do
if i in sum then write(i:3);
readkey
end.

@Yevgeniy_ 2 / 2 / 0 Регистрация: 26.04.2011 Сообщений: 24
		1
	Сгенерировать n множеств 26.04.2011, 18:41. Показов 1965. Ответов 3 Метки нет (Все метки) Сгенерировать n множеств (нумерацию начать с единицы). вывести элементы, которые входят во все множества с номерами, кратными трём, но не входят в 1 множество. 0

@Высокий 250 / 250 / 135 Регистрация: 09.04.2011 Сообщений: 524
	26.04.2011, 18:45	2
	множества рандомные? 0

@Yevgeniy_ 2 / 2 / 0 Регистрация: 26.04.2011 Сообщений: 24
	26.04.2011, 18:56 [ТС]	3
	В задаче не указано какие множества. 0

	26.04.2011, 19:04