Вычислить значение выражения

@zarazatupak · Регистрация: 18.10.2017

Author24 — интернет-сервис помощи студентам

Необходимо решение, буду благодарен тем кто откликнется, программа должна работать в ПаскалеАБС

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\begin{cases}\sum_{n=1}^{5}\sin (nx) & \text{ if } x>\,0 \\\\ 0.5\prod_{m=1}^{3}\frac{mx}{\pi} & \text{ if } -\frac{\pi}{2}\,<x\leq 0 \\\\ 2x^2+3x+0.5 & \text{ if } x\leq -\frac{\pi}{2}\end{cases}\ \ \ \ \ \ \ \ \ \ \begin{array}{l}x\in \left[-\pi;\, \frac{\pi}{2}\right]\\\\ h=0.25\end{array}<br />$

@Cyborg Drone · 23.10.2017, 19:21

Pascal

const h = 0.25;
var x, y: real;
    n, m: integer;
begin
  x := -pi - h;
  while x < pi / 2 - h / 2 do
    begin
      x := x + h;
      if x > pi / 2 then x := pi / 2;
      if x <= -pi / 2
        then y := 2 * x * x + 3 * x + 0.5
        else if x <= 0
          then begin
            y := 0;
            for n := 1 to 5 do y := y + sin(n * x)
          end
          else begin
            y := 0.5;
            for m := 1 to 3 do y := y * m * x / pi
          end;
      writeln('x = ', x, ',  y = ', y)
    end
end.

@zarazatupak 0 / 0 / 0 Регистрация: 18.10.2017 Сообщений: 1
		1
	Вычислить значение выражения 18.10.2017, 16:02. Показов 1334. Ответов 1 Метки нет (Все метки) Необходимо решение, буду благодарен тем кто откликнется, программа должна работать в ПаскалеАБС $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> y=\begin{cases}\sum_{n=1}^{5}\sin (nx) & \text{ if } x>\,0 \\\\ 0.5\prod_{m=1}^{3}\frac{mx}{\pi} & \text{ if } -\frac{\pi}{2}\,<x\leq 0 \\\\ 2x^2+3x+0.5 & \text{ if } x\leq -\frac{\pi}{2}\end{cases}\ \ \ \ \ \ \ \ \ \ \begin{array}{l}x\in \left[-\pi;\, \frac{\pi}{2}\right]\\\\ h=0.25\end{array}<br />$ 0

	23.10.2017, 19:21

Вычислить значение выражения

Решение