Технический форум - Помогите решить уравнение. Паскаль

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

Помогите решить уравнение. Паскаль

Вложение 150489
помогите пожалуйста

извините за некорректное название темы)больше не повторится

Да название-то Бог с ним, хуже то, что никакого уравнения я тут вообще не вижу. Вижу некую функцию. И что с ней делать?

Program lab1;
Var F,x,e,arccos,arcsin: real;
Begin
Writeln('x');
Readln(x);
F:=sqrt(exp(ln(x)*4)-2*x)+arccos(2.5*exp(ln(e)*(-0.5)*sqr(x)));
Writeln('F',F:3:3);
end.
первый раз в паскале((
да,функция,извиняюсь

пишет,что ошибка

Цитата:

Сообщение от Bogdanghost (Сообщение 946430)

пишет,что ошибка

И не мудрено, тут не просто ошибка, а большой вагон ошибок.
1. От того, что Вы ввели переменную Arccos (и зачем-то Arcsin), программа не научится их считать. Арккосинус - это функция, отсутствующая среди стандартных функций Паскаля. А значит, её нужно ввести именно как функцию и грамотно описать.
2. По поводу распространённого в студенческих программах (извините) идиотизма по имени ln(e) я в своё время написал небольшое эссе. Очень рекомендую ознакомиться дабы впредь больше не позориться: http://www.tehnari.ru/f41/t50078/
3. Почему-то из подкоренного выражения Вы волевым усилием выбросили слагаемое +3. Внимательнее!
4. Грамотное решение задачи требует предварительной проработки. Дело в том, что выражение, стоящее под знаком Arccos, не может принимать значения, превышающие 1, иначе возникнет ошибка. Решая соответствующее неравенство, находим допустимый диапазон аргумента:
x² ≥ -2*Ln(0.4)
или
x ≥ 1.354
Исходя из этого, ввод аргумента желательно зациклить. Цикл прервётся, когда будет введено допустимое значение х.
5. Формат вывода 3:3 никуда не годится. Ведь первое число в данной записи означает ПОЛНОЕ количество значащих цифр, включая разделитель (точку), а второе - количество знаков после точки (т.е. в дробной части). Поэтому первое должно быть по крайней мере на 2 единицы больше второго. Но можно (а в данном случае - целесообразно) первым числом поставить ноль, тогда это означает, что мы фиксируем лишь число значащих цифр в дробной части, а уж в целой - сколько есть, столько и будет выведено.
6. Ну и парочка мелочей. Четвертая степень - это квадрат квадрата, и лучше так ее и вводить. В конце программы желательно поставить Readln; без аргументов - тогда выполнение прервется и можно будет рассмотреть результат.

Итого:

Код:

Var F,x: real;



Function ArcCos(z:Real):Real;

begin

 if Round(z*10000000)=10000000 then ArcCos:=0 else

 if Round(z*10000000)=-10000000 then ArcCos:=Pi else

    ArcCos:=(Pi/2)-ArcTan(z/Sqrt(1-z*z));

end;





Begin

 Repeat

  Write('x= ' );

  Readln(x);

  If x<Sqrt(-2.0*Ln(0.4)) then

   Writeln('Error! X must be >1.354!!!');

 Until x>=Sqrt(-2.0*Ln(0.4));

 F:=Sqrt(Sqr(Sqr(x))-2*x+3)+ArcCos(2.5*Exp(-0.5*Sqr(x)));

 Writeln('F= ',F:0:3);

 Readln

End.

Буду разбираться,спасибо огромное.
Можете посоветовать литературу для изучения языка программирования PASCAL?
Такая беда лекция не было , а лабораторные задали

Цитата:

Сообщение от Bogdanghost (Сообщение 946471)

Буду разбираться,спасибо огромное.

Успехов!

Цитата:

Сообщение от Bogdanghost (Сообщение 946471)

Можете посоветовать литературу для изучения языка программирования PASCAL?

Вы знаете - литературы такое море, что Вы без труда сами подберёте по своему вкусу. И в Сети, и в магазинах.

Цитата:

Сообщение от Bogdanghost (Сообщение 946471)

Такая беда лекция не было , а лабораторные задали

Ничего страшного. Меня вообще никто этому не учил. Тут главное - практика, практика и еще раз практика. Сами ставьте себе задачки, пишите программы, отлаживайте - и всё получится.

http://www.tehnari.ru/f22/t52621/

Очень рекомендую вам ознакомиться с книгой "Песни о Паскале", она ориентирована как раз на начинающих.

а вот можете объяснить что значат эти строчки
if Round(z*10000000)=10000000 then ArcCos:=0 else if Round(z*10000000)=-10000000 then ArcCos:=Pi else