Для стальных и чугунных труб, уже находящихся в эксплуатации, коэффициент сопротивления определяется по формуле:

[Wh1teP]

Помогите решить задачу используя циклы с ветвлениями
http://s017.radikal.ru/i424/1203/f3/d5b6333ff141.jpg
Спасибо заранее!

[Hacker19_90]

Язык какой? Наработки есть?

[Wh1teP]

Pascal

Program Vetvleniya;
var
  T1,M,k,P2,W,a,Bk,B,R:real;
  i:integer;
  P1:array[1..6] of real;
 Begin
  for i:=1 to 6 do 
    begin
      write('P1', '[', i, ']', '=');
      Read(P1[i]);
    end;
  write('T1=');
  read(T1);
  write('M=');
  read(M);
  write('k=');
  read(k);
  write('P2=');
  read(P2);
  a:=k/(k-1);
  Bk:=exp(ln(2/(k+1))*a);
  R:=8314/M;
  for i:=1 to 6 do
    begin
      B:=P2/P1[i];
        if B>Bk then 
          W:=sqrt(2*a*R*T1*(1-exp(ln(P2/P1[i])*(1/a))))
           else W:=sqrt(2*a*R*T1);
       writeln(W);
        
    end;
  
end.

но тут что то не правильно. не могу разобраться