Can you Help to make a program using Berger Table a game schedule

[marioorosa]

can you help me to make a game schedule

[af0815]

Homework ?

What did you have show some code.

https://en.wikipedia.org/wiki/Round-robin_tournament information
https://github.com/sasatatar/berger-table-generator in index.js is code
https://handbook.fide.com/chapter/C05Annex1 sample output

[KodeZwerg]

can you help me to make a game schedule

Sure, what have you tried, where are you stuck?

[marioorosa]

I saw a sample program

set((x, y) for x in teams for y in teams if x != y)

from random import sample
def season_schedule_order(teams, pairs):
    n_games_per_round = len(teams) // 2
    last_pairs = set()
    while pairs:
        r_pairs = set(sample(pairs, n_games_per_round))
        # Check that each team is present once in the round.
        r_teams = set(x for (x, y) in r_pairs) | set(y for (x, y) in r_pairs)
        if r_teams != teams:
            continue
        # Check that two teams doesn't face each other again.
        rev_pairs = set((y, x) for (x, y) in r_pairs)
        if rev_pairs & last_pairs:
            continue
        pairs -= r_pairs
        for p in r_pairs:
            yield p
        last_pairs = r_pairs

teams = set(['aik', 'djurgarden', 'elfsborg', 'gais',
             'gefle', 'hacken', 'halmstad', 'helsingborg'])
pairs = set((x, y) for x in teams for y in teams if x != y)
for (ht, at) in season_schedule_order(teams, pairs):
    print '%-20s %-20s' % (ht, at)

 is this a pascal programming language?

[Zvoni]

looks like python

[marcov]

And it is not exactly the best algorithm. It randomly seems to try something and then check if there are conflicts.


Doesn't seem appropriate as a homework result

[marioorosa]

can you help make a simple program in pascal?

[marcov]

can you help make a simple program in pascal?

Surely we can help, and point out mistakes. What do you have so far ?

[marioorosa]

this my first time to make a program.
this my program so far
Program game_shedule(input, output);
uses crt;
var numteam,numgames:integer;
     
begin
       clrscr;
       writeln('Enter Number of Teams : ');
       readln(numteam);
       writeln('Enter Number of Games: ');
       readln(numgames);
end.

[marcov]

Very good! I see no problems in that code.

[marioorosa]

i don't know how to generate the games schedule

[marioorosa]

what is the best to use the procedure or the functional method

[KodeZwerg]

Both do the same, they execute code.
The biggest difference between those methods is, that a function returns a result.
So it depend on what you try to do, to choose what is best.

Code: Pascal  [Select][+][-]

1. function Example(Argument: Type): ResultType;

Code: Pascal  [Select][+][-]

1. procedure Example(Argument: Type);

What happen in the methods you define with a simple

Code: Pascal  [Select][+][-]

1. begin
2.   ...your code...
3. end;

Best would be that you read a Pascal Handbook to get a little common to its syntax.

[MarkMLl]

what is the best to use the procedure or the functional method

That depends on /exactly/ what you mean.

Pascal is a procedural or imperative language.

LISP is often considered to be a functional language.

Pascal supports language structures called procedures and functions, but that doesn't mean that it's a functional language.

As everybody else has said: demonstrate that you've made some attempt to solve the problem yourself.

Oh, and if this is homework or a project associated with a course, assume that your instructor is reading this thread and will not be impressed if you don't at least /try/ to do some relevant work.

MarkMLl