// 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)