infa_1 / 40.Составление графика соревнований
..docСоставление графика соревнований:
Требуется составить график соревнований, предполагающих парные соревнования при следующих условиях:
1) В каждом бою участвует 2 спортсмена.
2) Проигравшие спортсмены выбывают.
3)В любом поединке встречаются спортсмены, проведшие или равное количество боев, или у одного из них на 1 бой меньше.
Program example
uses crt, graph;
var
ctr, md: integer
x: array [1..20] of integer;
i, n, k, tp, m: integer;
procedure ns (m, y: integer);
var
i: integer;
begin
for i:=1 to n do
circle (k[1]g*40);
end;
begin
read (n);
for i:=1 to n do
v[r]:=20*i-10;
dr:=detect
initgraph (dr, md, ");
ris (n, s)
k:=1
tp:=0
while n>1 do
begin
k:=k+1;
m:=ndiv2;
if n mod 2=1 then
begin
for i:=1+tp to m+tp do
x[i]:=(x[2*i-1-tp]+x[2*i-tp])div2;
r:=m+1;
if tp=0 then
begin
tp:=1
x[m]:=x[n];
end;
else
tp:=0;
end
else
for i:=1 to m do
x[i]:=(x[2*i-1]+x[2*i])div2;
n:=m;
rin (n, k)
end;
end.