Informatika_otchet_po_laboratornoy_rabote_3

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования «Нижегородский государственный архитектурно-строительный университет» (ННГАСУ)

Кафедра информационных систем и технологий

ЛАБОРАТОРНАЯ РАБОТА №3

По дисциплине «Информатика» по теме «Табулирование функции. Применение табулирования к решению уравнения f(x)=0.»

Выполнил:

Студент 1 курса гр. 1206

________________________ Вальков И.А. ^{(подпись)}

Преподаватель

________________________ Красильников В.В. ^{(подпись)}

Н.Новгород 2012

Тема: Табулирование функции. Применение табулирования к решению уравнения f(x)=0.

Цель работы: Составление программы табулирования функции y= f(x) и ее использование для нахождения корня уравнения f(x)=0 с заданной точностью.

Вариант №1

Задания

Задача 1. Найти таблицу значений функций y = f(x) на отрезке [a, b] с шагом h.

Задача 2. Вычислить корень уравнения f(x) = 0 на отрезке [a, b] с точностью ε =0,005.

Входные данные:

=0

b=1

ε=0.005

Выходные данные: X, Y

Заданное уравнение:

Пояснения:

Блок-схема программы:

Текст программы:

Dim a, b, x, y, x1, y2, e, h As Double

Console.WriteLine("Введите границы отрезка")

a = Val(Console.ReadLine())

b = Val(Console.ReadLine())

Console.WriteLine("Введите точность")

e = Val(Console.ReadLine())

1: h = Math.Abs(a - b) / 10

If Math.Abs(a - b) <= e Then GoTo 2

Console.WriteLine("Отрезок ({0};{1}) с шагом {2}", a, b, h)

For x = a To b Step h

y = (Math.Exp(x) + x - 2)

y2 = (Math.Exp(x + h) + x + h - 2)

Console.WriteLine("x={0}; y={1}", x, y)

If y * y2 < 0 Then a = x : b = x + h : GoTo 1

Next x

2: x1 = (a + b) / 2

y = (Math.Exp(x1) + x1 - 2)

Console.WriteLine("Корень уравнения x={0} при заданной точности {1}", x1, e)

Console.WriteLine("Значение функции в корне y={0}", y)

Console.ReadLine()

Результат:

Вывод: Cоставлена программа для нахождения корня заданного уравнения f(x) = 0 с заданной точностью.