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);

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

AlexZir

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

kreol

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

AlexZir

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

kreol

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

AlexZir

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