Помогите в АВС паскаль Задание: используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции, имеющей различный вид на разных участках аргумента Все исходные данные, необходимые для пр...
Помогите в АВС паскаль
Задание: используя оператор условия (if … then), составить программу для вычисления составной (сложной) функции, имеющей различный вид на разных участках
аргумента
Все исходные данные, необходимые для проведения вычислений, вводить с клавиатуры.
Функция
y1=(-x)3 +sin(x)
y2=(x2 +ex )-1
y3=13-ln(x)*4
y4=8+10*sin(x-3)
Участки аргумента
-1<= x1< -0.05
-0.05<= x2<2
2<= x3<3
3<= x4<=4
Гость
Ответ(ы) на вопрос:
Гостьхз у меня дельфи тут, вот что-то типо такого будет:
function WhatEver(x,y:extended):extended;
var
e:extended;
begin
e:=Exp(1);
if (x >= -1) and (x < -0.05 )
then y:=(-x)*3+sin(x);
if (x >= -0.05) and (x < 2)
then y:=(x+e*x)-1;
if (x >= 2) and (x < 3)
then y:=13-ln(x)*4;
if (x >= 3) and (x <= 4)
then y:=8+10*sin(x-3);
result:=y;
end;
Не нашли ответ?
Похожие вопросы