Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Urgente Final Pascal

Pascal/Turbo Pascal - Urgente Final Pascal

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Urgente Final Pascal

Publicado por elias (45 intervenciones) el 24/05/2013 17:26:06
Hola tengo el codigo siguiente ya depurado para hacer disjuntos en un vertice k10, como logro que realice todos en K20, serían 19 posibles, cierto? y cómo puedo integrar un menu para ver una j en especifico?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program bol;
  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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Urgente Final Pascal

Publicado por ramon (2158 intervenciones) el 26/05/2013 17:38:22
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
{A ver seria esto}
 
program bol;
  uses
     crt;
 
  var
    t, n, k, j, x, y : integer;
  procedure disjuntos(d : integer;forma : char);
  begin
     forma := upcase(forma);
     if forma = 'U' then
     begin
        t := d;
     end;
     if forma = 'T' then
     begin
        t := 0;
     end;
     if d > 19 then
     d := 19;
     clrscr;
      for j := t to d  do
      begin
         writeln('J = ',j);
       for k := 0 to d do
       begin
        write('K = ',k,'   ');
        x := k + j;
        y := ((d + 1) + (d + 1)) - k - 1 + j;
        y := y mod ((d + 1) + (d + 1));
        writeln(x,'  ',y);
     end;
     writeln;
     writeln('   Pulse Tecla Espacio ');
     readkey;
     clrscr;
    end;
  end;
 
  procedure menu;
  var
    sal : boolean;
    tec : char;
   begin
       sal := false;
    repeat
        clrscr;
        writeln(' **** Menu General ****');
        writeln;
        writeln('      1 : Ver Todo');
        writeln('      2 : Ver Uno Solo');
        writeln('      3 : Salir');
        writeln;
        writeln(' >>>> Elija Opcion <<<<');
        repeat
           tec := readkey;
        until tec in['1','2','3'];
        clrscr;
    case tec of
  '1' : disjuntos(19,'t');
  '2' : begin
          write('  Entre Numero A Visualizar [0..19] : ');
          readln(n);
          clrscr;
          disjuntos(n,'u');
        end;
  '3' : sal := true;
    end;
    until sal = true;
  end;
 
 
  begin
      menu;
  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