Question

Перевести код с c++ на pascal (турбо паскаль)#include #include #include using namespace std; const double eps = 0.01; double func(double x) {return x*sinh(x); }double simpson_integral(double a, double b, int n){ const double h = (b-a)/n; double k1 = 0, k2 = 0; for(int i = 1; i < n; i += 2) { k1 += func(a + i*h); k2 += func(a + (i+1)*h); } return h/3*(func(a) + 4*k1 + 2*k2); }int main(){ double s1, s; double a = 0, b = 1; int n = 2; s1 = simpson_integral(a, b, n); do { s = s1; n = n + 1; s1 = simpson_integral(a, b, n); } while (fabs(s1 - s) > eps); cout < < s1 < < endl; return 0; }