Курсовая работа: Алгоритм вибору найкращого варіанту гнучкої виробничої системи

ProgramMGVS;

{$N+}

Uses crt;

Const size = 60;

type

TMatrix=array[1..size, 1.. size] of double;

VAR lm,Tsr,d,Vs,Vn:double;

l,n,m,i,j,MaxN,MaxM: integer;

A:TMatrix;

FRez:text;

fname:string;

function deg(x:real;y:integer):double;

begin

deg:=Exp(Ln(x)*y);

end;

function fac(x:byte):real;

var i:integer;

rez:real;

begin

rez:=1;

for i:=1 to x do rez:= rez * i;

fac:=rez;

end;

function Pr(p_lm,p_Tsr,p_d,p_Vs,p_Vn:real; p_l,p_n,p_m:byte):double;

var P1,P2,p3,p4,p5:double;

i:Integer;

Begin

P1:=deg(p_Tsr*p_lm, p_n+p_l*p_m) / ( deg(p_n,p_l*p_m) * fac(p_n) );

p3:=0;