Помощь - Поиск - Пользователи - Календарь
Полная версия: Множества
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
VAN
Четыре садовника выращивают на своих участках цветы из имеющегося списка. Определить, какие виды цветов выращивают хотя бы два садовника, выращивает только один садовник, какие цветы есть у каждого садовника.
Помогите пожалуйста: как определить какие цветы выращивает только один садовник?
Вот программа:
 
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.


.
volvo
Насколько я помню - вот так:

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-х садовников }

.

volvo
Прости, а ЧЕМ, собственно, результат-то моего выражения тебя не устроил? Итог-то один и тот же... Ну, само собой, ОТ МЕНЯ ты больше помощи не увидишь, ибо делать что-то, проверять, тестировать, а потом какой-то хам придет и скажет, что "КОНЕЧНО, неправильно" - это пусть другие теперь тебе помогают, однако - результат - АБСОЛЮТНО идентичный... dry.gif
Lapp
Цитата(Гость @ 11.05.2007 22:39) *

неправильно конечно,

Гость, VAN, здесь принято при сообщении об ошибке указывать, в чем именно состоит ошибка. Голословные утверждения рискованы. Учти, на подобное заявление обязательно последуют проверки участников Форума, и если говорящий не прав - он как минимум лишится доброй репутации. Если он указал, в чем ошибка, но был при этом не прав - это не беда, ошибиться может всякий, на то и Форум..

Так вот, я предлагаю тебе, гость VAN, конкретно сказать, в чем состоит ошибка в ответе volvo. Надеюсь, ты откликнешься на мою просьбу прежде чем твои слова проверят другие. Думаю, ты не станешь прятаться за маской гостя, которому невозможно понизить репутацию, а честно вступишь в полемику с другими посетителями Форума.

Удачи тебе в этом и других делах..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.