Сделать задание 2,4

Краткий ответ: ниже приведены программы на PascalABC.NET.

Задание 2

\[ z= \begin{cases} -x,\quad x<0,\\ \sqrt{x+1},\quad x\ge 0. \end{cases} \]

program Zadanie2;

var
  x, z: real;

begin
  readln(x);

  if x < 0 then
    z := -x
  else
    z := sqrt(x + 1);

  writeln('z = ', z:0:3);
end.

Принцип: если условие x < 0 истинно, выполняется первая ветвь, иначе — вторая. Например, при \(x=0\): \(z=\sqrt{1}=1\).

Задание 4

\[ y=\sqrt{\left|\sin^2x-12{,}5\right|},\qquad x=-15,-14,\ldots,3. \]

program Zadanie4;

var
  x: integer;
  y: real;

begin
  for x := -15 to 3 do
  begin
    y := sqrt(abs(sqr(sin(x)) - 12.5));
    writeln('x = ', x:3, '   y = ', y:0:6);
  end;
end.

Обозначения в программе:

• sqr(sin(x)) — это \(\sin^2x\);
• abs(...) — модуль;
• 12.5 записывается через точку;
• цикл содержит \(3-(-15)+1=19\) значений \(x\).

Проверка: так как \(0\le \sin^2x\le1\), значения \(y\) находятся примерно от \(3{,}391\) до \(3{,}536\). В Pascal синус вычисляется в радианах.