Nanamsat
5 год назад
Протабелювати функцію y = x*cos*2x на проміжку від -1 до 1 з кроком h = 0,2. Визначити суму додатних значень. Паскаль.
ОТВЕТЫ
Арий
Aug 8, 2019
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.
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.
43
Смежные вопросы: