протабелювати функцю y=x*cos*2x на промжку вд -1 до 1 з кроком

Протабелювати функцю y=x*cos*2x на промжку вд -1 до 1 з кроком h=0,2. Визначити суму додатних значень. Паскаль.

Задать свой вопрос
1 ответ
Program func;
const
  H = 0.2;
var
  i, y, sum: real;
function Func(x:real):real;
begin
  Func := x * Cos( (2 * x) );
end;
begin
  i := -1;
  sum := 0;
  while ilt;=1 do
  begin
    y := Func(i);
    if ygt;0 then
      sum := sum + y;
    i := i + H;
  end;
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт