Помогите в АВС паскаль

Задание: используя оператор условия (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

Question

Информатика

Федяйка

17 февраля, 04:26

Помогите в АВС паскаль

Задание: используя оператор условия (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

+4

Ответы (1)

Знаете ответ на вопрос?

Оня · Answer 1

Хз у меня дельфи тут, вот что-то типо такого будет:

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;