Programa que resuelve un pert.
Publicado por Elias Reyes (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:
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
0