Модель колективного вибору (стр. 7 из 7)
else
if l>r then b:=b+many[i];
i:=i+1;
end;
if a>b then
begin
kopl[contrl]:=kopl[contrl]+1;
kopl[k]:=kopl[k]-1;
end
else
if a<b then
begin
kopl[k]:=kopl[k]+1;
kopl[contrl]:=kopl[contrl]-1;
end;
k:=k+1;
vybor2:=name[k];
end; {while по k}
contrl:=contrl+1;
end; {while по contrl}
{визначення оцiнок Борда}
for i:=1 to s do
for j:=1 to M do
begin
for k:=1 to M do
if rang[j,i]=name[k] then r:=k;
bord[r]:=many[i]*(M-j)+bord[r];
end;
victory(kopl, 'Коплендом');
writeln ('Натисніть будь-яку клавішу ');
readkey; writeln;
victory(bord, 'Борда');
end.
Результати роботи програми
Самостійне внесення профілю
Введіть кількість кандидатів: 5
Введіть кількість виборців: 9
Введіть імена кандидатів
Кандидат 1: а
Кандидат 2: b
Кандидат 3: c
Кандидат 4: d
Кандидат 5: е
Як буде здійснюватись занесення інформації?
1-окремими виборцями, 0 – комітетом: 0
Введіть профіль переваг
Група 1
a
b
c
d
e
Кількість виборців у групі 1: 1
Група 2
c
d
b
e
a
Кількість виборців у групі 2: 4
Група 3
e
a
d
b
c
Кількість виборців у групі 3: 1
Група 4
e
a
b
d
c
Кількість виборців у групі 4: 3
Переможець за Коплендом із збереженням нейтральності – а
Сума очок – 2
Переможець за Борда із збереженням нейтральності – е
Сума очок – 20
Демонстрація роботи контрольного прикладу
 |