Question

Протабулировать функцию y = sinx на промежутке [0; 3,1], с шагом h = 0,1 и рассчитать среднее арифметическое(Sl) значений функций больших, чем 0,1 и меньших, чем 0,6.

Answer 1

===== PascalABC.NET =====

begin

 var s := PartitionPoints(0, 3.1, 31).Tabulate(x -> Sin(x));

 s.ForEach(p -> Writeln(p[0]:3:1, p[1]:20:15));

 var m := s.Where(p -> (p[1] > 0.1) and (p[1] < 0.6))

     .Average(p -> p[1]);

 Write('Ср.арифм. для y из интервала (0.1;0.6) равно ', m)

end.