const A = 1.5; X1 = -2*A; dX = A/5; var x,y :real; beginx := X1;repeatif x<0 then y := Power(3,1/3)*A*(1-sqrt(-power(x,3))) else y := sqrt( sqrt( 16*power(A,4) + 4*sqr(a)*sqr(x) ) - sqr(x) - sqr(A) ); writeln('x:',x:6:2,'y:',y:6:2); x := x + dX;until real.IsNaN(y);end.
Объяснение:
sqr(x) -- квадрат x.
sqrt(x) -- квадратный корень x.
power(x, y) -- x в степени y.
real.IsNaN(x) -- x не является числом (условие).
В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).
Алгоритм можно написать по выше данному коду.
Пример работы:
"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(10,10,-75,132); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsWithIndexes.Where(t->t[0].Between(100,999)); foreach var t in s do Write('[',t[1]+1,',',t[2]+1,'] ') end.
"Живой" звук обладает очень большим набором параметров, поскольку он всегда является смесью большого числа отдельных звуков. Этими вопросами занимается наука о звуках - акустика. В акустике выделяются четыре базовых параметра - высота звука (число колебаний в секунду, частота), сила звука (его интенсивность, пропорциональная амплитуде звуковых колебаний), длительность звука (его долгота, определяющая протяженность во времени) и тембр звука (его окраска, являющаяся результатом сложного наложения ряда колебаний)
Оцифрованный звук характеризуется тремя параметрами - частотой дискретизации (количеством отсчетов в секунду), битностью (числом бит, использованных при кодировании уровня громкости одного отсчета) и длительностью.
Объяснение:
sqr(x) -- квадрат x.
sqrt(x) -- квадратный корень x.
power(x, y) -- x в степени y.
real.IsNaN(x) -- x не является числом (условие).
В задании нет конечного значения x, поэтому поставил условие на NaN, так как начиная с x=3.60, y перестаёт вычисляться (квадратный корень не извлекается).
Алгоритм можно написать по выше данному коду.
Пример работы:
"Ой! Картинка отличная, но произошла ошибка загрузки попробуйте еще раз."