По какому принципу решать ?

[Artimbulidor]

Найти сумму всех y? Y=cosXв квадрате +|X|   X[-10;10]  hX=1

[mihali4]

Принцип простой - взять первое значение Х, вычислить косинус, умножить на самого себя и запомнить в переменной СУММА.
Взять второе значение Х, вычислить косинус, умножить на самого себя и прибавить к переменной СУММА.
И так далее.
Крайние значения Х известны - -10 и 10, шаг изменения Х тоже - hX=1.

[Artimbulidor]

вот что у меня получилось :
program lab;
var y,x:real;
x:=-10;
begin
while x<=10 do
begin
y:=cos(sqr(x))+exp(abs(x))
writeln('y=',y:=10:6)
hx:=1
end;
end

[Artimbulidor]

я не селен в програмировании но я его через цыкл while решал

[Artimbulidor]

взгляните может что нито не так или вообще все(((

[mihali4]

y:=cos(sqr(x))+exp(abs(x))

При чем тут корень квадратный, позвольте спросить? А экспонента?
Как я понял задание, должно быть так:

...
sum:=0;
...
y:=cos(x)*cos(x))+abs(x);
writeln('x=',x,'     y=',y);
sum:=sum+y;
x:=x+1;
...

З.Ы. Пардон, SQRT привиделось... И про сумму забыл...

[cLiFFero]

sqr(x) - это не корень квадратный, а квадрат числа

[cLiFFero]

надо делать так
program lab;
var y,x:real;
begin
x:=-10;
y:=0;
while x<=10 do
begin
y:=y+sqr(cos(x))+abs(x);
x:=x+1;
end;
writeln('y=',y:10:6);
end.

[Artimbulidor]

а как записать корень квадратный модуля х ???

[mihali4]

Он еще и издевается...
Sqrt(abs(x))