Паскаль программа 9 класс

Т.к. в Паскале нет таких понятий как "тангенс" и "котангенс", то, чтобы не громоздить лишние переменные и функции, пишу тангенс как отношение синуса к косинусу (т.е. синус делить на косинус), а котангенс - как косинуса к синусу (т.е. косинус делить на синус). Т.к. каждое значение требует скобок, то скобок будет много. sqr (значение) - возведение в квадрат, а sqrt (значение) - извлечение квадратного корня. Ну и числитель, т.к. длинный, приходится в скобки заключать. Знаменатель - аналогично. Итого формула получается такая:
D=(sqr (sin (x))-cos (2*x)+sin (x)/cos (x)-cos (4*x)/sin (4*x))/(sqrt (sqr (sin (2*x)+sqr (cos (x)))-sin (3*x)/cos (3*x)*sqr (cos (x)/sin (x)))).
Ну а вот программа:

 Program P1; 

uses crt; 

var x: real; 

begin 

clrscr; 

writeln ('При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите с клавиатуры значение переменной x (только число), после чего нажмите клавишу Enter: x='); 

readln (x); 

if (sin (x)=0) or (cos (x)=0) or (sqr (sin (2*x)+sqr (cos (x)))

Вот программа, которая использует формулу d=sin2x-cos2x+tgx-ctg4x/√sin²2x+cos²x-tg3x*ctg²x:
import math

def calculate_d(x):
numerator = math.sin(2*x) - math.cos(2*x) + math.tan(x) - (1/math.tan(4*x))
denominator = math.sqrt(math.sin(2*x)**2 + math.cos(x)**2 - math.tan(3*x)*math.atan(2*x))
return numerator / denominator


Эта программа определяет функцию calculate_d, которая принимает входное значение x и вычисляет значение d по предоставленной формуле. Функция использует модуль math для выполнения тригонометрических вычислений и возвращает результат вычисления.