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

0 голосов
29 просмотров

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


image

Информатика (15 баллов) | 29 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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

(142k баллов)
0

Спасибо!

0

Пожалуйста