Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство образования и науки Российской Федерации
Федеральное государственное бюджетное образовательное
Учреждение высшего профессионального образования
“Ивановская государственная текстильная академия”
(ИГТА)
Кафедра автоматики и радиоэлектроники
Отсчет о выполнении лабораторной работы №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
Результат выполнения программы: