Цитата:
Сообщение от AnnArhiA
помогите пожалуйста решить паскаль) совсем не могу разобраться(
|
Рисованием блок-схем, извините, не занимаюсь, а программа - пожалуйста:
Код:
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.