Неверная вещественная операция в 12 строке - Pascal ABC
Формулировка задачи:
Пожалуйста,скажите,что не так!
Решение задачи: «Неверная вещественная операция в 12 строке»
textual
Листинг программы
Program PR2; Var A,B,K,y,x:real; Begin Write('A='); Readln(A); Write('B='); Readln(B); Write('K='); Readln(K); Write('x='); Readln(x); y:=exp(1/5*(A+(sin(x)/cos(x)))*ln(A+(sin(x)/cos(x))))-(sqr(arctan(x/sqr(1-sqr(x)))))/ ln(sqr(x)*x)+abs(((sin(B*sqr(K)))/(cos(B*sqr(K))))*exp(x)); Writeln('y=',y:6:3); END.
Объяснение кода листинга программы
В данном коде выполняется следующая последовательность действий:
- В первой строке объявляются переменные A, B, K, y и x типа real.
- Во второй, третьей, четвертой и пятой строках происходит ввод значений переменных A, B, K и x с помощью функции Readln.
- В шестой строке вычисляется значение переменной y по формуле: y = exp(1/5(A+(sin(x)/cos(x)))ln(A+(sin(x)/cos(x))))-(sqr(arctan(x/sqr(1-sqr(x)))))/ ln(sqr(x)x)+abs(((sin(Bsqr(K)))/(cos(Bsqr(K))))exp(x)).
- В седьмой строке выводится значение переменной y с помощью функции Writeln, при этом количество знаков после запятой равно 6, а разделитель между знаками равенства и числами равен 3.
- В восьмой строке заканчивается выполнение программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д