Линейные вычислительные процессы

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

Линейные вычислительные процессы.

Цель: научиться организовывать алгоритм линейных ВП посредством среды Visual Basic.

Оборудование: ПК IBM

Среда программирования: Visual Basic Net

Отчет о работе:

1.С клавиатуры вводятся градусы, программа переводит их в радианы и выводит на экран.

Программный код:

Module Module1

Sub Main()

Dim singGRAD, singRAD As Single

Console. WriteLine(“Введите градусы”)

singGRAD=Console. ReadLine()

singRAD= (math. pi/180)*singGRAD

Console. WriteLine(“Результат:”{0}, singRAD)

End Sub

End Module

2. Вводится два числа целого типа. Определить результат от вещественного и целочисленного деления, а также остаток от целочисленного деления.

Программный код:

Module Module1

Sub Main()

Dim intX, intY, intB, intС As Integer

Dim singA as Single

Console. WriteLine(“Введите X”)

intX=Console. ReadLine()

Console. WriteLine(“Введите Y”)

intY=Console. ReadLine()

singA=intX/intY

intB=intX\intY

intC=intX mod intY

Console. WriteLine(“Результат от вещественного деления:”{0}, singA)

Console. WriteLine(“Результат от целочисленного деления:”{0}, intB)

Console. WriteLine(“Остаток от целочисленного деления:”{0}, intС)

End Sub

End Module

3. ИНДИВИДУАЛЬНОЕ задание: 37) Вычислить по формуле

Программный код:

Module Module1

Sub Main()

Dim singZ, singSQRT7 as Single

singSQRT7=math. sqrt(7)

singZ=3*(singSQRT7-1)*(singSQRT7-1)/((singSQRT7+4)^(-1)) +3^(math. log(4)/math. log(math. sqrt(3)))-(math. log(2)/math. log(1/2))

Console. WriteLine(“Z=”{0}, singZ)

End Sub

End Module

4. Придумать задачу на линейный алгоритм.

Вычислить по формуле: , где x, y, z – целые числа

Программный код:

Module Module1

Sub Main()

Dim intX, intY, intZ, int2Y, intSUM, int2YABS As Integer

Dim singA as Single

Console. WriteLine(“Введите X”)

intX=Console. ReadLine()

Console. WriteLine(“Введите Y”)

intY=Console. ReadLine()

Console. WriteLine(“Введите Z”)

intZ=Console. ReadLine()

int2Y=2*intY

intSUM= intX+int2Y+intZ

int2YABS=math. abs(int2Y)

singA= math. sqrt(math. tan(intSUM))*int2YABS/( math. cos(intSUM)+10*intX*intZ)

Console. WriteLine(“Результат: A=”{0}, singA)

End Sub

End Module

5. Найти расстояние между двумя точками с заданными координатами (вводятся с клавиатуры).

Программный код:

Module Module1

Sub Main()

Dim intX1, intY1, intX2, intY2 As Integer

Dim singD As Single

singD=math. sqrt((singX2-singX1)*( singX2-singX1)+( singY2-singY1)*( singY2-singY1))

Console. WriteLine(“Расстояние между точками =”{0}, singD)

End Sub

End Module

6. Вычислить по формуле

8.