Algorithme de simplex : plantage de mon programme et de TP7

Version imprimable

01/05/2009, 15h50
benooo

Algorithme de simplex : plantage de mon programme et de TP7

Salut à tous,
je suis en train de faire l'application de l'algorithme de simplex en Pascal et, dans l'exécution, je fais entrer les valeurs de la matrice et tout marche bien puis ouuuuups il n'y a plus la fenêtre de l'exécution ni Turbo Pascal et il faut que je relance TP7 et que je recommence à 0 ??????
Il n'affiche aucune erreur ni stack overflow ni rien du tout.
Quel est le problème ?
Merci
01/05/2009, 16h14
droggo

Bie,

J'ignore quel est le problème de ton côté, mais du mien, c'est que ma boule de cristal est en panne. :)
01/05/2009, 16h57
Alcatîz

Bonjour,

Difficile en effet sans voir ton code. ;)

Code:

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
begin
  write('entrer le type du probleme_____MAX____ ou _____MIN_____ ==');
  read(tpe);
  write('entrer le nbr des contraintes  == ');
  read(nbc);
  write('etrer le nombre de variables == ');
  read(nbv);
  for i := 1 to nbc do
    begin
      for j := 1 to nbv do
        begin
          write('enter la valeur de la variable t[',i,',',j,']  de la contrainte numero ',i,'  ==  ');
          read(t[i,j]);
        end;
      write('contrainte numero',i,' si _____<_______ entrer: -1 _____ si ___> entrer: 1 _____si ______=______entrer: 0  == ');
      read(t[i,nbv + 1]);
      write(' entrer la valeur',i,'du vecteur b == ');
      read(t[i,nbv + 2]);
    end;
  {========================================= variable artificiel ==================================}
  v := nbv;
  for i := 1 to nbc do
    begin
      if (t[i,v + 1] = -1)
         then
           begin
             varajou[i,1] := 1;
             nbv := nbv + 1;
           end
         else
           if (t[i,v + 1] = 1)
              then
                begin
                  varajou[i,1] := -1;
                  nbv := nbv + 1;
                end;
      if ((varajou[i,1] * t[i,v + 2]) < 0)
         then
           begin
             varajou[i,2] := 1;
             nbv := nbv + 1;    {ajout de la variable artificiel}
           end
         else
           begin
             varajou[i,2] := 0;   {ne pas ajouter les variable arti}
           end;
    end;
  { +  +  +  +  +  + A EFFACER +  +  +  +  + }
  for i := 1 to nbc do
    begin
      writeln('||');
      for j := 1 to 2 do
        begin
          write('[_',varajou[i,j],'_]  ');
        end;
    end;
 
  {==============================pmlissage de la matrice initiale=================================================}
 
  { +  +  +  +  +  +  +  +  + replissage des couts des variable  initiales +  +  +  +  +  +  +  +  + }
  for j := 2 to v + 1 do
    begin
      writeln('entrer les couts de la fonction economique  initiales',  j,'== ');
      read(init[1,j]);
      writeln('init[1,',j,'] ==',init[1,j]);
    end;
 
  { +  +  +  +  +  +  +  +  + remplissage des couts des variables ajouter +  +  +  +  +  +  +  +  + }
  i := 1;
  r := 1;
  while (i <= nbc) do
    begin
      if (varajou[i,1] <> 0) and (varajou[i,2] <> 0)
         then
           begin
             init[1,j] := 0;
             xr[r] := -122;
             r := r + 1;
           end
         else
           if (varajou[i,1] <> 0) and (varajou[i,2] = 0)
              then
                begin
                  xr[r] := 0;
                  r := r + 1;
                end
              else
                if (varajou[i,1] = 0) and (varajou[i,2] <> 0)
                   then
                     begin
                       xr[r] := -122;
                       r := r + 1;
                     end;
    end;
  ir := 1;
  for j := nbv + 2 - r to nbv + 1 do
    begin
      init[1,j] := xr[ir];
      ir := ir + 1;
    end;

c'est la partie ou il 'ya le probleme

Code:

1
2
3
4
5
6
7
8
9
  {============================pmlissage de la matrice initiale==============================}
 
  { +  +  +  +  +  +  +  +  + replissage des couts des variable  initiales +  +  +  +  +  +  +  +  + }
  for j := 2 to v + 1 do
    begin
      writeln('entrer les couts de la fonction economique  initiales',  j,'== ');
      read(init[1,j]);
      writeln('init[1,',j,'] ==',init[1,j]);
    end;

et là surtout quand j = v + 1 et je tape la valeur et je tape entrer et puis ooooups pas de fenêtre d'exe, pas de TP7 et je recommence à 0.

Merci

01/05/2009, 19h27
darrylsite

Il se peut que l'erreur provienne d'un debordement d'indice comme tu demande à l'utilisateur d'entrer le nombre de variable, cette valeur peut etre superieur à la taille de ton tableau .
Mais puisque tu n'a pas montrez la partie declarative de ton programme, on ne peux pas savoir taille de ton tableau.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program simplexe;
 
var
  init : array [1..15,1..15] of integer;
  nbc, nbh, nbv, v, x, y, i, j, min, ie, h, je, ir, r, is, js, c, mint, compt, d, pivot : integer;
  tpe : string;
  th : array [1..15] of integer;
  tb : array [1..15] of integer;
  z : array [1..15]of integer;
  t : array [1..15,1..15] of integer;
  xr : array [1..15] of integer;
  varajou : array [1..15,1..2] of integer;
 
label
  opt, notunik, fin;

et c'est la partie declarative :roll:

01/05/2009, 23h20
droggo

Nea,

Pour être lisible, le code doit être mis en forme (indentation, aérer avec des lignes vides, découper en fonctions/procédures ...
01/05/2009, 23h49
darrylsite

le mieux est de declarer taille des tableaux comme une constante au lieu de mettre des 15 partout. Et aussi, pourquoi pas declarer un type pour les tableau de meme genre. Tu pourras ainsi beneficier d'affectation de tableaux.
Je crois avoir vu des label-goto :aie::dehors: