Что не так? Не совпадает с результатом - Pascal ABC

Формулировка задачи:

VAR
  A,B,C,D,R,X :real;
 BEGIN
  A:=1e-2;
  B:=-1.5;
  C:=4.1;
  D:=-3;
  R:=(3*D+9*B*10*C);
  X:=Sqrt(A*R/25*pi*(-1)*exp(2*ln(abs(D))));
  Writeln('X=',X:12);
 END.

Формула	A	B	C	D	Результат
	10^-2	-1.5	4.1	-3	1.61778E-2

Решение задачи: «Что не так? Не совпадает с результатом»

Листинг программы

r:=3*d+9*b+10*c;
x:=sqrt(a*r/(25*pi*d*d));
writeln('x=',x:0:7);

Объяснение кода листинга программы

r - это сумма произведения трех чисел (d, b, c) и константы 10
x - это квадратный корень из выражения, которое является произведением числа a на r, деленным на выражение pidd
x выводится на экран с точностью до 7 знаков после запятой

Оцени полезность:

15 голосов , оценка 4.267 из 5

Похожие ответы