Вычислить значение выражения

@aktuv4egg · Регистрация: 25.09.2016

Author24 — интернет-сервис помощи студентам

Проверьте плиз вот эту программу(ну и конечно же поправьте пожалуйста, где был не прав)

вот само задание

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> F=\left|\cos ^B\left(A+B^2 \right) \right|-X^3<br />$

A=-2, B=5, X изменяется от 2 до 5 с шагом 0.5

Pascal

program f1;
var
a,b:integer;
f,x:real;
begin
a:=-2;
b:=5;
x:=2;
while (x<=5) do
begin
f:=abs(exp(b*ln(cos(a+exp(2*ln(b))))))-exp(3*ln(x));
x:=x+0.5
end;
writeln ('f=',f:2:3);
readln
end.

@JokeR.BY · 26.09.2016, 09:44

Pascal

const
  EPS=0.0001;
  A=-2;
  B=5;
  H=0.5;
var
  x: Single;
  myCos: Double;
begin
  x := Abs(A); myCos := Exp(B * Ln(Abs(Cos(A + Sqr(B)))));
  while (Abs(B - x) > EPS) do
  begin
    WriteLn('F(', x:0:1, ')=', (myCos - Sqr(x) * x):0:2);
    x := x + H;
  end;
end.

@aktuv4egg · 26.09.2016, 18:16 **[ТС]**

Спасибо огромное)

Добавлено через 46 минут

Сообщение от JokeR.BY

const
* EPS=0.0001;

было бы еще к этому пояснение, цены бы тебе не было)

@aktuv4egg · 01.10.2016, 17:07 **[ТС]**

up+

@rdt · 02.10.2016, 15:02

aktuv4egg, действительные числа хранятся на компьютере с какой-то точностью, и в процессе вычисление могут накапливаться ошибки.

Можно предположить, что 2+0.5+0.5+0.5+0.5+0.5+0.5 окажется равным не 5, а, к примеру, 4.9999999 или 5.0000001. В первом случае всё хорошо, а во втором условие "while (x<=5)" "съест" последний повтор цикла - что делать будешь?

(На самом деле числа в задаче подобраны так, чтобы этого не произошло, но стоит заменить число 0.5=1/2 на 1/3 или 1/5 - чтоб знаменатель дроби не был степенью двойки - и появляются ошибки округления.)

В связи с этим, принято писать программы так, чтоб они учитывали возможность небольшой ошибки в процессе счёта. Константа "EPS" здесь используется, чтоб задать ширину диапазона, благодаря ей программа ждёт не "ровно 5", а число в диапазоне от 4.9999 до 5.0001 - это должно с запасом перекрыть возможные ошибки округления (для типа single точность 7-8 знаков, для real - 11-12 знаков, а для double и extended точность ещё выше).

@aktuv4egg · 02.10.2016, 16:59 **[ТС]**

спасибо)

@aktuv4egg 3 / 3 / 0 Регистрация: 25.09.2016 Сообщений: 38
	26.09.2016, 18:16 [ТС]	3
	Спасибо огромное) Добавлено через 46 минут Сообщение от JokeR.BY const * EPS=0.0001; было бы еще к этому пояснение, цены бы тебе не было) 0

@aktuv4egg 3 / 3 / 0 Регистрация: 25.09.2016 Сообщений: 38
	01.10.2016, 17:07 [ТС]	4
	up+ 0

@rdt 188 / 155 / 17 Регистрация: 18.12.2015 Сообщений: 179
	02.10.2016, 15:02	5
	aktuv4egg, действительные числа хранятся на компьютере с какой-то точностью, и в процессе вычисление могут накапливаться ошибки. Можно предположить, что 2+0.5+0.5+0.5+0.5+0.5+0.5 окажется равным не 5, а, к примеру, 4.9999999 или 5.0000001. В первом случае всё хорошо, а во втором условие "while (x<=5)" "съест" последний повтор цикла - что делать будешь? (На самом деле числа в задаче подобраны так, чтобы этого не произошло, но стоит заменить число 0.5=1/2 на 1/3 или 1/5 - чтоб знаменатель дроби не был степенью двойки - и появляются ошибки округления.) В связи с этим, принято писать программы так, чтоб они учитывали возможность небольшой ошибки в процессе счёта. Константа "EPS" здесь используется, чтоб задать ширину диапазона, благодаря ей программа ждёт не "ровно 5", а число в диапазоне от 4.9999 до 5.0001 - это должно с запасом перекрыть возможные ошибки округления (для типа single точность 7-8 знаков, для real - 11-12 знаков, а для double и extended точность ещё выше). 0

@aktuv4egg 3 / 3 / 0 Регистрация: 25.09.2016 Сообщений: 38
	02.10.2016, 16:59 [ТС]	6
	спасибо) 0

Вычислить значение выражения

Решение