Question

НАЙДИТЕ ОШИБКУ В КОДЕ! задание:Написать программу, которая бы рассчитывала значение выражения по формуле: (ln|cos(x)|)/(ln(1+x^2). Мой код: Program formula; var x:integer; y:real; begin write('vvedute x '); readln(x); y:=(ln(abs(cos(x))))/ln(1+cos(x*x)); writeln('y=',y:5:2); end. почему то выдаёт ошибку. что не так?

Answer 1

Program formula;
var
  x:integer;
  p,y:real;
begin
  Write('vvedute x<>0 ->');
  Readln(x);
  if x=0 then Writeln('x=0 nedopustimo')
  else begin
    p:= abs(cos(x));
    if p=0 then Writeln('ln(0) v 4islitele')
    else begin
      y:=ln(p)/ln(1+sqr(x*x));
      Writeln('y=',y:5:2)
    end
  end
end.

Answer 2

Ошибка в вашем коде связана с неправильной формулой. Формула, которую вы написали, имеет некоторые отличия от той, что была дана в задании. Вместо x^2 в знаменателе вы написали cos(x*x).

Вот исправленный код:

scssCopy code
program formula;
var
  x: integer;
  y: real;
begin
  write('Введите x: ');
  readln(x);
  y := ln(abs(cos(x))) / ln(1 + x * x);
  writeln('y = ', y:5:2);
end.

Теперь формула должна работать правильно. Однако обратите внимание, что при некоторых значениях x может произойти деление на ноль, что приведет к ошибке времени выполнения программы. Если вы хотите сделать код более надежным, то можете добавить проверку на ноль в знаменателе перед выполнением вычислений.