Продолжение приложения а

936. for(;;)

937. {

938. fprintf(fil,"*********** Начало ДОЛБАНУТОЙ Итерации**********\n");

939. basper = 0;

940. Bas();

941. //void sohran(void);

942. if(iter>0)

943. {

944. //Количество базисных ненулевых переменных <m+n-1

945. if(basper <m+n-1) sohran();

946. }

947. kost(); //****** Вывод общей стоимости******

948. potenzial(); //*******Подсчет потенциалов********

949. ch2 = 0;

950. z = optim();

951. if(!z) break;

952. plmi();

953. iter++;

954. fprintf(fil,"%d ШАГ ДОСТАВШЕЙ ДО СЪЕХАВШЕЙ КРЫШИ ИТЕРАЦИИ",iter);

955. }

956. //************* ПРОВЕРКА************

957. printf("\n\nOPTIMAL PLAN :\n");

958. for(i=0;i<m;i++)

959. {

960. for(j=0;j<n;j++)

961. {

962. printf("%5d",*(matr+i*n+j));

963. }

964. printf("\n");

965. }

966. fprintf(fil,"optimal PLAN :\n");

967. for(i=0;i<m;i++)

968. {

969. for(j=0;j<n;j++)

970. {

971. fprintf(fil,"%5d",*(matr+i*n+j));

972. }

973. fprintf(fil,"\n");

974. }

975. kost();

976. //************ВЫВОД общей стоимости***********

977. fclose(fil);

978. clrscr();

979. printf("Отчет о проделанной работе ");

980. getch();

981. return;

982. } // main

Приложение б

Листинг программы:

Программа написана на borland delphi версии 7.0

unit PTransportTask;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Grids, Math, ComCtrls, ExtCtrls, Menus;

const

fFigSize: integer = 10;

type

TFigure = class

public

x,y: integer;

num: integer;

flag: integer;

val: integer;

p: integer;

end;

TLine = class

public

i1, i2: integer;

val: integer;

end;

TData = class

public

Width, Height: integer;

Arr: array [0..99, 0..99] of integer;

Left, Top: array[0..99] of integer;

constructor Create;

procedure Reset;

procedure Assign( data: TData );

procedure AssignLT( data: TData );

function NoNulls: integer;

Продолжение приложения б

function Min: integer;

end;

TEquation = record

p1, p2: integer;

sum: integer;

solved: boolean;

end;

TVar = record

v: integer;

solved: boolean;

end;

TEqSolve = class

public

Eq: array [0..100] of TEquation;

fV: array [0..100] of TVar;

fEqCount, fVarCount, fH: integer;

function GetU( index: integer ): TVar;

function GetV( index: integer ): TVar;

procedure AddEq( p1, p2, s: integer );

constructor Create( h, v_c: integer );

procedure Solve;

property U[index: integer]: TVar read GetU;

property V[index: integer]: TVar read GetV;

end;

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Button5: TButton;

Button2: TButton;

StringGrid1: TStringGrid;

Button3: TButton;

MainMenu1: TMainMenu;

Afqk1: TMenuItem;

N1: TMenuItem;

Продолжение приложения б

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Button7Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

fData: TData;

fFigures: TList;

fLines: TList;

fMouseState : integer;

fMouseInd: integer;

{ Public declarations }

function Check( data: TData ): boolean;

procedure CalcNorthWest( data: TData; var plan: TData );

procedure CalcMinEl( data: TData; var plan: TData );

procedure CalcPotential( data: TData; var plan, x: TData );

procedure Dump( data: TData; fl: integer );

function CalcSum( data, plan: TData ): integer;