Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

CPM (Critical Path Method) for Delphi and FreePascal

0 views
Skip to first unread message

rami18

unread,
Jun 20, 2017, 2:53:13 PM6/20/17
to
Hello........


CPM (Critical Path Method) for Delphi and FreePascal

Version: 1.0

Authors: Robert Sedgewick, Kevin Wayne
and Amine Moulay Ramdane

Description:

The Critical Path Method or Critical Path Analysis, is a mathematically
based algorithm for scheduling a set of project activities, it is an
important tool for effective project management, commonly used with all
forms of projects, including construction, software development,
research projects, product development, engineering, and plant
maintenance, among others. Any project with interdependent activities
can apply this method of scheduling

CPM calculates:

- The longest path of planned activities to the end of the project
- The earliest and latest that each activity can start and finish
without making the project longer
- Determines “critical” activities (on the longest path)
- Prioritize activities for the effective management and to
shorten the planned critical path of a project by:
- Pruning critical path activities
- “Fast tracking" (performing more activities in parallel)
- “Crashing the critical path" (shortening the durations of critical
path activities by adding resources)

You have to have a java compiler, and you have first to compile the java
libraries with the batch file compile.bat, and after that compile the
Delphi and Freepascal test.pas program.

Here is the procedure to call:

procedure solveCPM(filename:string;var info:TCPMInfo;var
finishTime:system.double);

The arguments are:

The filename: is the file to pass, it's is organized as:

The first line is the number of jobs, the rest of the lines are the time
that takes the job and its precedences.

info: is the returned information, you can get the start and finish time
in info[i].start and info[i].finish, please look at the test.pas example
to understand.

finishTime: is the finish time.

Have fun with it !

You can download it from:

https://sites.google.com/site/aminer68/cpm-critical-path-method-for-delphi-and-freepascal

Language: FPC Pascal v2.2.0+ / Delphi 7+: http://www.freepascal.org/

Operating Systems: Windows,

Required FPC switches: -O3 -Sd -dFPC -dFreePascal

-Sd for delphi mode....

Required Delphi switches: -$H+ -DDelphi

For Delphi XE-XE7 use the -DXE switch

Please click on the small arrow on the right of the zip file bellow to
download...


Thank you,
Amine Moulay Ramdane.

0 new messages