помогите срочно решить задачу по информатике

[Shumaher]

помогите срочно решить задачу по информатике в PASCAL. задачу решил но выдает ошибку. не могу понять что неправильно. помогите если кто то сможет. буду премного благодарен. задание и решенная мною программа в прилагаемом файле

[youctac]

я вообще паскаль последний раз запускал лет шесть назад, так что могу ошибаться, но разве так можно указывать: -z ?

и вообще, разве можно выражение в константы записывать?
да и -z/x можно отдельной переменной задать, чтоб с минусами не заморачиваться

[Shumaher]

попробовал задать через другую переменную но все равно в 9 строке выдает что неверная вещественная операция

[Часовой]

z*(-1) не пробывал?

[Eugene]

Вроде че-то типа того
Program ex;
const
     x=0.00671e5;
     y=-0.6023;
var
     a,b,c,d,z:real;
begin
     z:=sqrt(abs(2-pi));
     a:=ln(arctan(-z/x))/ln(10);
     b:=1/(a+z)+(x*y/100);
     c:=exp(ln(a)/3)+exp(b*ln(2));
     d:=sin(c)/cos(c);
     writeln(d);
end.

но ругается на
invalid floating-point operation. Недопустимая операция с плавающей запятой. При операции с двумя действительными значениями было получено переполнение или деление на ноль.

в 9 строчке

[Eugene]

возможно получится заменить real на что-то более широкое... но у меня не компилится тогда.. проверьте у себя на компе

[Deathlesself]

возможно получится заменить real на что-то более широкое... но у меня не компилится тогда.. проверьте у себя на компе

Хех, логорифм отрицательного числа........ причем в 2-х местах....

[Eugene]

если arctan(-z/x) дает отрицательное, то да... я прост оне проверял и не задумывался...
а второй где?

[Deathlesself]

если arctan(-z/x) дает отрицательное, то да... я прост оне проверял и не задумывался...
а второй где?

ну если учесть, что а у нас отрицательное, то
c:=exp(ln(a)/3)+exp(b*ln(2));


П.С. по условию там Arcsin  :derisive:

[Eugene]

ну а у нас вообще получается посчитаться не может )

[Eugene]

кстати да... я там уже кое-че правил согласно условию )

[Eugene]

Program ex;
const
     x=0.00671e5;
     y=-0.6023;
var
     a,b,c,d,z:real;
function arcsin(x:real):real;
begin
     if abs(x)=1 then arcsin:=0
     else arcsin:=arctan(x/sqrt(1-sqr(x)))
end;

begin
     z:=sqrt(abs(2-pi));
     a:=ln(arcsin(-z/x))/ln(10);
     b:=1/(a+z)+(x*y/100);
     c:=exp(ln(a)/3)+exp(b*ln(2));
     d:=sin(c)/cos(c);
     writeln(d);
end.


так тоже ругается на плавающую точку )

[Deathlesself]

a в одном из 2-х случаев вычисляется, т.к. z из под корня можно с отрицательным знаком вынести, а вот дальше уже  :dntknw:

[youctac]

а если :

a:=ln(  здесь  arcsin(-z/x))/ln(10)

модуль воткнуть?

abs, чтоль?

[Eugene]

ну условие то не такое ))

[youctac]

ну условие то не такое ))

ну арксинус может, конечно, равняться -1, но логарифм взять из -1 нельзя

[Eugene]

ну вообщем если в двух местах поставить модуль, то будет пахать... но это не по условию...
2Shumaher короче скажи преподу, что задача говно )