Найти сумму значений функции...(Turbo Pascal)

[siato]

Найти сумму значений функции
y=cos(x/A)+x/(A-2)
для X изменяющегося на отрезке [-5;12] с шагом 0.4

Заранее благодарен

[KemanSR]

Скажи, что нам нужно сделать? Написать код за тебя? Думаю что использование цикла for очевидно.

[ZX Spectrum-128]

Как раз здесь цикл for не используется.

[KemanSR]

Да, извиняюсь, конечно while, просто о похожем примере подумал.
Думаю как то так.

var a, b, h, s, x :real;

begin
a:=-5;
b:=12;
h:=0.4;
x:=a;
s:=0;
while x<=b do begin
      s:=s+cos(x/a)+x/(a-2);
      x:=x+h;
      end;
writeln(s);
end.