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

p4:=deg(p_Tsr*p_lm,p_n+1)/( p_n*fac(p_n) ) ;

p5:= ( 1 - deg((p_Tsr*p_lm)/n ,p_l*p_m) ) / (1- ((p_Tsr*p_lm)/n) );

P2:=1/(1+p3+p4*p5);

Pr:=(p_d*p_lm)*(1-P1*P2)-(p_Vs*p_n)-(p_Vn*p_m);

end;

BEGIN

ClrScr;

Write('Vvedite fail rezultatov: '); Readln(Fname);

assign(frez,Fname);

Rewrite(frez);

Write('Enter lm = ');readln(lm);

Write('Enter Tsr = ');readln(Tsr);

Write('Enter d = ');readln(d);

Write('Enter Vs = ');readln(Vs);

Write('Enter Vn = ');readln(Vn);

Write('Enter l = ');readln(l);

Write('Enter max n = ');readln(n);

Write('Enter max m = ');readln(m);

for i:=1 to n do

for j:=1 to m do A[i,j]:=Pr(lm,Tsr,d,Vs,Vn,l,i,j);

for i:=1 to n do

for j:=1 to m-1 do IF(A[i,j]<A[i,j+1])THEN Begin MaxN:=i; MaxM:=j+1; end;

ClrScr;

Write(frez,'n\m');

for i:=1 to m do Write(frez,' | ',i,' | ');

for i:=1 to n do

Begin

Writeln(frez);

Write(frez,i,' ');