Решение уравнения в Pascal

[KekLol]

Помогите найти ошибку.
Нужно написать такую формулу: х=Корень из((2а+sin|3а|)/3.56)
program х;
var x,a:real;
begin
read(a);
write(sqrt((2*a+sin*abs(3*a)/3.56)
end.

Ошибка:Program1.pas(5,19): Нельзя преобразовать тип function(x: real): real к real
Буду благодарна за помощь)

[ura_111]

Подсчитай количество открывающихся и закрывающихся скобок - они должны быть одинаковы... А ещё, название программы и переменной одинаковы... Короче, вот тебе заготовка:

Program URAVNENIE;
var a:real;
begin
  write('Vvetite a= ');
  read(a);
  write('x= ');
  write(sqrt(2*a));
end.

Твоя задача: вписать в неё своё уравнение. Только ты делай по частям, т.е. написал чуть-чуть уравнения - скомпилируй (тем самым проверишь что нет ошибок), потом ещё пару символов - и опять компиляция. Таким образом ты определишь когда появляются ошибки в формуле.

0_0.jpg

[type_Oleg]

Кстати, здесь при некоторых a под корнем может быть < 0. Это тоже надо как-то предусмотреть.
Например:

 if t<0 
  then WriteLn(' no result ')
  else WriteLn(Sqrt(t));

[digitalis]

{ х=Корень из((2а+sin|3а|)/3.56) }
Эта строчка должна звучать примерно так:

write(sqrt((2*a+sin(abs(3*a)))/3.56)) ;

А еще лучше такие замудренные выражения разбивать на более простые, чтоб в скобках не запутаться.

   tmp := abs (3*a) ; tmp := sin(tmp) ; tmp := (2*a+tmp)/3.56 ;
  if tmp > 0 then  write(sqrt(tmp)) else write ('Bad argument') ;

И вообще это не решение уравнения, а вычисление выражения. Решение уравнения : F(x) = 0 ; x=?
Разницу улавливаете ?