Question

Вот условия задачи: составить программу расчёта значения функции Z=(x-2*ctg*2y)/{8x-5 arctg y}вот кодprogram tri;var x,y,z:real;begin writeln('Введите x, Введите y'); read(x,y); z:=(x-2*cos(x)/sin(x)*2*y)/{8*x-5*arctan(1/x)*y} writeln('При x = ', x , ' y = ', y, ' z = ', z:6:2 ); readln(x,y);end.Пишет ошибку Program1.pas(7) : Ожидалась функция, встречена процедура WritelnПАСКАЛЬ

Answer 1

Ответ:

Объяснение:

z:=(x-2*cos(x)/sin(x)*2*y)/{8*x-5*arctan(1/x)*y}

6-ю строчку переделать.

Вот так должно быть :

z:=(x-2*cos(x)/sin(x)*2*y)/(8*x-5*arctan(1/x)*y);

Answer 2

Я могу помочь вам с вашей задачей по Паскалю.

Ваш код содержит несколько синтаксических ошибок, которые нужно исправить. Вот некоторые из них:

- Вы используете фигурные скобки { и } вместо круглых ( и ) для обозначения приоритета операций. Фигурные скобки в Паскале используются для комментариев, а не для выражений. - Вы используете неправильные имена для некоторых тригонометрических функций. В Паскале они называются cot, arctan и arccot, а не ctg, arctg и arctg. - Вы забыли поставить точку с запятой после выражения для z и перед writeln.

Я попробовал исправить ваш код и получил следующий результат:

program tri; var x,y,z:real; begin writeln('Введите x, Введите y'); read(x,y); z:=(x-2*cot(2*y))/(8*x-5+arccot(y)); writeln('При x = ', x, ' y = ', y, ' z = ', z:6:2); readln(x,y); end.

Вы можете проверить работу этого кода на онлайн-компиляторе Паскаля, например, на [этом сайте](https://stackoverflow.com/questions/76159683/how-to-fix-syntax-error-of-expected-but-identifier-user-found-for-pascal).

Надеюсь, это поможет вам решить вашу задачу. Удачи!