Помогите написать код ** языке Паскаль. Вот ниже блок-схема! Буду очень благодарна=3

Question

Помогите написать код на языке Паскаль. Вот ниже блок-схема! Буду очень благодарна=3

---

Comments

xn = 1xk = 10dx = 0.3Программа доходит только до 9.7, хотя должна доходить 10...

---

Нестрогое неравенство, цикл же должен продолжится, если x = xk ?

---

Ясно, спасибо

Answer 1

Var
   xn,xk,dx,S,P,x,y:real;
   k:integer;
Begin
Write('xn = ');
ReadLn(xn);
Write('xk = ');
ReadLn(xk);
Write('dx = ');
ReadLn(dx);
S:=0;
P:=1;
k:=0;
x:=xn;
While x <= xk do<br>   Begin
   y:=Exp(Sin(x))*Cos(x);
   WriteLn('f(',x,') = ',y);
   if y >= 0 then S:=S+y
   else k:=k+1;
   if y <> 0 then P:=P*y;
   x:=x+dx;
   End;
WriteLn('S = ',S);
WriteLn('P = ',P);
WriteLn('k = ',k);
End.