Проверьте правильность программы на паскале

[димон4ик_]

Program lab2;
Var a,b,c,x,y:real;
Fy:double
begin
writeln('Введите x');
readln(x);
if (x=0) or (sin(x)=-1) or (sqr (Ln)>0) then
begin
writeln ('Решений нет');
else
a:=(sqr*(cos(x)));
b:=(1+sin(x));
c:=(sqr(ln))*(x/exp(1/3*ln(x-1))));
y:=(a/b)-c;
if y>0 then Fy:=1'
if y=0 then Fy:=0;
if y<0 then Fy:=-1;
writeln (Fy);
end;
end.

_________________
По правилам форума код должен оформлять с помощью тегов!
Используйте форматирование с помощью тегов [CODE] .. [ /CODE]
(кнопочка на панели форматирования # )

Модератор

[_Gabriel_]

вот так вроде

Program lab2;
Var a,b,c,x,y:real;
    Fy:double;
begin
writeln('Введите x');
readln(x);
if (x=0) or (sin(x)=-1) or (sqr (Ln(x))>0) then
writeln ('Решений нет ')
else  begin
a:=(sqr(cos(x)));
b:=(1+sin(x));
c:=(sqr(ln(x)))*(x/exp(1/3*ln(x-1)));
y:=(a/b)-c;
if y>0 then Fy:=1;
if y=0 then Fy:=0;
if y<0 then Fy:=-1;
writeln (Fy);
end;
end.

_________________
По правилам форума код должен оформлять с помощью тегов!
Используйте форматирование с помощью тегов [CODE] .. [ /CODE]
(кнопочка на панели форматирования # )

Модератор

[s-andriano]

Правильная программа - это та программа, которая делает то, что нужно.
Как можно проверить правильность, не зная, что должна делать программа?

[димон4ик_]

Сообщение от s-andriano

Правильная программа - это та программа, которая делает то, что нужно.
Как можно проверить правильность, не зная, что должна делать программа?

Нужно вычислить значение

[Аватар]

Нужно вычислить значение

Чего? Высоту орбиты в апогее? Или попроще? Может формула секретная

[alexander13]

sqr (Ln(x))>0

А как может быть иначе?
Ну, в действительных числах.

[димон4ик_]

Сообщение от Аватар

Чего? Высоту орбиты в апогее? Или попроще? Может формула секретная

Нужно вычислить значение y

[s-andriano]

Сообщение от димон4ик_

Нужно вычислить значение y

И по какой формуле его вычислять? (или, правда, - она секретная?)

[BDA]

Сообщение от димон4ик_

Нужно вычислить значение y

Мы можем найти только какие-то очевидные ошибки, но самой исходной формулы мы не знаем - так как же мы можем понять, то ли Вы написали или нет?