Ошибка 207. (Pascal)

[alexchromets]

К своему заданию написал программу, вроде всё правильно, а не выводит результат.
Вот задание:
Вот то, что я написал:

program zadacha2;
uses CRT;
var
T,Y,Z,R,a,x,b:real;
BEGIN
  clrscr;
  writeln('vvedite a');
  readln(a);

  writeln('vvedite x');
  readln(x);

  writeln('vvedite b');
  readln(b);

  Y:=(Arctan(Sqrt(1-sqr(4*x))/(4*x))+0.75*ln(x))/(2.4*exp((-2)*ln(10))*exp(3*ln(x)));
  R:=(x*x+sqrt(x))/(ln(a*x)/ln(10))-exp(cos(x))+cos(sqr(x));
  Z:=y*(sin(x)/cos(x));
  T:=exp(sin(x)*ln(3))+sqrt(abs(a+b*x))+sqr(z);

  writeln('Y= ',Y,'R= ',R,'Z= ',Z,'T= ',T);

END.

Где может быть ошибка?

[Stilet]

Хм... помоему все правильно...
Вот результат:

vvedite a
0.1
vvedite x
0.2
vvedite b
0.3
Y= -2.93529857048068E+0003R= -1.95220351570480E+0000Z= -5.95014477450695E+0002T=
3.54043872287072E+0005

[alexchromets]

Сообщение от Stilet

Хм... помоему все правильно...
Вот результат:

Я имею в виду когда вводишь целые числа, тогда ошибку выдаёт.
Решить это можно как-то?

[Stilet]

А ты не вводи целые )
Вводи такие которые дадут правильный результат

[Serge_Bliznykov]

смотрим 1-ю же строчку:

Y:=(Arctan(Sqrt(1-sqr(4*x))/ ....

покажите, откуда взялся корень квадратный из ( 1- (4*X)^2 )
насколько я вижу в формуле арккосинус 4x ?!

и второе, как Вы думаете, если взять X > 0.25 чему будет 4*x в квадрате? БОльше единицы? А если потом 1- это число? Получится положительное число или отрицательное?
Напомните, чему равен корень из отрицательного числа?..

[alexchromets]

[QUOTE=Serge_Bliznykov;745751]смотрим 1-ю же строчку:

покажите, откуда взялся корень квадратный из ( 1- (4*X)^2 )
насколько я вижу в формуле арккосинус 4x ?!


По формуле, формулы для arccos в паскале нет.
Если я неправ, то исправьте пожалуйста.

[Stilet]

Если я неправ, то исправьте пожалуйста.

Прав... В паскале действительно тригонометрия фромает, потому и приходилось такими извращенными методами делать, кстати...

Serge_Bliznykov

Загляни в генофонд Делфи:

function ArcCos(const X: Extended): Extended;
begin
  Result := ArcTan2(Sqrt(1 - X * X), X);
end;

Так что все законно. Только автор вводит значения явно не в диапазоне допустимых.

[Serge_Bliznykov]

Так что все законно. Только автор вводит значения явно не в диапазоне допустимых.

Ага. понятно.

Вспомнился старый боян: "в военное время значиние синуса может достигать 4-х"...

to alexchromets
ну и при каком значении угла косинус угла будет больше 1-цы?
Насколько, я понимаю, arccos - это же обратная к косинусу функция, т.е. функция, которая по величине, возвращает величину угла, косинус которого и даёт эту заданную величину?!..

[alexchromets]

Сообщение от Stilet

Прав... В паскале действительно тригонометрия фромает, потому и приходилось такими извращенными методами делать, кстати...

Загляни в генофонд Делфи:

function ArcCos(const X: Extended): Extended;
begin
  Result := ArcTan2(Sqrt(1 - X * X), X);
end;

Так что все законно. Только автор вводит значения явно не в диапазоне допустимых.

Спасибо. Просто надо х вводить не более, чем 0,25.

[FrEE4hAT]

Помогите разобраться с задачей

var x,y:real;
begin
readln(x);
if (12-x<>0) and (sqrt(x*x*x-x)<>0) and ((3+x)>=0)
then
begin
y:= (12-x)/(sqrt(x*x*x-x)+(sqrt(3+x)));
writeln('y=',y:10:3);
end
else
writeln ('y no');
readln;
end.
При вводе отрицательных чисел выводит ошибку 207 (Заранее Благодарен).