Повний текст завдання

Знайти корінь рівняння з граничною абсолютною похибкою Е = 10^–4, відокремлений на відрізку [ a, b ].

Блок-схема алгоритму програми

Список ідентифікаторів констант, змінних, процедур і функцій, використаних в програмі, та їх пояснення

a, b, E, xi, F – змінні дійсного типу;

pow(x, y) – математична функція піднесення x до степеня y;

abs(x) – математична функція знаходження абсолютного значення x;

Остаточно відлагоджений текст програми

using System;

using System.Collections.Generic;

using System.Text;

namespace ConsoleApplication3

{

class Data

{

double a;

double b;

double e;

double x;

double xr;

double xr1;

double x1;

double xz;

public void ScanData()

{

Console.Write(" a=");

a = Convert.ToDouble(Console.ReadLine());

Console.Write(" b=");

b = Convert.ToDouble(Console.ReadLine());

Console.Write(" E=");

e = Convert.ToDouble(Console.ReadLine());

}

public void Prod()

{

x = a;

xr = b;

A1: xr1 = xr - ((Math.Cos(xr) + 1.0) / (xr - 2.0)) / ((-1.0 + 2.0 * Math.Sin(xr) - xr * Math.Sin(xr) - Math.Cos(xr)) / ((-2.0 + xr) * (-2.0 + xr)));

x1 = x - (((Math.Cos(x) + 1.0) / (x - 2.0)) * (xr1 - x)) / (((Math.Cos(xr1) + 1.0) / (xr1 - 2.0)) - (Math.Cos(x) + 1.0) / (x - 2.0));

if (Math.Abs(x1 - xr1) > e)

{

xr = xr1;

x = x1;

goto A1;

}

else

xz=(1.0/2.0)*(x+xr);

Console.WriteLine(" X=" + xz);

}

}

class Program

{

static void Main(string[] args)

{

Data d = new Data();

d.ScanData();

d.Prod();

Console.ReadLine();

}

}

}

Результат

Висновок

На цій лабораторній роботі я ознайомився з методами уточнення коренів нелінійних рівнянь з одним невідомим та написав програму для уточнення кореня нелінійного рівняння комбінованого методу хорд та дотичних.