Используя оператор (If...then), составить программу для вычисления составной функции, имеющей различный вид на разных участках

@Warewolf73 · Регистрация: 22.09.2010

Функции
y1=cos(x)+tg(x)
y2=2*arcsin(x)+1.4
y3=-x^6*ln(1+x)+2.45
y4=-3*(x-1.6)^2+2.8

Участки аргумента
-1<=x1<-0.5
-0.5<=x2<0.5
0.5<=x3<1
1<=x4<=2

@Puporev · 01.11.2010, 14:24

Pascal

uses crt;
function Y1(x:real):real;
begin
Y1:=cos(x)+sin(x)/cos(x);
end;
function Y2(x:real):real;
begin
Y2:=2*arctan(x/sqrt(1-x*x))+1.4;
end;
function Y3(x:real):real;
begin
Y3:=-x*6*ln(1+x)+2.45;
end;
function Y4(x:real):real;
begin
Y4:=-3*sqr(x-1.6)+2.8;
end;
var x,y:real;
begin
clrscr;
write('x=');
readln(x);
if(x>=-1)and(x<-0.5) then y:=Y1(x)
else if (x>=-0.5)and(x<0.5) then y:=Y2(x)
else if (x>=0.5)and(x<1) then y:=Y3(x)
else if (x>=1)and(x<=2) then y:=Y4(x);
if(x>=-1)and(x<=2) then write('Y=',y:0:3)
else write('Y не определен');
readln
end.

@Warewolf73 0 / 0 / 0 Регистрация: 22.09.2010 Сообщений: 18
		1
	Используя оператор (If...then), составить программу для вычисления составной функции, имеющей различный вид на разных участках 01.11.2010, 14:13. Показов 1494. Ответов 1 Метки нет (Все метки) Функции y1=cos(x)+tg(x) y2=2arcsin(x)+1.4 y3=-x^6ln(1+x)+2.45 y4=-3*(x-1.6)^2+2.8 Участки аргумента -1<=x1<-0.5 -0.5<=x2<0.5 0.5<=x3<1 1<=x4<=2 0

Опции темы

Используя оператор (If...then), составить программу для вычисления составной функции, имеющей различный вид на разных участках

Решение