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

[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]

Ну, правильно было бы сначала проверить, что Cos(x) не равен 0, и только потом продолжать:

program zadacha;
uses crt;
var x, a, b, c, d, y: real;
begin
  clrscr;
  write('x = '); readln(x);
  if abs(cos(x)) > 10e-9 then begin
    a:=abs(1-sqr(sin(x/2)));
    b:=-sqr(sin(x)/cos(x)) * (sin(x)/cos(x)); { Вот так вычисляем куб тангенса }
    c:=2*exp(b); { <--- Вот тут тоже обрати внимание !!! }
    d:=exp(ln(a)*(1/5))+c;
    y:=exp(ln(d)*(1/3));
    writeln('y = ', y:5 :3);
  end
  else writeln('cos(x) = 0; деление на 0 !!!');
  readkey;
end.

[goosberry]

Ну, правильно было бы сначала проверить, что Cos(x) не равен 0, и только потом продолжать:

Болшьшое спасибо, только вот у нас вроде задание написать неразветвлённую программу, ну ладно))
И ещё по блок-схеме: в блоке ввода данных указывать только x или как?