Задача 1. Дана функция y= 2x5+4. Найти количество отрицательных значений

Задачка 1. Дана функция y= 2x5+4. Определить количество отрицательных значений функции на интервале [a, b] шагом h.
Задачка 2. Дана функция y= 2x5+4. Определить точку минимума функции на промежутке [a, b] шагом h.
Задачка 3. Найти сумму цифр этого числа. Определить, верно ли, что число начинается и кончается одной и той же цифрой.
Задача 4. Дана функция y= 2x5+4. Найти количество интервалов монотонности функции на промежутке [a, b] шагом h.

Задать свой вопрос
1 ответ

Ответ:

Разъяснение:

1.

//  описание функции, ее можно поменять

function func(in_x:real):real;

begin

 func:=-2*in_x*in_x*in_x*in_x*in_x + 4;

end;

var

 h:real;

 x:real;

 a, b:real;

 count_otr:integer;

begin

 writeln('Input a = ');

 readln(a);

 writeln('Input b = ');

 readln(b);

 writeln('Input h = ');

 readln(h);

 count_otr:=0;

 x:=a;

 while (x lt;= b) do begin

   writeln('x = ', x:3:3, ' f = ',  func(x));

   if (func(x)lt;0) then count_otr:=count_otr + 1;

   x:=x+h;

 end;

 writeln(count_otr);

 readln;

end.

2.

function func(in_x:real):real;

begin

 func:=-2*in_x*in_x*in_x*in_x*in_x + 4;

end;

var

 h:real;

 x:real;

 a, b:real;

 f_min, x_min:real;

begin

 writeln('Input a = ');

 readln(a);

 writeln('Input b = ');

 readln(b);

 writeln('Input h = ');

 readln(h);

 x_min:=a;

 f_min:=func(a);

 x:=a+h;

 while (x lt;= b) do begin

   writeln('x = ', x:3:3, ' f = ',  func(x));

   if (func(x)lt;f_min) then x_min:=x;

   x:=x+h;

 end;

 writeln('x min = ', x_min:3:3, ', f min = ', func(x_min):3:3);

 readln;

end.

Илюша Лисоветский
вы обещали 35 баллов за две задачки)))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт