Question

Составить алгоритм и написать программу(на паскале) "найти минимальное значение тригонометрической функции


(любой) на интервале [0; 1) . Перебор осуществлять с шагом 0,1." Помогите!

Answer 1

Ответ:

0.54030230586814

Программа на PascalABC.NET:

begin

 var min := 1.5; // ищем для косинуса, а он не бывает больше 1

 var x := 0.0; // начальное значение

 while x <= 1.01 do // конечное значение плюс довесок на неточность

 begin

   var y := Cos(x); // значение функции в точке х

   if y < min then  // нашли значение меньше

     min := y;   // запомним его, как минимум

   x += 0.1  // увеличим х на шаг

 end;  

 Print(min)   // вывели найденный минимум

end.