С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
C# для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Mayche
0 / 0 / 0
Регистрация: 23.11.2017
Сообщений: 4
1

Нужно перевести небольшой код из Pascal в C#: Корень уравнения методом половинного деления

13.12.2017, 16:47. Просмотров 729. Ответов 3
Метки нет (Все метки)

Нет времени изучить язык C#, а нужно в короткие сроки перевести эту программу с Pascal на C#.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function F(x:real):real;
begin
F:=x*x*x*x+2*x*x*x-x-1
end;
function Bis(a,b,e:real):real;
var c:real;
begin
repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
until abs(b-a)<e;
Bis:=(a+b)/2;
end;
var a,b,e:real;
begin
a:=0;
b:=1;
e:=0.01;
writeln('Решение уравнения x*x*x*x+2*x*x*x-x-1=0');
writeln('на интервале [0;1] с погрешностью 0.01');
writeln('x=',Bis(a,b,e):0:2);
end
Может кто-нибудь помочь?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2017, 16:47
Ответы с готовыми решениями:

Найти корень уравнения методом половинного деления
найти корень уравнения F(x)=0 методом половинного деления построить график ...

Решение нелинейных уравнений: определить корень методом половинного деления
Я в ексель определила корень методом половинного деления, а как написать это в...

Решение уравнения методом половинного деления
Ребят, помогите пожалуйста написать программу на С#, решение уравнения х = -...

Решение нелинейного уравнения методом половинного деления
Помогите пожалуйста написать программу, ребята!!! На С#, решение нелинейного...

Найти один из корней уравнения F(X) =0 методом половинного деления
Найти один из корней уравнения F(X) =0 методом половинного деления F(X) = x^4...

3
yatvin
51 / 57 / 25
Регистрация: 10.04.2017
Сообщений: 211
13.12.2017, 17:43 2
суть задания какая?
0
Mayche
0 / 0 / 0
Регистрация: 23.11.2017
Сообщений: 4
15.12.2017, 14:40  [ТС] 3
Нужно написать на C# программу, которая методом половинного деления находит корень уравнения на отрезке (a,b) с точностью e. Я на Pascal нашел эту программу(в шапке), а вот с переводом на c# у меня проблемы.
0
afront
1052 / 999 / 752
Регистрация: 29.02.2016
Сообщений: 3,189
15.12.2017, 15:01 4
Лучший ответ Сообщение было отмечено Mayche как решение

Решение

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
namespace ConsoleApplication
{
    class Program
    {
        public delegate double Function(double x);
        static double F(double x)
        {
            //Setup for test case: x^3 - 5x + 3 = 0
            return x * x * x - 5.0 * x + 3.0;
        }
        public static double BisectionMethod(Function f, double a, double b, double epsilon)
        {
            double x1 = a;
            double x2 = b;
            double fb = f(b);
            while (Math.Abs(x2 - x1) > epsilon)
            {
                double midpt = 0.5 * (x1 + x2);
                if (fb * f(midpt) > 0)
                    x2 = midpt;
                else
                    x1 = midpt;
            }
            return x2 - (x2 - x1) * f(x2) / (f(x2) - f(x1));
        }
        static void Main(string[] args)
        {
            double x = BisectionMethod(F, 1.0, 2.0, 0.0001);
            Console.WriteLine("Solution from the bisection method: " + x.ToString());
            Console.WriteLine("Solution confirmation: f(x) = " + F(x).ToString());
            Console.ReadLine();
        }
    }
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.12.2017, 15:01

Написать программу, определяющую корни уравнения методом половинного деления на заданом пользователем интервале t
Написать программу, определяющую корни уравнения методом половинного деления на...

Решить уравнение методом итераций, методом ньютона и методом половинного деления
решить уравнение методом итераций,методом ньютона и методом половинного деления...

Поиск экстремума функции методом половинного деления. Функция y = 5x^2 - 4x + 1
Пытался найти экстремум, но уже перестаю соображать. Пожалуйста, помогите. Вот...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru