Ошибка в программе

[AliveHeaven]

Ошибка в программе

Добрый вечер. Подскажите пожалуйста где ошибка в программе. Я перепробовал все варианты, но с sqr и ln все никак не получается написать. Может я не там ставлю скобки?

program p4;
var
a,b,c,x,y:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
x:= (sqr(ln)(abs(3*a+c))/5)+sin(Pi*c)
y:= (abs(1-a))*sin(Pi/4+b)
writeln('x=',x:10:3);
writeln('y=',y:12:4);
end.

Заранее спасибо.

 

[kreol]

а что именно надо написать?

 

[Fenix]

x:= (sqr(ln)(abs(3*a+c))/5)+sin(Pi*c)

x:=(sqr(ln(abs(3*a+c)))/5)+sin(Pi*c);

в этой и следующей строчках в конце забыта "точка с запятой"

 

[AlexZir]

Гыыы, сдается мне, что там не только точка с запятой забыта )
Покажите скан задания, у вас функция составлена совершенно неправильно

 

[kreol]

Гыыы, сдается мне, что там не только точка с запятой забыта

Вот-вот... Вообще какой-то не понятный диалект паскаля

 

[AlexZir]

Отчего же? Листинг вполне соответствует синтаксису Turbo Pascal, вот только функции написаны с ошибками.

 

[kreol]

(sqr(ln)(abs(3*a+c))/5)+sin(Pi*c)

Скобки неизвестно как поставлены...
ln ведь должен быть логарифмом? А тут либо он без аргументов, либо аргумент это (abs(3*a+c)) но какая-то странная запись аргументов отчасти похожа на lisp но и то не такая

 

[AlexZir]

Потому и запросил у топикстартера скан задания.