Помогите с паскалем, у меня практика, это очень срочно... 1. Вычислите выражение при...

Question

Помогите с паскалем, у меня практика, это очень срочно...

1. Вычислите выражение при заданных константах: A=16.5; b=3.4; x=0.61;





2.

Составить программу вычисления значения функции. На экран вывести функцию (записанную на Паскале) вместе с результатом.


у={a+b+cx^2,если 1<=x<2<br>(a*sin(xb))^2,если 2<=x<3<br>под корнем |a+bx^2|+c ,если 3<=x<4<br>a*ln|b+c/2x| ,если 4<=x<5<br>e^esinx+c^3 ,если 5<=x<6<br>

Пожалуйста...

---

---

Comments

А c откуда брать? Константы c нету.

---

Не знаю... Все что было написала.

---

Ладно, сделаю ввод "c" с клавиатуры, раз данных о ней нет.

---

И x, видимо, тоже надо считать, т.к. он не попадает в данный диапазон [1;6)

Answer 1

1)
uses crt;
const a=16.5;b=3.4;x=0.61;
var s,q:real;
begin
s:=x*x*x*(sin((x+b)*(x+b))/cos((x+b)*(x+b)))*(sin((x+b)*(x+b))/cos((x+b)*(x+b)))+a/sqrt(x+b);
q:=(b*x*x-a)/(power(e,a*x)-1);
writeln('s: ',s:0:4,' q: ',q:0:4);
end.
2)
uses crt;
const a=16.5;b=3.4;
var f,c,x:real;
begin
writeln('Введите c,x:');
read(c,x);
if (x<1) or (x>=6) then
writeln('NULL')
else if (x>=1) and (x<2) then<br>f:=a+b*x+c*x*x
else if (x>=2) and (x<3) then<br>f:=(a*sin(x*b))*(a*sin(x*b))
else if (x>=3) and (x<4) then<br>f:=sqrt(abs(a+b*x*x)+c)
else if (x>=4) and (x<5) then<br>f:=a*ln(b+c/(2*x))
else if (x>=5) and (x<6) then<br>f:=power(e,e*sin(x))+c*c*c;
writeln(f:0:4);
end.

Comments

Большущее спасибо, вы меня спаслиииииииии!!!!

---

На здоровье.