Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
39
Добавлен:
27.06.2014
Размер:
888 б
Скачать
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.
Соседние файлы в папке Эксплуатация РТС