![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
Е л е н а |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Продвинутые Сообщений: 7 Регистрация: 26.10.2007 Город: Электросталь М/о Учебное заведение: МЭСИ Вы: студент ![]() |
Здравствуйте! Помогите пожалуйста вычислить Arccos по Pascal. Я студентка-заочница,дали лабораторную работу по Паскалю. Для самостоятельного изучения. Хотя Паскаль нам не обьясняли. На Вас вся надежда! Помогите пожалуйста! Заранее огромное спасибо!
Эскизы прикрепленных изображений ![]() ![]() |
![]() ![]() |
Julia |
![]()
Сообщение
#2
|
Ассистент ![]() ![]() ![]() ![]() Группа: Julia Сообщений: 593 Регистрация: 23.2.2007 Город: Улан-Удэ Учебное заведение: БГУ Вы: преподаватель ![]() |
program example;
var a,b,x,y,z:real; begin x:=2.8284E-3; y:=4.1093; z:=-7*sqrt(PI)/9.5; ... Если до завтра есть время, то завтра допишу, если нет - извините... |
Е л е н а |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Продвинутые Сообщений: 7 Регистрация: 26.10.2007 Город: Электросталь М/о Учебное заведение: МЭСИ Вы: студент ![]() |
Да,конечно!мне конца октября надо сделать ее. Огромное Вам спасибо!!!!!Если не Вы даже и незнаю,чтобы я делала! (IMG:style_emoticons/default/blush.gif)
|
creer |
![]()
Сообщение
#4
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 121 Регистрация: 28.10.2007 Город: Екатеринбург Учебное заведение: УГТУ-УПИ Вы: студент ![]() |
Думаю, что Julia не против, если я помогу :-).
Код program Project1; const x=2828.4E-3; y=4.1093; z=-7*sqrt(pi)/9.5; var a,b,q:real; begin //x^y=exp(y*ln(x)); //Arccos(z)=-i*Ln(z+sqrt(z^2-1)); a:=(1+y)*(x*exp(1/2.5*ln(x+3))+(y/(x*x+4)))/(exp(-x-2)+1/(x*x+4)); b:=(1+cos(a+2))/(x*x*x*x/2+sqr(sin(z))); q:=ln(abs(a+sqrt(b))); q:=ln(q+sqrt(q*q-1)); writeln('-i *',q); end. |
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 27.5.2025, 20:57 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru