Помогите составить программу.И схему (начало-ввод,конец, итда)Похоже я чайник.

[Dares]

я пытался в одну строчку впихануть.y=exp(x*ln(abs(ln(x)-exp(x))))/exp(1/3*ln((sin(x)/cos(x)-exp(x*ln(2)))*(x+1)))
. Но мне сказали- так не правильно.Нужно с программы,клеарскрин, итд,бегин,ввод, иф...а я чайник.Выручайте.

[Smogg]

то есть, от вас хотят реализацию косинуса, синуса, квадратного корня, взятия логарифма?

[type_Oleg]

Нет, наверное функции Sin, Ln, Power можно использовать.
Просто ему ".. .Нужно с программы,клеарскрин, итд,бегин,ввод, иф..."

program progLaba;

var x,y:Double;
 begin
  clrscr;
  writeln('x = ');
  readln(x);
  //  и прочие непонятные  буквы
 end.

[Smogg]

Сообщение от type_Oleg

program progLaba;

var x,y:Double;
 begin
  clrscr;
  writeln('x = ');
  readln(x);
  //  и прочие непонятные  буквы
 end.

А жаль что так просто ))