Вычислить все значение функции f(x) на отрезке [a, b] в точках

Вычислить все значение функции f(x) на отрезке [a, b] в точках x = x + h
Функция(x sin(x)) a-0 b-3 h-0,6

Подсчитать количество положительных значений функции и сумму отрицательных значений функции при данных параметрах.

Задать свой вопрос
1 ответ
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var (a,b,h):=(0.0,3*Pi,0.6);
  var x:=a;
  var (k,s):=(0,0.0);
  while xlt;=b do begin
    var y:=x*Sin(x);
    Writeln(x:5:1,y:18:13);
    if ygt;0 then k+=1 else s+=y;
    x+=h
    end;
  Writeln('Положительных- ',k,', сумма отрицательных ',s)
end.

Пример
  0.0   0.0000000000000
  0.6   0.3387854840370
  1.2   1.1184469031607
  1.8   1.7529257355808
  2.4   1.6211116333228
  3.0   0.4233600241796
  3.6  -1.5930735958615
  4.2  -3.6606182441371
  4.8  -4.7815901224120
  5.4  -4.1729282328023
  6.0  -1.6764929891936
  6.6   2.0561729991883
  7.2   5.7144086197139
  7.8   7.7886380939219
  8.4   7.1786308279416
  9.0   3.7090663671758
Положительных- 10, сумма отрицательных -15.8847031844065
Шенцис Амелия
А ты можешь еще блок схему нарисовать
Максим Фаликов
Могу окончательно, но зачем я буду делать то. чего в вопросе не обозначено?
Яна Дыдзинская
Прости,я не верно написал вопрос,помоги очень благодарен буду
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт