Технический форум - Помогите, пожалуйста, решить. Паскаль

Цитата:

Сообщение от AnnArhiA (Сообщение 1095304)

помогите пожалуйста решить паскаль) совсем не могу разобраться(

Рисованием блок-схем, извините, не занимаюсь, а программа - пожалуйста:

Код:

Const

 b=0.1185;

 x:Array[1..5] of Real=(0.0185,0.00088,0.0078,0.01155,0.1085);



Var

 a,S1,S2:Real;

 y:Array[1..5] of Real;

 i:Byte;



Begin

 a:=11.98;

 for i:=1 to 5 do

  a:=a+(b*x[i]-Sin(x[i]))/(b*x[i]+Cos(x[i]));

 S1:=0;

 for i:=1 to 3 do

  S1:=S1+(a*x[i]-Ln(x[i]))/(a*x[i]-b*Ln(x[i]));

 S2:=0;

 for i:=1 to 5 do

  S2:=S2+(a*x[i]-Ln(Sqr(x[i])))/(a*x[i]+b*Ln(Sqr(x[i])));

 for i:=1 to 5 do

  if a*x[i]<Ln(x[i]) then

   y[i]:=Cos(x[i])+Sin(x[i])+S1

  else

   y[i]:=(1-Cos(x[i]))/(1+Sin(x[i]))+S2;

 for i:=1 to 5 do

  writeln('x = ',x[i]:7:5,'     y = ',y[i]:0:5);

 readln

End.