Pascal/Turbo Pascal - Programa que resuelve un pert.

   
Vista:

Programa que resuelve un pert.

Publicado por Elias Reyes eliasreyes70@gmail.com (1 intervención) el 06/08/2016 23:11:13
Hola chicos, estoy preparando un final para dar mi ultima materia y ser un Analista de sistema. Me dieron un ejercicio en pascal el cual debe resolver un Diagrama de pert. Las duraciones y el nombre de la tarea estan cargados en una matriz de adyascencia y los numeros de nodos junto con la fecha temprana y tardia se encuentra en un vector. Mi problema es cuando intento calcular la fecha temprana recorriendo los los valores cargados e intentando sumarlos para guardarlo en el correspondiente casillero del vector.
Aqui lo que hice:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
for j:= 1 to g.NumbVertices  do begin
  for i:=1 to g.NumbVertices do begin
 
   if g.MatrizAdycia[i,j].Dur >= g.MatrizAdycia[i,j+1].Dur then begin
       g.vertices[i].Ftem:= g.MatrizAdycia[i,j].Dur;
       g.vertices[i].Ftem:=g.MatrizAdycia[i,j].Dur + g.vertices[i-1].Ftem;
   end
   else begin
        g.vertices[i].Ftem:= g.MatrizAdycia[i,j+1].Dur;
        g.vertices[i].Ftem:=g.MatrizAdycia[i,j+1].Dur + g.vertices[i-1].Ftem;
        end;
   end;
 
   if g.vertices[i].ftem >= g.vertices[j].ftem then begin
     g.vertices[i].ftem := g.vertices[j].ftem ;
     end
      else begin
      g.vertices[i].Ftem:= g.vertices[j].ftem;
      end;
  end;
  memo1.Lines.Add('Fecha temprana: ' + inttostr(g.vertices[j].Ftem));
  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

Programa que resuelve un pert.

Publicado por ramon (2072 intervenciones) el 07/08/2016 12:52:33
Para poder contestarte con lamallor seguridad posible necesito todo lo que allas realizado
puesto que un Diagrama de pert. se ajusta mas a punteros que arrays pero
pasa lo que tengas echo para poder alludarte
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