Информатика Лабы 1 семестр / Информатика Лаб. 5 Мат. функции Виноградов

Министерство образования и науки Российской Федерации

Федеральное государственное бюджетное образовательное

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

“Ивановская государственная текстильная академия”

(ИГТА)

Кафедра автоматики и радиоэлектроники

Отсчет о выполнении лабораторной работы №5

Вариант №2

Математические функции пространства имен Math

в системе программирования VB-Net 2008.

Выполнил студент группы 1М6б

Виноградов О.С.

Номер зачетной книжки: 123061

Дата выполнения работы 12.12.2012

Принял _______________________

Оценка ________________________

Дата защиты отчета __________

Иваново 2012

Задание 1

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

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

Module Module1

Sub Main()

Dim y As Double

Dim x As Double

System.Console.Write("x = ")

x = CDbl(System.Console.ReadLine())

y = Math.Log(Math.Pow(Math.Sin(x) * Math.Cos(x + 1), 1 / 3), 7)

System.Console.WriteLine("y = {0}", y)

End Sub

End Module

Результаты выполнения программы:

х	0,53	1,02	0,37	0,12
у	-0,664912838566606	NaN	-0,450409126931799	-0,505934001442871

Задание 2

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

Module Module1

Sub Main()

Dim a As Integer

Dim b As Integer

Dim i As Integer

Dim j As Integer

a = -2

b = 9

For i = 0 To 3

Randomize()

For j = 0 To 7

System.Console.WriteLine("y({0}) последовательности {1} = {2}", j + 1, i + 1, a + Rnd() * (b - a))

Next j

Next i

End Sub

End Module

Результат выполнения программы: