Question

Составить программу для вычисления и печати таблицы значений функции y=x*sin(5*x+1) на отрезке [0;1] с шагом 0,1.

Answer 1

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Range(0.0,1.0,10).Tabulate(x->x*sin(5*x+1)).Println(NewLine)
end.

Результат
(0,0)
(0.1,0.0997494986604054)
(0.2,0.181859485365136)
(0.3,0.179541643231187)
(0.4,0.0564480032239469)
(0.5,-0.17539161384481)
(0.6,-0.454081497184757)
(0.7,-0.684271082365568)
(0.8,-0.767139419730511)
(0.9,-0.634986293013353)
(1,-0.279415498198927)