11.09.2008, 21:20
|
|
Новичок
Регистрация: 01.01.2008
Сообщений: 5
С нами:
9662098
Репутация:
0
|
|
Добрые люди помогите создать программку на паскале, пожалуйста помогите бедному студенту ((((
а то завтра мне ######
вот задача:
------------------------------
Даны с и d. Вычислить
A=((sin(abs(c*x1^3+d*x2^2-c*d)))^3)/(sqr((c*x1^3+d*x2^2-x1)^2+3.15))+tg(c*x1^3+x2^2)
где : x1-больший, х2-меньший корень уравнения
x1^2-3*x2-│c*d│=0
------------------------------
Вот то что я нарешал:
program lab2;
const p=3.14;
var c,d:real;
x1,x2,k,result:real;
z1,z2,z3:real;
begin
k:=c*10+d;
d:=9-4*c;
x1:=(-3+sqrt(d))/2;
x2:=(-3-sqrt(d))/2;
if x2>x1 then begin k:=x1; x1:=x2; x2:=k; end;
z1:=(sin(abs(c*(x1*x1*x1)+d*sqr(x2)-c*d )));
z2:=sqrt(sqr(c*sqr(x1*x1)+d*sqr(x2)-x1)+pi);
z3:=tan(c*SQR(x1*x1)+d*sqr(x2));
result:=(Sqr(z1*z1))/(z2)+z3
writeln(result);
readln;
end.
Плиззз помогите сам не додумаюсь |
|
|