PASCAL. Циклическая задача. WHILE.

Question

PASCAL.
Циклическая задача. WHILE.

---

Answer 1

Var
  x,fx,xmax,fmax:real;
begin
  fmax:=-100;
  x:=-1;
  while x<=1 do begin<br>    fx:=(sin(x)-sqrt(sqr(x)+7))/2;
    if fmax    x:=x+0.1
  end;
  Writeln('Найден максимум f(',xmax:0:1,')=',fmax:0:5)
end.

Результат выполнения программы
Найден максимум f(1.0)=-0.99348

Comments

Спасибо!

---

Пожалуйста