Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

infa_1 / 40.Составление графика соревнований

..doc
Скачиваний:
32
Добавлен:
05.06.2015
Размер:
28.67 Кб
Скачать

Составление графика соревнований:

Требуется составить график соревнований, предполагающих парные соревнования при следующих условиях:

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.