В задании речь идёт о разложении функции в ряд Тейлора.
Код на JavaScript таков:
function seriesExpl(x){ var pow = Math.pow; return x - pow(x, 3)/6 + pow(x, 5)/120}
function getDiff(x){ var val_1 = seriesExpl(x); var val_2 = Math.sin(x);
console.log('True value is '+val_2.toString()); console.log('Approximated value is '+val_1.toString()); console.log('Difference between them is '+(Math.abs(val_2 - val_1)).toString());}
getDiff(0.2); // Например, значение 0.2
Все аргументы функций в радианах
Смотрите. Тут правда есть немного лишнего. Противоположные стороны всё таки проверять не надо. Хватит 4х углов. Но текст комментирован, лишнее можно убрать. поясняющих картинок нет. но вопрос и так слишком долго живёт без ответа. Мне казалось срок жизни 2-3 дня максимум, а тут 5 дней минуло.
Если что, отправляйте на исправление. дома дорисую.
Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?)
Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386
В версии 3.0.0. думаю, тоже сработает
P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.
X - длина шнура 1 х-1длина шнура 2 х+1 длина шнура 3x+х+1+х-1=303х=30х=10 длина шнура 1 10-1=9 длина шнура 2 10+1=11 длина шнура 3
Var alfa, a1, c, a, g, m, cs : real;
begin
alfa:=30;
c:=13;
a:=-18;
g:=4+(c-a)*(c-a);
a1:=3.14*alfa/180;
cs:=cos(a1-a1*a1);
m:=9.8*(c-a)*(a-c)*cs*cs;
writeln('g = ',g,' m = ',m);
end.
Результат:
g = 965 m = -8843.80431485503
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal('x=');
Writeln('y=',3*x*x/Cos(2*x))
end.
<u>Пример</u>
x= -0.57
y=2.33408244304191