Вызов функции - C++ - Ответ 817971

#include<math.h>
#include<iostream.h>
#include<iomanip.h>
long double m,l,e;
long n=0;// глобальные переменные.
unsigned long double fact(unsigned long double n)    // поиск факториала числа
{
if(n<=1)
return 1;
return n*fact(n-1);
}
long double alpha(long double x) {return(x*x+m*m*x);} //уравнение альфа от Х
long double beta(long double x) {return(x+21*alpha(x));} //уравнение бета от Х
long double double_fact(long double k, long double p) {return fact(3*k)/fact(2*k+p);} //это кусок вашего вычисления там где (3k)!/(2k+p)!
long double sum1(int k)// сумма для Х по к(длинное произведение)
{
long double result=0;
for(long double p=k;p<=n;p++)
{
result+=(long double) double_fact(k,p)*pow(e,(k-p))*alpha(k-2*p);
}
return result;
}
long double sum2(int k)//сумма для Y по к(длинное произведение)
{
long double result=0;
for(long double p=k;p<=n;p++)
{
result+=(long  double) double_fact(k,p)*pow((1+e),(k+p))*pow (l,p)*alpha(k+2*p);
}
return result;
}
void main ()
{
cout<<"Enter m,l,e \n";
cin>>m>>l>>e;
cout<<"Enter n>0 \n";
do
cin>>n;
while(n<1);
long double *arr1= new long double[n];
long double *arr2= new long double[n];
for(int k=0;k<n;k++)
{
arr1[k]=1+(k+1)*alpha(k+1)*(4*(k+1))+sum1(k+1);
arr2[k]=2*beta(k+1)+sum2(k+1);
}
long hold=0;
//code to sort arrays
 for(int i = n-1; i > 0 ; i--)
     for(int j = 0 ; j < i ; j++)
          {
                     if(arr1[j+1]>arr1[j])
                     {
 
                                hold=arr1[j+1];
                                arr1[j+1]=arr1[j];
                                arr1[j]=hold;
                     }
                     if(arr2[j+1]>arr2[j])
                     {
                                hold=arr2[j];
                                arr2[j]=arr2[j+1];
                                arr2[j+1]=hold;
                     }
          }
//code to display max value
cout<<"\n arr1 max: "<<arr1[0];
cout<<"\n arr2 max: "<<arr2[0]<<endl;
cout<<setprecision(10);
for ( i=0; i<n; i++)
cout<<setw(20)<<arr1[i]<<setw(20)<<arr2[i]<<endl;
delete [] arr1;
delete [] arr2;
}