Question

Задание на языке Pascal
Выполнить через while
Для функции F(x)=$\frac{cos(x)-\sqrt{x^{2}+1 } }{2}$ найти минимальное значение на отрезке [-1,1,5] (шаг +0,2)

Answer 1

Ответ:

Free Pascal

uses math;

var

 x, y : double;

 i :  integer;

begin

 i:=-10;

 while i <= 15 do begin

   x:=i/10;

   y:=(cos(x)-sqrt(sqr(x)+1))/2;

   Writeln('f[',x:2:2,']=',y:4:4);

   inc(i,2);

 end;

end.