Question

Program goldobin5;uses crt; begin clrscr; writeln('Y=',(sqrt(sin(30))+sqrt(abs(32-6*8)))/(sqr(sqr(sin(60))))); end.Пишет: Ошибка:Неверная вещественная операция(Строка 4)

Answer 1

// 30° = π/6, 60° = π/3

Program goldobin5;

uses crt;

begin

clrscr;

writeln('Y=',(sqrt(sin(pi/6))+sqrt(abs(32-6*8)))/(sqr(sqr(sin(pi/3)))));

end.

Результат:

Y= 8.368189833220529e+00

Answer 2

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

Судя по вашему коду, проблема возникает из-за вычисления выражения:

perlCopy code
(sqrt(sin(30))+sqrt(abs(32-6*8)))/(sqr(sqr(sin(60))))

Давайте разберемся, какие проблемы могут быть здесь:

1. Предварительные вычисления: Сначала, прежде чем искать ошибку, давайте вычислим значения внутри скобок для лучшего понимания:

   scssCopy code
   sin(30) = 0.5
   abs(32-6*8) = abs(32-48) = abs(-16) = 16
   sin(60) = sqrt(3)/2
   

   Теперь выражение становится:

   perlCopy code
   (sqrt(0.5) + sqrt(16)) / (sqr(sqr(sqrt(3)/2)))
   

2. Корень из отрицательного числа: В некоторых языках, включая Pascal, попытка извлечь корень из отрицательного числа приведет к ошибке. В данном случае у нас нет корня из отрицательного числа, но вы должны быть осторожны с такими случаями.

3. Возможное деление на ноль: В знаменателе у нас есть sqr(sqr(sqrt(3)/2)), и если sqrt(3)/2 окажется равным нулю, то у нас будет деление на ноль, что также приведет к ошибке.

Для решения этих проблем давайте перепишем выражение с учетом данных ошибках:

sqlCopy code
Program goldobin5;
uses crt;

var
  numerator, denominator, result: Real;

begin
  clrscr;

  numerator := (sqrt(0.5) + sqrt(16));
  denominator := sqr(sqr(sqrt(3)/2));

  if denominator <> 0 then
    result := numerator / denominator
  else
    result := 0; // Либо другое значение по вашему выбору

  writeln('Y = ', result);
end.

Это переписанная версия вашего кода, которая учитывает возможные ошибки при работе с вещественными числами. Вы также можете добавить обработку других ошибок, которые могут возникнуть при выполнении вычислений с вещественными числами.