Begin26. Найти значение функции $$y = 4*(x-3)^6-7*(x-3)^3+2$$ при данном значении $$x$$.
Решение:
|
1 2 3 4 5 6 7 8 9 |
program Begin26; var y,x: Real; begin Write('Введите значение x: '); Readln(x); y:=4*(x-3)*(x-3)*(x-3)*(x-3)*(x-3)*(x-3)-7*(x-3)*(x-3)*(x-3)+2; Writeln('Значение функции равно: ',y); end. |
Решение используя конструкцию для возведения $$x^y$$ =exp(ln(x))*y)
|
1 2 3 4 5 6 7 8 9 10 |
program Begin26; var y,x: Real; begin Write('Введите значение x: '); Readln(x); if (x<3) then y:=4*exp(ln(abs(x-3))*6)+7*exp(ln(abs(x-3))*3)+2 else y:=4*exp(ln(abs(x-3))*6)-7*exp(ln(abs(x-3))*3)+2; Writeln('Значение функции равно: ',y); end. |
Решение от Виктора:
|
1 2 3 4 5 6 7 8 9 |
program Begin26; var y,x: Real; begin Write('Введите значение x: '); Readln(x); y:=4*sqr(sqr(x-3))*sqr(x-3)-7*sqr(x-3)*(x-3)+2; Writeln('Значение функции равно: ',y); end. |
Другие задачи из раздела Begin можно посмотреть здесь.
Третья степень написана неправильно
Всегда, когда в проверке x<3 при таком нахождении
y:=4*exp(6*ln(abs(x-3)))-7*exp(3*ln(abs(x-3)))+2;
задачник выдаёт ошибку, хотя есть abs
Да проблема глубже при 3 степени и х<3 меняется знак, а мы это проигнорировали из за abs.
например (0-3)^3=-9, а у нас просто 9 получается. Воткнул if. возможны ошибки.... нечем компилить 🙂
понял, спасибо 🙂
y:=4*sqr(x-3)*sqr(x-3)*sqr(x-3)-7*sqr(x-3)*(x-3)+2; вот как я записал
А почему вы остановились? почему не :
y:=4*sqr(sqr(x-3))*sqr(x-3)-7*sqr(x-3)*(x-3)+2;
🙂
Забавно получилось добавлю в шапку.