Вывести на печать все отрицательные значения функции, найти их количество к - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Дана функция f(x)= x3 +1. хÎ[n;m]. Вывести на печать все отрицательные значения функции, найти их количество к, отпечатать его. Шаг по х=1. Вот начало программы
А что дальше писать-ума не приложу. Прошу вашей помощи

Решение задачи: «Вывести на печать все отрицательные значения функции, найти их количество к»

textual
Листинг программы
program Project2;
 
function f(x: real): real;
begin
  Result := x * x * x + 1;
end;
 
const
  h = 1;
 
var
  n, m, x, y: real;
  k: integer;
  
begin
  writeln('n=');
  readln(n);
  writeln('m=');
  readln(m);
  x := n;
  repeat
    y := f(x);
    if y<0 then
    Begin
      k:=k+1;
      writeln('При x = ',x:0:2,' y = ',y:0:4);
    End;
    x := x + h;
  until x > m;
  if k=0 then writeln('Нет отрицательных значений функции на данном отрезке')
   else writeln('Отрицательных значений = ',k);
end.

Объяснение кода листинга программы

В этом коде:

  1. Функция f(x) вычисляет куб x, а затем добавляет 1.
  2. Программа запрашивает у пользователя два числа: n и m.
  3. Затем программа вычисляет и выводит значения функции f(x) для каждого x между n и m (включительно).
  4. Если значение функции отрицательное, программа увеличивает счетчик k на 1 и выводит значения x и y.
  5. Если k=0, программа выводит сообщение Нет отрицательных значений функции на данном отрезке.
  6. Если k>0, программа выводит сообщение Отрицательных значений = k.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.091 из 5
Похожие ответы