Четыре садовника выращивают на своих участках цветы из имеющегося списка. Определить, какие виды цветов выращивают хотя бы два садовника, выращивает только один садовник, какие цветы есть у каждого садовника.
Помогите пожалуйста: как определить какие цветы выращивает только один садовник?
Вот программа:
.
program mn1;
uses crt;
type sorta = (ange,vict,gaga,ybil,avem,kata);{сорта роз}
sortaSet = set of sorta;
const sortastr: array [ange..kata] of string[9] =
(' Анжел ',' Виктор ','Гагарин ',' Юбил ',' Ave ',' Катар ');
var s: array [1..4] of sortaset; {сорта выращиваемые цветоводами}
w,q,m1,m2,m3: sortaset; {результирующие множества}
i,j:byte;
procedure InSet ( var s:sortaset);
var sort: Sorta; {сорт розы}
begin
s:=[]; {вначале множество пусто}
for sort:= ange to kata do
if random(2)>0 then s:=s+[sort]
end;
procedure outset (s:sortaset);
var sort: sorta;
begin
for sort:=ange to kata do
if (sort in s) then
write(SortaStr[sort],'');
writeln;
end;
begin
clrscr;
randomize;
writeln;
InSet(S[1]);
InSet(S[2]);
InSet(S[3]);
InSet(s[4]);
write(' Есть у первого :');
OutSet(S[1]);
writeln;
write('Есть у второго');
OutSet(S[2]);
writeln;
write('Есть у третьего');
OutSet(S[3]);
writeln;
write('Есть у четвертого');
OutSet(S[4]);
writeln;
m1:=s[1]*s[2]*s[3]*s[4]; {Есть у каждого цветовода}
{Есть хотя бы у двух}
for i:=1 to 4 do
for j:=i+1 to 4 do begin
m2:=s[i]*s[j];
if m2=m2*q then m2:=[];
q:=q+m2;
end;
{Есть только у одного}
write('Есть у каждого');
outset(m1);
writeln;
write('Есть хотя бы у двух');
outset(q);
writeln;
write('Есть только у одного');
outset(w);
readln;
end.
Насколько я помню - вот так:
w := s[1]+s[2]+s[3]+s[4]; { Все присутствующие }
for i := 1 to 3 do
for j := i+1 to 4 do
w := w - s[i]*s[j]; { минус все возможные комбинации из 2-х садовников }
Немного неправильно конечно, но все равно спасибо.
Будет вот так :
.
w := s[1]+s[2]+s[3]+s[4]; { Все присутствующие }
for i := 1 to 3 do
for j := i+1 to 4 do
w := w - q; { минус все возможные комбинации из 2-х садовников }
Прости, а ЧЕМ, собственно, результат-то моего выражения тебя не устроил? Итог-то один и тот же... Ну, само собой, ОТ МЕНЯ ты больше помощи не увидишь, ибо делать что-то, проверять, тестировать, а потом какой-то хам придет и скажет, что "КОНЕЧНО, неправильно" - это пусть другие теперь тебе помогают, однако - результат - АБСОЛЮТНО идентичный...