Структурированный тип данных:множества

@Saylar · Регистрация: 08.11.2009

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

Люди, помогите сделать программу, буду очень благодарен...
Требуется...
Создать два множества целого типа, значения элементов множества задать случайным образом. Определить, равны созданные множества или нет. Вывести элементы множеств на экран.

@Jeni · 15.01.2010, 18:48

Pascal

program AB;
uses Crt;
 
const
  n = 5;
 
var
  x, y: set of 1..5;
  i: integer;
 
begin
  ClrScr;
  Randomize;
  for i:=1 to n do
  begin
    x := x+[Random(5)];
    y := y+[Random(5)];
  end;
  if x = y then
    Write('Ravni')
  else
    Write('Ne ravni');
  ReadLn;
end.

@Gepar · 15.01.2010, 20:34

В предыдущем коде наверное стоит добавить вывод значений x и y

Pascal

1 2	writeln('X :',x); writeln('Y : ',y);

по крайней мере у нас всегда преподаватель обижался когда программа писала лишь результат .

@Jeni · 16.01.2010, 08:54

А множества нельзя вывести на печать с помощью write

@Puporev · 16.01.2010, 09:13

Вообще-то получить равные множества рандомно мало вероятно, разве что из 1 или двух элементов.

Pascal

uses crt;
var a,b:set of byte;
    x,i:byte;
begin
clrscr;
randomize;
a:=[];b:=[];
for i:=1 to 5 do
 begin
  x:=random(6);
  a:=a+[x];
  x:=random(6);
  b:=b+[x];
 end;
writeln('Множество А:');
for i:=0 to 5 do
if i in a then write(i,' ');
writeln;
writeln('Множество B:');
for i:=0 to 5 do
if i in b then write(i,' ');
writeln;
if a=b then write('Множества равны')
else write('Множества не равны');
readln
end

@Saylar 0 / 0 / 0 Регистрация: 08.11.2009 Сообщений: 28
		1
	Структурированный тип данных:множества 15.01.2010, 18:17. Показов 1354. Ответов 4 Метки нет (Все метки) Люди, помогите сделать программу, буду очень благодарен... Требуется... Создать два множества целого типа, значения элементов множества задать случайным образом. Определить, равны созданные множества или нет. Вывести элементы множеств на экран. 0

@Jeni 64 / 44 / 6 Регистрация: 10.01.2010 Сообщений: 99
	16.01.2010, 08:54	4
	А множества нельзя вывести на печать с помощью write 1

	16.01.2010, 09:13

Опции темы