Найти минимальное значение функции Y=sin(x)*x, на отрезке [C, D] с шагом 0,001. Значения с и d вводит пользователь

@memory_loss · Регистрация: 08.10.2019

Author24 — интернет-сервис помощи студентам

Возникли сложности с составлением данной программы, может есть те, кто сможет помочь?
Или переделать ёе из паскаль в C++

Pascal

uses crt;
var e,l,xk,yk,a,b,x: real;
    k: integer;
function f(x: real): real;
begin
 f:=sin(x)*x; //искомая функция 
end;
 
begin
 l:=1;
 k:=0; //количество итераций
 a:=0; //интервал от
 b:=6; // до
 e:=0.001; //точность
 repeat
  xk:=(a+b)/2.0-e; //начальная
  yk:=(a+b)/2.0+e; //точка
  if f(yk)>=f(xk) then 
   b:=yk;
  if f(yk)<f(xk) then
   a:=xk;
  inc(k);
 until l<(b-a);
 x:=(a+b)/2.0;
 writeln('Xm = ',x:3:2,' F(Xm) = ',f(x):3:2);
 writeln('Итераций: ',k);
end.

@kilura · 09.10.2019, 16:18

C++

#include <iostream>
 
using namespace std;
 
double function(double);
 
int main() {
    double c, d;
    cout << "enter c: ";
    cin >> c;
    cout << "enter d: ";
    cin >> d;
    double step = 0.001;
    double min = function(c);
    for (c; c <= d; c += step)
        if (function(c) < min)
            min = function(c);
    cout << "minimum of function in range [" << c << ";" << d << "] is" << min;
 
 
 
};
 
double function(double x) {
    return sin(x) * x;
}

Перевод в радианы, если нужен, можешь и сам делать. В одном радиане 180/pi градусов.

@memory_loss · 09.10.2019, 20:12 **[ТС]**

Спасибо, всё работает. ♥

@memory_loss 0 / 0 / 0 Регистрация: 08.10.2019 Сообщений: 10
	09.10.2019, 20:12 [ТС]	3
	Спасибо, всё работает. ♥ 0

Опции темы

Найти минимальное значение функции Y=sin(x)*x, на отрезке [C, D] с шагом 0,001. Значения с и d вводит пользователь

Решение