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

[Bogdanghost]

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


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

 

[Bogdanghost]

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

 

[Vladimir_S]

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

 

[Bogdanghost]

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]

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

 

[Vladimir_S]

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

И не мудрено, тут не просто ошибка, а большой вагон ошибок.
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.

 

[Bogdanghost]

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

 

[Vladimir_S]

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

Успехов!

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

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

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

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

 

[AlexZir]

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

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

 

[Bogdanghost]

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

 

[AlexZir]

Это проверка ОДЗ для арккосинуса

 

[Vladimir_S]

Это проверка ОДЗ для арккосинуса

Не совсем так.

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

На самом деле это - некая перестраховка. В принципе, данное условие можно заменить таким:
if z=1 then ArcCos:=0 else
if z=-1 then ArcCos:=Pi else
Просто когда-то давно столкнулся с тем, что некоторые реализации Паскаля глючат на операции точного сравнения вещественных чисел по причине возможного наличия "мусора" в дальних разрядах, и с тех пор стараюсь ставить условия равенства только преобразовав формат в целочисленный. Но вообще-то это не обязательно. Можете заменить на второй вариант, тем более, что в данной задаче такие аргументы (+1, -1) вообще не возникают.