0 / 0 / 0
Регистрация: 15.12.2017
Сообщений: 15
1

Найти максимальное и минимальное значение значение функции и соответствующие значения аргументов

20.03.2018, 13:15. Показов 5065. Ответов 4
Метки нет (Все метки)

Составить программу табулирования функции Y(X) на заданном отрезке [a;b] с шагом h. Для вычисления значений функции Y(X) использовать алгоритмический модуль. Функции F(X) и G(X) вне их области определения считать равными нулю. Найти максимальное и минимальное значение значение функции и соответствующие значения аргументов. Выполнить задание, не используя процедурный тип.
Миниатюры
Найти максимальное и минимальное значение значение функции и соответствующие значения аргументов  
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2018, 13:15
Ответы с готовыми решениями:

дан массив чисел, найти значение функции y=x^3+5 для каждого числа; минимальное и максимальное значение; их сумму.
Здравствуйте, помогите пожалуйста написать программу. Задание: дан массив чисел, найти значение...

Найти минимальное значение X но при этом вывести и сохранить Значение Y соответствующие значению X
Прошу помочь. Есть двумерный массив С=. Необходимо найти минимальное значение X но при этом...

Найти максимальное и минимальное значение функции
1.Найти максимальное и минимальное значение функции 5п sin(2x), а также соответствующие значения...

Найти максимальное и минимальное значение функции
Просьба решить задачку, так как я сам ни бум бум...=( А через пару недель нужно перездать зачет....

4
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
20.03.2018, 13:54 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Решение такое
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
function G(x:real):real;
begin
if x<=-1 then G:=cos(x*x)
else if x<=5 then G:=5-2*x
else G:=0;
end;
function F(x:real):real;
begin
if x>5 then F:=sqrt(x*x+1)
else if (G(x)>0)and(G(x)<0.6) then F:=exp(G(x))
else F:=0;
end;
var a,b,h,x,y,max,min,xmx,xmn:real;
begin
write('Введите начало интервала a=');
readln(a);
repeat
write('Введите конец интервала b>a b=');
readln(b);
until b>a;
repeat
write('Введите шаг табуляции h<b-a h=');
readln(h);
until h<b-a;
x:=a;
repeat
y:=sqr(F(x)+G(x))+8*x*x;
if x=a then
 begin
  max:=y;
  xmx:=a;
  min:=y;
  xmn:=a;
 end
else
 begin
  if y>max then
   begin
    max:=y;
    xmx:=x;
   end;
  if y<min then
   begin
    min:=y;
    xmn:=x;
   end;
 end;
writeln('x=',x:7:2,' G(x)=',G(x):7:2,' F(x)=',F(x):7:2,' Y(x)=',y:7:2);
x:=x+h;
until x>b;
writeln('Максимум x=',xmx:0:2,' y=',max:0:2);
writeln('Минимум x=',xmn:0:2,' y=',min:0:2);
end.
А это
Цитата Сообщение от Янкаяяя Посмотреть сообщение
использовать алгоритмический модуль.
если знаете что это пишите сами.
0
0 / 0 / 0
Регистрация: 15.12.2017
Сообщений: 15
20.03.2018, 21:25  [ТС] 3
Составить программу табулирования функции Y(X) на заданном отрезке [a;b] с шагом h. Для вычисления значений функции Y(X) использовать алгоритмический модуль. Функции F(X) и G(X) вне их области определения считать равными нулю. Найти максимальное и минимальное значение значение функции и соответствующие значения аргументов. Выполнить задание,
используя в качестве параметров функции Y(X), в частности, параметр процедуру и параметр функцию.
Миниатюры
Найти максимальное и минимальное значение значение функции и соответствующие значения аргументов  
0
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
22.03.2018, 09:58 4
Вот вам заготовка. Доработайте остальное для себя.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function g(x: real): real;
begin
  if x <= -1 then
    g := cos(sqr(x))
  else
  if (x > -1) and (x <= 5) then
    g := 5 - 2 * x;
end;
 
function f(x: real): real;
begin
  if x > 5 then
    f := sqrt(x * x + 1)
  else
  if (g(x) > 0) and (g(x) < 0.6) then
    f := exp(g(x));
end;
 
var
  y, x: real;
 
begin
  x := -4;
  while x <= 4 do
  begin
    y := f(x) + sqr(g(x)) + 8 * x * x * x;
    writeln(x:8:2, f(x):12:2, g(x):12:2, y:12:2);
    x := x + 0.5;
  end;
end.
0
Эксперт Pascal/Delphi
6799 / 4560 / 4815
Регистрация: 05.06.2014
Сообщений: 22,438
28.03.2018, 07:12 5
Янкаяяя, зачем вы создаете новые темы? Если у вас есть вопросы по данным вам программам, то

13.Если на ваш вопрос долгое время нет ответа, уточните его, приведите дополнительные сведения, которые могут помочь участникам форума решить вашу проблему.
14.Чтобы "поднять" тему в разделе и поиске по форуму, используйте осмысленные сообщения, например "Тема/проблема/задача актуальна". Если вы чего-то достигли в решении проблемы на этот момент, сообщите об этом.
https://www.cyberforum.ru/announcement.php?a=3
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2018, 07:12
Помогаю со студенческими работами здесь

Найти максимальное и минимальное значение функции
Cоставить и отладить программу для решения следующей задачи: Для заданной функции f=x2(x-3) ...

Найти максимальное и минимальное значение функции
Найти максимальное и минимальное значение экстремумы функции y=2/(1+x^2)

Найти минимальное и максимальное значение функции
Нужно найти минимальное и максимальное значение x^2+y^2, если x^2-4xy+7y^2=1

Найти максимальное и минимальное значение функции на отрезке
Для заданной функции f=x2(x-3) найти максимальное и минимальное значение функции на отрезке с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru