Question

Помогите записать арифметическое выражения языком Паскаль(1,2) И сложить алгоритм и написать программу для определения значения функции

Answer 1

1) M:=2*Tan(v*v*v)+Sqrt((2*Exp(a)*v+Sin(2*v*v))/Cos(v*v))

2) Y:=Ln(3*k)-Sin(x*x)*Cos(x*x)+Sqrt(Sin(2*x)+Cos(2*x))

3)

Var
   P,x:real;
Begin
Write('x = ');ReadLn(x);
P:=Abs(x+5)/(Abs(3*x*x-x+20)+9);
WriteLn('P = ',P);
End.

4)

Var
   c,x,Y:real;
Begin
Write('x = ');
ReadLn(x);
Write('c = ');
ReadLn(c);
Y:=c*x;
if Y <= 9 then Y:=c*x+2
else if Y < 20 then Y:=c*c+x
     else Y:=c-x;
WriteLn('Y = ',Y);
End.