Encuentros - Pairings
Publicado por Roberto (6 intervenciones) el 07/05/2013 23:27:42
Tengo 20 jugadores y 19 partidas a disputar. Necesito ver en una tabla esos 19 encuentros generados con los 20 jugadores (pairings), con este codigo llego a ver solo 10...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program encuentros;
uses
crt;
var
k, j, x, y : integer;
begin
clrscr;
for j := 0 to 9 do
begin
writeln('J = ',j);
for k := 0 to 9 do
begin
write('K = ',k,' ');
x := k + j;
y := 20 - k - 1 + j;
y := y mod 20;
writeln(x,' ',y);
end;
readkey;
clrscr;
end;
end.Valora esta pregunta
0