Цитата:
Сообщение от stud
помогите пожалуйста написать программу для уравнения на паскале.
|
Ну и где тут уравнение? Просто сосчитать выражение надо? А самому - никак? Ну ладно, пожалуйста. А вообще-то подобные просьбы, свидетельствующие лишь о полном нежелании нынешних Митрофанушек осваивать даже азы наук, здесь не приветствуются.
Код:
Const
m=-5.837E-3;
n=83.75;
Var
p,q:real;
Begin
p:=Cos(1.05-0.3*m);
p:=p*p*p;
q:=Sqrt(Sqrt(1+Exp(4.1*Ln(n))));
Writeln((28.1*Ln(Abs(n*p))+n)/(Sqr(m)*q):0:5);
Readln;
End.