Помогите с уравнением

[stud]

Помогите с уравнением

помогите пожалуйста написать программу для уравнения на паскале.

 

[Vladimir_S]

помогите пожалуйста написать программу для уравнения на паскале.

Ну и где тут уравнение? Просто сосчитать выражение надо? А самому - никак? Ну ладно, пожалуйста. А вообще-то подобные просьбы, свидетельствующие лишь о полном нежелании нынешних Митрофанушек осваивать даже азы наук, здесь не приветствуются.

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.

 

[stud]

Спасибо

Большое спасибо, дело в том что я не совсем нынешний матрофанушка, я учусь на заочном, и мне 30 лет, и вчера честно пытался весь день оживить воспоминания и что то понять, я ведь это все уже изучал, просто мозги уже как то закисли, но у меня есть еще задания на паскале, которые надо сделать и я обещаю разобраться сделать их сам tehno040.

 

[Vladimir_S]

и я обещаю разобраться сделать их сам

Отлично! Удачи! Но если вопросы будут - заходите, задавайте, поможем. Без проблем. И, надеюсь, без обид. Знаете, достают запросы типа "я в этом не шарю, так что вы тут давайте, а я пошел". Тем же, кто хочет реально разобраться и чему-то научиться, мы никогда не откажем в помощи.