⇢ Помогите пожалуйста перевести код с с++ на паскаль
h>
#include
#include
using namespace std;
int main()
{
double X[11]={0};
double Tabl[11][11]={0};
setlocale(LC_ALL,"rus");
double x;
int i,j,n=11;
//________________X___Y___________________________
for(x=0, i=0 ; i=x;
Tabl[0]=tan(x);
}
//________________delta_Y_________________________
for(i=1; i=Tabl[j+1][i-1]-Tabl[j][i-1];
}
//____________________________________________________________________________________________________________
cout X[j] && Tochki < X[j+1])
{i_x=j; break;}
}
}
if(i_x= 0; j--, k++)
{
a += q1 * Tabl[j][k];
q1 = q1 * (q + k) / (k+1);
}
}
Tabl2[0] = a;
Tabl2[1] = tan(Tochki);
Tabl2[2] = fabs(Tabl2[0] - Tabl2[1]);
}
cout;
for(j=0 ; j < (n-i); j++)
cout