Помогите составить программу вычисления значения функции

Question

Помогите составить программу вычисления значения функции

---

Comments

а значения a,x и альфа должны быть константой или тебе потом просто проверить через них задачу нужно?

---

просто проверить

Answer 1

Const pi=3.1415;
var alfa,a,x,y:real;
begin
 readln(a);
 readln(alfa);
 readln(x);
 y:=sqr(sin(pi/180*alfa)*(sqr(a)+log(x))+sin(pi/180*alfa);
 wrieln(y)
end.

Comments

спасибо)