Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Образовательный студенческий форум _ Информатика / Программирование _ Паскаль
Автор: Е л е н а 26.10.2007, 18:20
Здравствуйте! Помогите пожалуйста вычислить Arccos по Pascal. Я студентка-заочница,дали лабораторную работу по Паскалю. Для самостоятельного изучения. Хотя Паскаль нам не обьясняли. На Вас вся надежда! Помогите пожалуйста! Заранее огромное спасибо!
Эскизы прикрепленных изображений
Автор: Julia 27.10.2007, 15:17
Выразите arccos через arctg. Формулу можно найти в математическом справочнике.
Автор: Е л е н а 27.10.2007, 15:29
Спасибо большое конечно Вам!Но понимаете дело в том,что я с Паскалем дело вообще не имела.Мне вот дали 1у задачку сделать и все. Бльше мне он вообще не понадобится!Ну помогите пожалуйста!Я даже и незнаю куда еще можно обратиться с таким вопросом!Очень надеюсь на помощь! 
Автор: Julia 27.10.2007, 15:50
program example;
var a,b,x,y,z:real;
begin
x:=2.8284E-3;
y:=4.1093;
z:=-7*sqrt(PI)/9.5;
...
Если до завтра есть время, то завтра допишу, если нет - извините...
Автор: Е л е н а 27.10.2007, 15:54
Да,конечно!мне конца октября надо сделать ее. Огромное Вам спасибо!!!!!Если не Вы даже и незнаю,чтобы я делала! 
Автор: creer 28.10.2007, 17:23
Думаю, что Julia не против, если я помогу :-).
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.
Автор: Е л е н а 28.10.2007, 17:33
Большое Вам спасибо creer!!!!Вы так меня выручили!Очень Вам благодарна!И спасибо всем кто создал такой замечательный форум! 
Автор: Е л е н а 29.10.2007, 20:32
Извините пожалуйста за назойливость creer. Дело в том,что Паскаль не выдает мне ответа.А преподователь сказал,что должно получиться 1 число.Не подскажете в чем может быть дело?!Прошу прощения еще раз.
Автор: creer 30.10.2007, 9:48
Скорее он выдает ответ и окошко сразу закрывается, перед end'ом можно написать readln; тогда результат будет виден.
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)