Цитата:
Сообщение от Xploit
Язык - PASKAL
Задание такое : Вычислить значение функции Y(x). Значения переменных a и x должен задавать пользователь.
Вид функция : Ссылка удалена
Нужна программа и блок схема
Заранее Огроомное спасибо!
|
Программу - пожалуйста:
VAR
a,x,Y:REAL;
Function Tan(x:REAL):Real;
BEGIN
Tan:=Sin(x)/Cos(x);
END;
BEGIN
Write('a = '); Readln(a);
Write('x = '); Readln(x);
IF x>1/SQR(a) THEN Y:=SQR(Tan(x))*SQRT(Ln(a)) ELSE
Y:=Sin(x)+Ln(a);
WriteLn('Y = ', Y);
ReadLn;
END.
А вот с блок-схемой, извините, помочь не могу. Никогда ими не интересовался.