Запись со степенью

[BukTop2009]

Господа добрый день!
Нужно вычислить функцию квадратов, я вложил файлик.
Проблема не с решением, а с записью на паскале данной формулы, у меня не получается то из-за кол-ва скобок, то из-за ошибки: операторы имеют неправильные типы, хотя поидее все REAL тип.
Заранее благодарю

[DiemonStar]

у меня не получается то из-за кол-ва скобок, то из-за ошибки: операторы имеют неправильные типы, хотя поидее все REAL тип.

ну так кидайте свой неправильный код - поможем найти ошибки...

[BukTop2009]

program summa;
uses crt;
var c,x,p,d:real;
begin
c:=2.9;
x:=6.5;
p:=((sqr(x)*x)/ln(c))+((sqr(c)*c-sqr(x)*x)/arctgc*sin(e^x);
if (0<(p/c)) or ((p/c)<10) then begin
writeln(p);
end
else
begin
d:=((2*x)/(c+p))+sqrt(3*x*mod(cos sqr(c)));
writeln(d);
readln;
end.

[JIeIIIa]

Скобки забыли arctan(c)
e^x нет. Есть exp(x)
Вы написали с^3-x^3, вместо c^3-x^2
Модуль в Паскале - это abs()
Параметры функции должны быть в скобках: вместо cos sqr(c) надо cos(sqr(c))

if (0<(p/c)) or ((p/c)<10) - если р/с=-10, то у Вас выполниться then, а по условию надо else (разберитесь c or/and)
Вычисления среднего арифметичекского с и х в коде не видно...

Попробуйте переписать код с учетом замечаний

[BukTop2009]

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

Скобки забыли arctan(c)
e^x нет. Есть exp(x)
Вы написали с^3-x^3, вместо c^3-x^2
Модуль в Паскале - это abs()
Параметры функции должны быть в скобках: вместо cos sqr(c) надо cos(sqr(c))

if (0<(p/c)) or ((p/c)<10) - если р/с=-10, то у Вас выполниться then, а по условию надо else (разберитесь c or/and)
Вычисления среднего арифметичекского с и х в коде не видно...

Попробуйте переписать код с учетом замечаний

program summa;
var c,x,p,d:real;
begin
c:=2.9;
x:=6.5;
p:=((sqr(x)*x)/ln(c))+((sqr(c)*c-sqr(x))/arctan(c)*sin(exp(x)));
if (0<(p/c)) and ((p/c)<10) then begin
writeln(p);
end
else
begin
d:=((2*x)/(c+p))+sqrt(3*x*abs(cos(sqr(c))));
writeln(d);
end;
readln;
end.

Ответ: 3.25596613769308

Честно говоря среднее арифметическое не совсем понял что от меня хотят. Это то что делает в MS Access функция AVG я подозреваю, как на Паскале осуществить не знаю.

[JIeIIIa]

Все равно намудрили со скобками. Вычисляя р на sin надо делить, а Вы умножаете.

program summa;
var 
   c,x,p,d:real;
begin
   c:=2.9;
   x:=6.5;
   p:=sqr(x)*x/ln(c)+(sqr(c)*c-sqr(x))/(arctan(c)*sin(exp(x))); 
   if (0<(p/c)) and ((p/c)<10) then begin {если условие выполнено
      Найти среднее арифметическое квадратов c и x
      среднее арифметическое двух  чисел = (число1+число2)/2
      }
      d:=(c*c+x*x)/2
      writeln(d);
   end else begin {иначе удвоить с и x - Вы это условие почему-то проигнорировали}
      c:=c*2;
      x:=x*2;
      d:=(2*x)/(c+p)+sqrt(3*x*abs(cos(sqr(c))));
      writeln(d);
   end;
   readln;
end.

[BukTop2009]

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

Все равно намудрили со скобками. Вычисляя р на sin надо делить, а Вы умножаете.

program summa;
var 
   c,x,p,d:real;
begin
   c:=2.9;
   x:=6.5;
   p:=sqr(x)*x/ln(c)+(sqr(c)*c-sqr(x))/(arctan(c)*sin(exp(x))); 
   if (0<(p/c)) and ((p/c)<10) then begin {если условие выполнено
      Найти среднее арифметическое квадратов c и x
      среднее арифметическое двух  чисел = (число1+число2)/2
      }
      d:=(c*c+x*x)/2
      writeln(d);
   end else begin {иначе удвоить с и x - Вы это условие почему-то проигнорировали}
      c:=c*2;
      x:=x*2;
      d:=(2*x)/(c+p)+sqrt(3*x*abs(cos(sqr(c))));
      writeln(d);
   end;
   readln;
end.

Ааа.. Вот как! Я про удвоение забыл сначала потом вписал, среднее арифм. оказывается банальная до тупости весчь Теперь всё Ясно. Огромное спасибо Вам Алексей!

Ответ 4.96069820612616 таким получился.