{Algo de esto}
program aaaaroun;
uses
crt;
const
max = 16;
type
equipos = array[1..max] of char;
losequipos = record
q1 : integer;
q2 : integer;
end;
juegan = array[1..max,1..2] of losequipos;
var
pq, n, i, j, tmp, ronda, m : integer;
mn, ss, tt, erro, x, y : integer;
eq : equipos;
compt : array[1..max] of juegan;
numer : array[1..(max * max)] of integer;
function main(num : integer; equi : equipos) : integer;
begin
n := num;
if num < 2 then
val(equi[1],n,erro);
if (n <= max) or (n < 2) then
if (n and 1) = 1 then
m := n + 1
else
m := n;
x := 2;
y := 2;
gotoxy(x,y);write('Equipos -->'); x := x + 13;
for i := 1 to n do
begin
gotoxy(13 + (i * 3),y);write(i);
end;
x := 5;
y := 3;
for ronda := 1 to max - 1 do
begin
gotoxy(5,y);write('ronda = ',ronda); x := 16;
for i := 1 to m do
begin
for j := 1 to m do
begin
if ((i + j) mod (m - 1)) = ronda mod (m - 1) then
break;
end;
if (j = i) and (m <> n) then
begin
gotoxy(x,y);write('-'); end
else
if (j = i) and (m = n) then
begin
numer[pq] := n;
pq := pq + 1;
gotoxy(x,y);write(n);
x := 16 + (i * 3);
tmp := i;
end
else
begin
numer[pq] := j;
pq := pq + 1;
gotoxy(x,y);write(j);
x := 16 + (i * 3);
end;
end;
if m = n then
begin
x := x - (1 * 3);
gotoxy(x,y);write(' '); gotoxy(x,y);write(tmp);
numer[pq - 1] := tmp;
y := y + 1;
end;
end;
end;
procedure procesaequipos(grt : array of integer);
var
jor, hh, yt, xt : integer;
sal : boolean;
begin
clrscr;
yt := 1;
xt := 1;
sal := false;
hh := 1;
jor := 1;
repeat
writeln(' jornada ',jor,' : ',numer[yt],' contra ',numer[yt + 1]); compt[jor][xt,1].q1 := numer[yt];
compt[jor][xt,2].q2 := numer[yt + 1];
yt := yt + 2;
xt := xt + 1;
hh := hh + 1;
if hh > (max div 2) then
begin
hh := 1;
readln;
clrscr;
jor := jor + 1;
end;
if xt > (max * (max - 1) div 2) then
sal := true;
until sal = true;
end;
begin
clrscr;
for i := 1 to max do
begin
eq[i] := chr(96 + i);
gotoxy(13 + (i * 3),1);write(eq[i]);
end;
pq := 1;
main(max,eq);
procesaequipos(numer);
readkey;
end.
Crear cuenta