Программа для вычисления выражения

[Advocad4]

Составить программу для вычисления выражения.Вычислите их значения при x=1,y=2,значения других переменных произвольны.Все переменные водятся с клавиатуры.

Вот выражение

_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

Модератор.

[p51x]

в паскале умножение обозначается *

[Advocad4]

точно)) но пишет compilation aborted

[aizen_shakuran]

Для начала: у вас неправильное решение. Пятерка не умножается выражение (x-2y) в квадрате, она возводится в степень числа, получаемого из этого выражения. Далее, синус - это функция, а Х - это ее переменная, которая заключается в скобки. Вот код второй части разности:
0,0015*(sqr(sin(x))-1). А все решение... короче, одной строкой не отделаетесь. Пишите, отвечу. Если хотите, помогу с синтаксисом Паскаля и дальше, да и людей здесь умных хоть отбавляй
да, и не забываем оставлять отзывы

[Serge_Bliznykov]

А все решение... короче, одной строкой не отделаетесь.

да легко!
Если вспомнить, что возведение в степень легко может быть заменено логарифмической функцией: A^B = exp(B*LN(A)):

L := exp(abs(x-2*y)*ln(5)) - 0.015 * abs(sqr(sin(X))-1);
WriteLn('Значение выражения равно ',L:1:6);

[aizen_shakuran]

Ну, я и говорил, что умных людей здесь полно

[KORT]

Думаю получится что-то этого (сам не тестировал, набросал на скорую руку), только для целой степени:

var
  L:real;
  x,y,rxy,i,sxy,r1:integer;
begin
  l:=0.0;
  rxy:=0;
  sxy:=1;
  readln('Переменная Х=');
  readln('Переменная Y=');
  rxy:=abs(x-2*y);
  if rxy > 0 then
    begin
      r1:=5;
      while (rxy > 0) do
        begin
	  if (rxy and 1 = 1) then 
            sxy:=sxy * r1;
	  r1:=r1 + r1;
	  rxy:=rxy shr 1;
	end;
      L:=sxy - 0.0015 * abs(sqr(sin(x)) - 1);  
    end
   else
    L:=1 - 0.0015 * abs(sqr(sin(x)) - 1);
  writeln('Результат L=',l:2:4);
end;