Проверьте, пожалуйста, Проверьте пожалуйста программу Опции

[goosberry]

В общем, мне нужно написать программу для решения примера

Вот что я понаписала

Код

program zadacha;
uses crt;
const e=2.7;
var x,a,b,c,d,y:real;
begin
clrscr;
write ('x=');
read (x);
a:=abs(1-sqr(sin(x/2)));
b:=exp(ln(-sin(x)/cos(x))*3);
c:=exp(ln(2*e)*b);
d:=exp(ln(a)*1/5)+c;
y:=exp(ln(d)*1/3);
write('y= ',y:5:3);
readkey;
end.

А ещё мне нужно написать алгоритм к моей программе, мне там тогда все действия описывать (a,b,c,d и y), или как, а то я уже подзабыла что-то?

[volvo]

b:=exp(ln(-sin(x)/cos(x))*3);

- очень велика вероятность ошибки. Если sin(x) и cos(x) будут одновременно > 0, или одновременно будут < 0, то аргумент Ln станет отрицательным, и будет... Ну, скажем, нехорошо будет... Я уж не говорю о случае, когда Cos(x) или Sin(x) будут равны 0. Кстати, константа e тебе не нужна, она всегда может быть получена через Exp(1)...