Форум ПКН

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Форум ПКН » Дом » Евро 2021


Евро 2021

Сообщений 1 страница 20 из 33

1

Каждый турнир серии Евро 2021 посвящен одной из стран европейского континента. Начнется наше путешествие в самом центре Европы - Австрии. Следующую страну, куда поедем через общую границу, определит победитель турнира.

Размер взноса зависит от лучшего рейтинга (peak rating) на героях:
менее 1400 - 0 руб
1400 - 100 руб
1500 - 200 руб
1600 - 300 руб
1700 - 400 руб
1800 - 500 руб

Весь призовой фонд заберет победитель турнира. Взносы отправлять на счет тел +7 920 872 2989 или брать из банка ПКН.

Длина матчей - количество миллионов жителей страны (ближайшее число не менее 5 и не более 11). До трех поражений. На тур - неделя, кв 21 мск. Жеребьевка с использованием сервиса DrawBoss. Если сервис не сможет составить пары очередного тура, призовой фонд будет поделен в зависимости от количества поражений.

0

2

Турнир Австрия.

Матчи до 9 очков (8,859 миллиона жителей).

Старт - 26 июля.

http://forumupload.ru/uploads/0011/85/db/2/662857.jpg

0

3

Заявка.

0

4

Заявка .

0

5

Заявка.
Рейт на сервере 1?
До этого старался поддерживать рейт)

0

6

Чтобы не было соблазна манипулировать рейтингом, исправил на лучший рейтинг, который уже не сбросишь.  :crazy:

0

7

Турнир состоится "при любой погоде", поэтому те, кто записался, обязательно сыграют.

0

8

http://forumupload.ru/uploads/0011/85/db/2/843832.jpg

0

9

Стартуем через 3 дня.

0

10

Заявка

0

11

Стартуем завтра.

0

12

https://forumupload.ru/uploads/0011/85/db/2/490361.jpg

0

13

Неплохо бы озвучить взносы каждого участника, чтобы понимать сумму общего банка

0

14

Андрей и еще вопрос. играем без турнирной сетки на сайте? или будет создан турнир? можем начинать?

0

15

В нижней части картинки указаны пары первого тура.

Призовой фонд посчитаю завтра.

0

16

mixalich77  MikeCorleone 9-1

0

17

заявка

0

18

agry10 написал(а):

заявка

Турнир уже стартовал.

0

19

Максимальные рейтинги и размер взноса

Михаил 1668 300
Станислав 1599 200
АндрейК 1778 400
АндрейП 1651 300

Призовой фонд - 1200 руб

0

20

Скрипт для распределения призов. Может обработать не более 20 оставшихся в турнире участников, у которых от 0 до 4 поражений.

Текст скрипта надо сохранить в текстовом файле с расширением vbs (напр. swiss.vbs) и запустить двойным щелчком мыши по файлу.

Код:
'Распределение призов в турнире по швейцарской системе
Randomize
Dim ts
f = "swiss.txt"
a = array(32, 40, 39, 36, 35, 36, 35, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32)
r = array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 'сумма0, кол0, сумма1, кол1...
'======================================================
x = InputBox("Введите фонд и количество поражений оставшихся в турнире через пробел" & vbCrLf & "(не более 20)",,"1000 0 1 2")
b = Split(x, " ")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(f, 2, True) ' новый файл
ts.Write "Протокол раcпределения призов" & vbCrLf
ts.Write "от " & Now() & vbCrLf
ts.Write "-----------------------------" & vbCrLf
ts.Write "Призовой фонд: " & b(0) & vbCrLf
For k = 0 to 4
For i = j to UBound(b)-1
if CInt(b(i+1)) = CInt(k) then r(k*2) = r(k*2) + a(i)/(i+1) : r(k*2+1) = r(k*2+1) + 1 
Next
Next
For k = 0 to 4
z = 0
if r(k*2+1) > 0 then z = round(r(k*2)/r(k*2+1)*b(0)/(r(0)+r(2)+r(4)),1)
ts.Write k & ": " & z & " (" & r(k*2+1) & ")" & vbCrLf
Next
ts.Write vbCrLf
ts.Close
MsgBox "Результаты в файле " & f

0

Быстрый ответ

Напишите ваше сообщение и нажмите «Отправить»


Бросить две кости: Бросить одну кость:


Вы здесь » Форум ПКН » Дом » Евро 2021


создать форум