Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
const o=1500;
c=1.25; n=10; P=0.2;
k=1.2; B=1.3; pd=9; psc=38.5; pnr=30; oz=63500;
kdn=22; tsm=8; kraz10=2.98; kraz11=3.12; kraz7=2.28;
zie=350000; zt=63500; zo=63500; s=3;
ca=500000; ce=195; km=0.9; ro=30; beta=20; nreal=7;
var Ob,tp,ta,tbc,tk,totl,td,ctr,tpr,ztr,cotl,t:real;
cpr,cmh,cevm,cp,zar,zen,zam,zm,zr,sbal:real;
td1,td2,oo,zekspl,creal:real;
i,j:integer;
ff:text;
begin cevm:=4000000;
assign(ff,'dd2.dat'); rewrite(ff);
ob:=o*c*(1+n*p);
tp:=ob*b/(75*k);
ta:=ob/(20*k);
tbc:=ob/(10*k);
tk:=ob/(20*k);
totl:=ob/(4*k);
td:=ob/(15*k);
tpr:=tp+ta+tbc+tk+totl+td;
oo:=oz*kraz10/(kdn*tsm);
ctr:=oo*tpr*((1+pd/100)*(1+psc/100)+pnr/100);
ztr:=12*(zo*5*kraz7+zt* kraz11)*((1+pd/100)*(1+psc/100)+pnr/100)/5;
zar:=s*ca;
td1:=10*o/60;
td2:=1696;
zen:=2*td2*ce*km;
sbal:=cevm*(1+12/100);
zam:=sbal*12.5/100;
zm:=sbal*1/100;
zr:=sbal*2/100;
zekspl:=ztr+zar+zen+zam+zm+zr;
cmh:=zekspl/td2;
cotl:=td1*cmh;
cp:=30000+20000+10000;
cevm:=cevm*1.12;
cpr:=ctr+cotl+cevm+cp;
creal:=cpr*(1+ro/100)*(1+beta/100)/nreal;
i:=25; j:=7;
writeln(ff,'ob = ',ob:i:j); writeln(ff,'tp = ',tp:i:j);
writeln(ff,'ta = ',ta:i:j); writeln(ff,'tbc = ',tbc:i:j);
writeln(ff,'tk = ',tk:i:j); writeln(ff,'totl = ',totl:i:j);
writeln(ff,'td = ',td:i:j); writeln(ff,'tpr = ',tpr:i:j);
writeln(ff,'oo = ',oo:i:j); writeln(ff,'ctr = ',ctr:i:j);
writeln(ff,'ztr = ',ztr:i:j); writeln(ff,'zar = ',zar:i:j);
writeln(ff,'td1 = ',td1:i:j); writeln(ff,'td2 = ',td2:i:j);
writeln(ff,'zen = ',zen:i:j); writeln(ff,'sbal = ',sbal:i:j);
writeln(ff,'zam = ',zam:i:j); writeln(ff,'zm = ',zm:i:j);
writeln(ff,'zr = ',zr:i:j); writeln(ff,'zekspl = ',zekspl:i:j);
writeln(ff,'cmht = ',cmh:i:j); writeln(ff,'cotl = ',cotl:i:j);
writeln(ff,'cp = ',cp:i:j); writeln(ff,'cpr = ',cpr:i:j);
writeln(ff,'creal = ',creal:i:j);
close(ff);
end.