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

+ 0 -

Cat1414

14 июня 2014 г., 20:18:36 (9 лет назад)

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
f:=a+b*x+c*x*x
else if (x>=2) and (x<3) then
f:=(a*sin(x*b))*(a*sin(x*b))
else if (x>=3) and (x<4) then
f:=sqrt(abs(a+b*x*x)+c)
else if (x>=4) and (x<5) then
f:=a*ln(b+c/(2*x))
else if (x>=5) and (x<6) then
f:=power(e,e*sin(x))+c*c*c;
writeln(f:0:4);
end.

+ 0 -

3790

14 июня 2014 г., 23:08:51 (9 лет назад)

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

+ 0 -

тезя

15 июня 2014 г., 0:35:22 (9 лет назад)

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

+ 0 -

Batonstrelkov

15 июня 2014 г., 2:21:59 (9 лет назад)

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

+ 0 -

Volhok1996

15 июня 2014 г., 4:08:51 (9 лет назад)

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