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

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

в блоке ввода данных указывать только x или как?

Ну, ты же вводишь только Х? Значит, только его и указывай...

[goosberry]

Ну, ты же вводишь только Х? Значит, только его и указывай...

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