Цитата:
Сообщение от Bogdanghost
пишет,что ошибка
|
И не мудрено, тут не просто ошибка, а большой вагон ошибок.
1. От того, что Вы ввели переменную Arccos (и зачем-то Arcsin), программа не научится их считать. Арккосинус - это функция, отсутствующая среди стандартных функций Паскаля. А значит, её нужно ввести именно как функцию и грамотно описать.
2. По поводу распространённого в студенческих программах (извините) идиотизма по имени ln(e) я в своё время написал небольшое эссе. Очень рекомендую ознакомиться дабы впредь больше не позориться:
Кое что о логарифмах и экспонентах
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.