Программки PASCALПожалуйста,помогите решить задания...Я совершенно не разбираюсь в таких
Программки 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 верно решённые задачи)
Ответ:
Изъяснение:
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.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.