Курсовая работа: Проект удосконалення нерентабельного підприємства

factr : real;

begin

s:=1;

factr:=1;

for i:=1 to n do

begin

factr:=factr*ro/i;

s:= s+factr;

end;

summa:=s;

end;

var

n,n1,k,max_k,max_n,znach_n,znach_k,i,j:integer;

ro:real;

Scobka,max: real ;

a,b,c,e,f: double;

p: array [1..100,1..100] of real;

begin

Clrscr;

ro:=Lm*T_sr;

n1:=round(ro)+1;

k:=1;

max:=1;

for k:=1 to 5 do

for n:=n1 to 25 do

begin

f:= fact(n);

Scobka:=1/(1+summa(n,ro)+(exp((n+1)*ln(ro)))/(n*f)*(1-exp(L*k*ln(ro/n))/(1-ro/n)));

P[k,n]:=d*Lm*(1-(exp((n+L*k)*ln(ro)))/(exp(L*k*ln(n))*f)*Scobka)-V_v*n-V_n*k;