6 лаба

Федеральное агентство связи

Ордена Трудового Красного Знамени

федеральное бюджетное образовательное учреждение высшего образования

«Московский Технический Университет Связи и Информатики»

(МТУСИ)

Кафедра Информатики

Лабораторная работа № 6

Тема:

«Программирование алгоритмов итеративных циклических структур»

Вариант 00

Выполнил:

Великий студент

-----

Москва 0000

3)Задание на разработку проекта:

4)Формализация и уточнение задания:

Вычислите ln(2)

Будем считать, что заданная точность ε обеспечена, если модуль разности между текущим и предыдущим значениями корня меньше точности ε, то есть для нашего случая |1/a| < ε.

4.1)Элементы, разрабатываемого проекта:

1. Графический интерфейс пользователя:

Разработанная форма проекта имеет вид, как на рис. 4.6.4-1

5.1) форма

5.2) Cхема алгоритмов процедур проекта:

Начало procedure( )

схема алгоритма процедуры procedure() представлена на рис. 4.6.4-2.

n=1 : a=1

y=a

a=a*(-1*(n/(n+1))

n=n+1

y=y+a

Вывод

y

Abs(a)<ee

Конец

Программа 5.3

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form1

Sub procedure(ByVal x As Double, ByVal ee As Double, ByRef y As Double, ByRef N As Integer)

Dim a As Double

N = 1

a = 1

y = a

Do

a = a * (-1 * (N / (N + 1)))

y = y + a

n = n + 1

Loop Until Abs(a) < ee

End Sub

Sub PROC(ByVal X As Double, ByRef Y1 As Double)

Y1 = Log(X)

End Sub

Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim x, ee, y, Y1 As Double

Dim N As Integer

x = Val(TextBox1.Text)

ee = Val(TextBox2.Text)

procedure(x, ee, y, N)

PROC(x, Y1)

TextBox3.Text = CStr(y)

TextBox4.Text = CStr(Y1)

TextBox5.Text = CStr(N)

End Sub

End Class

6)результат работы

7) проверка результатов