помогите решить

[павед]

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


Текст программы:

program kuklinpav;
uses crt;
var x,y,chisl,znamen:real;
begin
clrscr;
write('Vvedite X');
readln(x);
chisl:=sin(abs(2*sqr(x)+5*x-31.15))/cos(abs(2*sqr(x)+5*x-31.15))+ln(abs(sqr(x)-2.5))/ln(5);
znamen:=exp(1/3*abs(sqr(sin(x*x*x))+1/3*ln(abs(sqr(x)+2.5))/ln(5)));
y:=chisl/znamen;
writeln('Znachenie Y = ',y);
readln;
end.
ребят проверте ктонибуть с ответами почему то не сходиться
Результат работы программы:

X1=-2,1507 Y1=0,385*101
X2=0,156 Ответ: Y2=-0,2385*101
X3=2,0369 y3=0,402

[Sibedir]

с ответами почему то не сходиться

А я почём знаю, какой должен быть ответ и что это значит:

chisl:=sin(abs(2*sqr(x)+5*x-31.15))/cos(abs(2*sqr(x)+5*x-31.15))+ln(abs(sqr(x)-2.5))/ln(5);
znamen:=exp(1/3*abs(sqr(sin(x*x*x))+1/3*ln(abs(sqr(x)+2.5))/ln(5)));
y:=chisl/znamen;

[puporev]

1.

X1=-2,1507 Y1=0,385*101
X2=0,156 Ответ: Y2=-0,2385*101
X3=2,0369 y3=0,402

Это правильные ответы?
2.Напиши формулу так, как она задана, без твоей интерпретации. Скорее всего у тебя неправильно расставлены скобки.
3. Зачем abs(sqr(x), если квадрат числа всегда положительное число?

[павед]

ответы те правильные

[павед]

да
они правельные

[павед]

ребят решите пожалуйсто а то сдать надо в понедельник

[Sibedir]

Приведенные тобой ответы не верны. Не я сказал, MathCAD сказал:
MathCAD.JPG
Вот код, который считает как MathCAD до 13 знака после запятой.

var
  x, y, rab, ch, zn: Extended;
begin
...
  rab := ln (abs (x*x - 2.5)) / ln (5);
  ch := tan (abs (2*x*x + 5*x - 31.15)) + rab;
  zn := exp (ln (sqr (sin (x*x*x)) + rab/3) / 3);

  y := ch/zn;
...
end;

[puporev]

Действительно ответы твои неправильные, мог и посчитать нормально.
Правильные ответы:
x y
-2,1507 3,8524
0,156 -2,3852
2,0369 0,4023 Сошлось и в Паскале и в Excel
Вот код.

uses crt;
var x,a,y,chis,zn:real;
begin
clrscr;
write('x=');readln(x);
a:=abs(2*sqr(x)+5*x-31.15);
chis:= sin(a)/cos(a)+ln(abs(sqr(x)-2.5))/ln(5);
zn:=exp(1/3*ln(abs(sin(x*x*x)*sin(x*x*x))+1/3*ln(abs(x*x+2.5))/ln(5)));
y:=chis/zn;
writeln('Y=',y:8:5);
readln;
end.

[павед]

спасибо

[павед]

помогите решить вот это еше
Задание: составить программу для вычисления трех сумм с помощью трех операторов цикла : с параметром , с предусловием, с постусловием. Выбор вычисляемой формулы необходимо осуществлять с помощью оператора варианта:
1.Вычислить сумму значений выражения для заданного числа значений аргумента , изменяющегося от начального значения x1 , с шагом h .
2.Вычислить сумму значений выражения для заданного числа значений аргумента , которые удовлетворяют заданному условию .изменяющегося от начального значения x1 , с шагом h .
3. Вычислить сумму значений выражения для значений аргумента изменяющегося от начального значения x1 с шагом h . Суммирование производить до тех пор, пока не выполнится условие.