Помогите, пожалуйста, решить. Паскаль

[AnnArhiA]

Помогите, пожалуйста, решить. Паскаль

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

 

[Vladimir_S]

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

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

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.

 

[AnnArhiA]

спасибо большое) может кто еще и со схемой поможет)