Разработайте числовые функции для вычисления у. Для любых a, b, c найдите значение у - PascalABC.NET

Формулировка задачи:

Разработайте числовые функции для вычисления у. Для любых a, b, c найдите значение у.

Решение задачи: «Разработайте числовые функции для вычисления у. Для любых a, b, c найдите значение у»

Листинг программы

program ta;
uses crt;
var a,b,c:integer;
y:real;
 
function ArcSin(x: real): real; 
begin
ArcSin := Arctan(x/Sqrt(1-sqr(x)));
end;
 
function ArcCos(z: real): real; 
begin
ArcCos := Arctan(Sqrt(1-sqr(z))/z);
end;
 
var x:=(7-a)/5+Exp(4*Ln(b));
var z:=sqrt(1+(b+2*c)/sqr(a));
begin
write ('enter a,b,c');
readln(a, b, c);
y:=sqrt(arcSin(x))-arcCos(z)+4*cos(sqr(0.9));
writeln('Y=',y);
end.

Объяснение кода листинга программы

Написан код на языке PascalABC.Net
Введены три переменные типа integer - a, b, c, а также переменная типа real - y
Определены две числовые функции: ArcSin и ArcCos
- Функция ArcSin принимает на вход значение x типа real и возвращает значение типа real
- Функция ArcCos принимает на вход значение z типа real и возвращает значение типа real
В основной части программы введены две переменные типа real - x и z
Введен блок begin, в котором происходит вывод сообщения с просьбой ввести значения a, b, c
Введен блок begin, в котором происходит вычисление значения y по формуле: y = sqrt(arcSin(x)) - arcCos(z) + 4*cos(sqr(0.9))
Выведено значение y с помощью функции writeln
Завершается программа