Найти произведение всех отрицательных значений функции f(x) на заданном интервале

@Kiber-Net · Регистрация: 09.02.2014

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

Задание: Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках.
Границы интервала a, b и количество точек n ввести с клавиатуры.
Результаты вывести на печать.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?f(x)=4{e}^{-0.5x}*x*cos(\pi x)$
Найти произведение всех отрицательных значений функции f(x) на заданном интервале.

@Puporev · 24.04.2014, 15:53

Pascal

function f(x:real):real;
begin
f:=4*exp(-0.5*x)+x*cos(pi*x)
end;
var a,b,x,h,y,p:real;
    n,i,k:integer;
begin
repeat
writeln('Введите интервал [a,b] a<b');
readln(a,b);
until b>a;
write('Введите количество точек n=');
readln(n);
h:=(b-a)/(n-1);
p:=1;
k:=0;
for i:=1 to n do
 begin
  x:=a+(i-1)*h;
  y:=f(x);
  writeln('x=',x:6:2,'  f(x)=',y:8:4);
  if y<0 then
   begin
    k:=1;
    p:=p*y
   end;
 end;
if k=0 then write('Отрицательных значений нет')
else write('Произведение отрицательных=',p:0:4);
end.

@Kiber-Net 0 / 1 / 0 Регистрация: 09.02.2014 Сообщений: 270
		1
	Найти произведение всех отрицательных значений функции f(x) на заданном интервале 24.04.2014, 07:56. Показов 3897. Ответов 1 Метки нет (Все метки) Задание: Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках. Границы интервала a, b и количество точек n ввести с клавиатуры. Результаты вывести на печать. $https://www.cyberforum.ru/cgi-bin/latex.cgi?f(x)=4{e}^{-0.5x}xcos(\pi x)$ Найти произведение всех отрицательных значений функции f(x) на заданном интервале. 0

	24.04.2014, 15:53

Опции темы

Найти произведение всех отрицательных значений функции f(x) на заданном интервале

Решение