Не получается составить программу.

[ITxan]

Составил программу, но с цикла не выходит, помогите, пожалуйста.

using System;

namespace Курсовая
{
    public class Program
    {
        public static void Main()
        {
            Курсовая.Задание1();
        }
    }

    public static class Курсовая
    {
        private static double M;
        private static double x = -15;
        private static double E = Math.Pow(10, -7); // c точности 

        public static void Задание1()
        {
            Console.WriteLine("Ведите значение z = ");
            double z = Convert.ToDouble(Console.ReadLine());

            for (int n = 2; n <= 7; n++)
            {
                M += Math.Pow(1 / Math.Tan(n), 2);

                double H = 2;
                for (int j = 4; H >= E; j++)
                {
                    H += z / Math.Pow(z, j) + Factorial(j);
                }
                M += H;
            }
            M = Math.Pow(1 / Math.Tan(x), 2) * M;
            Console.WriteLine("Результаты расчета: {0}", M);
        }

        public static double Factorial(double number)
        {
            if (number <= 1)
            {
                return 1;
            }
            else
            {
                return number * Factorial(number - 1); //Возвращает Factorial числа
            }
        }

    }

}

[Stilet]

                
 double H = 2,hПредидущее=0;
                for (int j = 4; (H-hПредидущее)> E; j++)
                {
                    hПредидущее=H;
                    H += z / Math.Pow(z, j) + Factorial(j);
                }

ИМХО...

[ITxan]

Цикл выдает бесконечность.

Измененный код.

namespace Курсовая
{
    public class Program
    {
        public static void Main()
        {
            Курсовая.Задание1();
            Console.Read();
        }
    }

    public static class Курсовая
    {
        private static double M;
        private static double x = -15;
        private static double E = Math.Pow(10, -7); // c точности 

        public static void Задание1()
        {
            Console.Write("Ведите значение z = ");
            double z = Convert.ToDouble(Console.ReadLine());

            for (int n = 2; n <= 7; n++)
            {
                M += Math.Pow(1 / Math.Tan(n), 2);

                double H = 2, HH = 0;
                for (int j = 4; (H - HH) > E; j++)
                {
                    HH = H;
                    H += z / Math.Pow(z, j) + Factorial(j);
                }
                M += H;
            }
            M = Math.Pow(1 / Math.Tan(x), 2) * M;
            Console.WriteLine("Результаты расчета: {0}", M);
        }

        public static double Factorial(double number)
        {
            if (number <= 1)
            {
                return 1;
            }
            else
            {
                return number * Factorial(number - 1); //Возвращает Factorial числа
            }
        }

    }

}

[Xeonc]

Не зная сути программы - сложно что-то сказать. Сутя по попытке ее дебага
H += z / Math.Pow(z, j) + Factorial(j);
косяк тут. Неправильная формула расчета, которая в результате дает бесконечность
Да и сам цикл, выглядит странно, мягко говоря.

                for (int j = 4; (H - HH) > E; j++)
                {
                    HH = H;
                    H += z / Math.Pow(z, j) + Factorial(j);
                }

Смысла операции HH=H; я совершенно не понял. Может потому что задачи в целом не знаю

[ITxan]

[PionerVBA]

Помогите пожалуйста решить задачу по программированию в среде VBA.

[Xeonc]

Сообщение от ITxan

матан был очень давно, и очень неправда, но мне подсказывает чутье, что сумма этого многочлена при J от 4 до бесконечности - будет всегда стремиться к бесконечности, что у тебя и выходит. Вполне вероятно что ты переписал задание неправильно, но так же вероятно, что я совсем забыл матан и несу чушь

[ITxan]

Xeonc
Преподаватель сам всем раздал эти карточки.

[Xeonc]

Эм. Или еще как вариант
for (int j = 4; (H - HH) < E; j++)
В цикле поменять условие с
(H - HH) > E, на (H - HH) < E. Т.к. тебе же нужно чтобы программа отработала до этой точности. Виснуть она перестала и даже выдает результат, а вот правильный ли...) Это тебе уже виднее будет

[ITxan]

Сообщение от Xeonc

Эм. Или еще как вариант
for (int j = 4; (H - HH) < E; j++)
В цикле поменять условие с
(H - HH) > E, на (H - HH) < E. Т.к. тебе же нужно чтобы программа отработала до этой точности. Виснуть она перестала и даже выдает результат, а вот правильный ли...) Это тебе уже виднее будет

Огромное Спасибо за объяснение!