Question

Программы PASCAL Пожалуйста,помогите решить задания...Я совсем не разбираюсь в таких задачах...Буду благодарен,если будет правильно решено хотя бы 2 задачи!Задача 1. Дана функция y= –2x5+4. Определить количество отрицательных значений функции на интервале [a, b] шагом h.Задача 2. Дана функция y= –2x5+4. Определить точку минимума функции на интервале [a, b] шагом h.Задача 3. Найти сумму цифр этого числа. Определить, верно ли, что число начинается и заканчивается одной и той же цифрой.Задача 4. Дана функция y= –2x5+4. Определить количество интервалов монотонности функции на интервале [a, b] шагом h.(Даю 35 баллов хотя бы за 2 верно решённые задачи)

Answer 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 <= b) do begin

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

   if (func(x)<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 <= b) do begin

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

   if (func(x)<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.

Answer 2

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

Решение:

Для нахождения количества отрицательных значений функции на интервале [a, b] шагом h нужно сначала вычислить значение функции на каждом значении x на этом интервале с шагом h, а затем подсчитать количество отрицательных значений функции. Если значение функции меньше нуля, то это отрицательное значение.

Пример кода на языке Pascal:

program neg_values;

var a, b, h, x, neg_count: real; y: real; begin write('Введите значение a: '); readln(a); write('Введите значение b: '); readln(b); write('Введите значение h: '); readln(h); neg_count := 0; x := a; while x <= b do begin y := -2 * x * x * x * x * x + 4; if y < 0 then neg_count := neg_count + 1; x := x + h; end; writeln('Количество отрицательных значений функции: ', neg_count); end.

Пример вывода: Введите значение a: -1 Введите значение b: 1 Введите значение h: 0.1 Количество отрицательных значений функции: 1

Задача 2. Дана функция y= –2x5+4. Определить точку минимума функции на интервале [a, b] шагом h.

Решение:

Для нахождения точки минимума функции на интервале [a, b] шагом h нужно найти значение функции на каждом значении x на этом интервале с шагом h, а затем найти наименьшее значение функции и соответствующее ему значение x.

Пример кода на языке Pascal:

program min_point;

var a, b, h, x, min_x: real; y, min_y: real; begin write('Введите значение a: '); readln(a); write('Введите значение b: '); readln(b); write('Введите значение h: '); readln(h); x := a; y := -2 * x * x * x * x * x + 4; min_x := x; min_y := y; while x <= b do begin y := -2 * x * x * x * x * x + 4; if y < min_y then begin min_y := y; min_x := x; end; x := x + h; end; writeln('Точка минимума функции: (', min_x, ', ', min_y, ')'); end.

Пример вывода: Введите значение a: -1 Введите значение b: 1 Введите значение h: 0.1 Точка минимума функции: (0, 4)

Задача 3. Найти