Нужно выполнить ** pascal'e Написать функции q(x)=sin(x)+2cos(x)+1 и p(t,x)=t/x. Напишите...

Question

Нужно выполнить на pascal'e Написать функции q(x)=sin(x)+2cos(x)+1 и p(t,x)=t/x. Напишите программу, которая получает введенное число с клавиатуры, подставляет значения в функцию p(q(x),x) и выводит результат на экран.

Answer 1

Var q, p, x:real;

Begin

Write ('x=') ;read(x) ;

Q:=sin(x)+2*cos(x)+1;

P:=q/x;

Writeln('p(q(x)) =', p) ;

End.