Pascal/Turbo Pascal - Grafo- coupling

   
Vista:

Grafo- coupling

Publicado por elias (46 intervenciones) el 15/04/2013 18:44:06
Alguien: ¿Hay una forma en pascal de gestionar torneo con 20 equipos de soccer en el que pueda ver encuentros todos contr todos sin repetir partidos en un periodo de casi 22 domingos? ¿pueden facilitar ejemplo para iniciar este trabajo?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Grafo- coupling

Publicado por ramon (2072 intervenciones) el 15/04/2013 21:35:03
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
{No se si esto te servirá de ayuda pero te puede dar una idea}
 
program fulbol;
 uses
    crt;
 type
   equipos =  array[1..20] of char;
   partidos = record
          nombre : char;
          jugados : array[1..19] of char;
        end;
 
  var
    encuentros : array[1..20] of partidos;
    equi : equipos;
    p, g, cont : integer;
    jugadoon, jugadooff : boolean;
 
  begin
      clrscr;
      cont := 1;
      g := 1;
     repeat       {tomamos los equipos}
         equi[g] := chr(64 + g);
         g := g + 1;
     until g > 20;
     for cont := 1 to 20 do    {le asignamos ribales}
     begin
     encuentros[cont].nombre := equi[cont];
       p := 1;
       for  g := 1 to 20 do
       begin
       if equi[g] <> encuentros[cont].nombre then
       begin
       encuentros[cont].jugados[p] := equi[g];
       p := p + 1;
       end;
     end;
   end;
     for p := 1 to 20 do  {partidos en 20 domingos}
     begin
       write(encuentros[p].nombre,' = ');
       for g := 1 to 19 do
          write('  ',encuentros[p].jugados[g]);
          writeln;
     end;
     readkey;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Grafo- coupling

Publicado por elias (46 intervenciones) el 15/04/2013 23:12:33
Gracias, sin embargo, tengo este codigo, como puedo mejorarlo a efectos de aplicarlo en lo planteado?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
program fulbol;
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;
if y = 20 then y :=0;
if y = 21 then y :=1;
if y = 22 then y :=2;
if y = 23 then y :=3;
if y = 24 then y :=4;
if y = 25 then y :=5;
if y = 26 then y :=6;
if y = 27 then y :=7;
if y = 28 then y :=8;
 
writeln(x,'  ',y);
readkey;
end;
writeln;
end;
readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Grafo- coupling

Publicado por ramon (2072 intervenciones) el 18/04/2013 20:59:54
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
{Mira lo mismo pero mas corto}
 
 program fulbol;
  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 respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar