Значение S есть просто знак числа x.
Это стандартная математическая функция.
В школе записывается как sign(x).
Блок схема будет в один блок - вернуть sign(x).
Процедура в MS Excel будет такой
=ЗНАК(B1)
про эту функцию можно прочитать тут
https://support.office.com/ru-ru/article/%D0%97%D0%9D%D0%90%D0%9A-%D1%84%D1%83%D0%BD%D0%BA%D1%86%D0%...
Код в приложении
Компилятор - Pascal ABC.NET
Звук (сложный) , как аналоговый сигнал, есть кривая на плоскости не похожая ни на что.
Современная техника, для хранения или передачи звука на расстояния, дискретизирует звук следующим образом:
<span>Через строго определенные промежутки времени (период дискретизации) измеряется амплитуда сигнала и преобразуется в цифровую величину. Чем чаще происходит преобразование аналогового сигнала в цифровой вид (частота дискретизации) и чем больше разрядов (битов) используется для каждого значения амплитуды (глубина кодирования) , тем лучше звук. </span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,x):=(Sqrt(3),Tan(Pi/5),Log10(7));
var z:real;
if x<b then z:=ArcCos(a*a/(a*a+x*x))
else
if x=b then z:=Ln(2+Cos(b*x))
else z:=Abs(Tan(b*x))+2**(-a*x);
Writeln('z(x)=',z)
end.