Эксплуатация РТС
1,8 1,8 0,9823 0,0177 1,6 1,5 0,967 0,033 1,4 1,3 0,9538 0,0462 1,2 1,2 0,9623 0,0377 1,1 1 0,932 0,068 1,1 0,98 0,9225 0,0775 1 0,95 0,9133 0,0867 1,1 0,93 0,904 0,096 1 0,9 0,895 0,105 1 0,93 0,8863 0,1137 1,1 0,9 0,8773 0,1227 1 0,9 0,8685 0,1315 1,1 0,88 0,8598 0,1402 1 0,9 0,8513 0,1487 1,1 0,88 0,8425 0,1575 1,1 0,88 0,834 0,166 1,1 0,88 0,8255 0,1745 1,1 0,9 0,817 0,183 1,1 0,85 0,8083 0,1917 1,1 0,85 0,8 0,2 1,1 0,85 0,8 0,2 1,1 0,88 0,7833 0,2167 1,1 0,85 0,775 0,225 1,2 0,88 0,7665 0,2335 1,2 0,9 0,7573 0,2427 1,3 0,95 0,7485 0,2515 1,4 1,05 0,7383 0,2617 1,6 1,17 0,7268 0,2732 1,8 1,3 0,714 0,286 2,2 1,55 0,6988 0,3012
program
war2;
var
ff,lmb,dn:array [1..30] of real;f:text;
i,nn:integer;k:real;
begin
В dn[1]:=72;В В В
dn[11]:=37;В В В В dn[21]:=34;
В dn[2]:=62;В В В
dn[12]:=36;В В В В dn[22]:=35;
В dn[3]:=54;В В В
dn[13]:=36;В В В В dn[23]:=34;
В dn[4]:=47;В В В
dn[14]:=35;В В В В dn[24]:=35;
В dn[5]:=42;В В В
dn[15]:=36;В В В В dn[25]:=36;
В dn[6]:=39;В В В
dn[16]:=35;В В В В dn[26]:=38;
В dn[7]:=38;В В В
dn[17]:=35;В В В В dn[27]:=42;
В dn[8]:=38;В В В
dn[18]:=35;В В В В dn[28]:=47;
В dn[9]:=37;В В В
dn[19]:=36;В В В В dn[29]:=52;
В dn[10]:=36;В В
dn[20]:=34; В В В В dn[30]:=62;
assign(f,'war3.txt');rewrite(f);k:=4000;
for i:=1 to
30 do begin
k:=k-dn[i];
lmb[i]:=dn[i]/(k*100);
{writeln('
l(',i,')=',lmb[i]:4);}
writeln(f,'
l(',i,')=',lmb[i]:4);
end;close(f);
assign(f,'war4.txt');rewrite(f);nn:=4000;
for i:=1 to
30 do begin
ff[i]:=dn[i]/(400000);
{writeln('
f(',i,')=',ff[i]:4);}
write(f,'
f(',i,')=',ff[i]:4);
end;
end.
program
war9;
var
dn,om:array [1..10] of real;
f:text;I,n:integer;
begin
n:=30;
dn[1]:=24;dn[2]:=27;dn[3]:=22;dn[4]:=20;dn[5]:=21;
dn[6]:=22;dn[7]:=20;dn[8]:=20;dn[9]:=22;dn[10]:=21;
assign(f,'war8.txt');rewrite(f);
for
i:=1 to 10 do begin
om[i]:=dn[i]/(n*100);writeln('
om(',i,')=',om[i]:4);
writeln(f,'
om(',i,')=',om[i]:4);
end;close(f);
end.
|
