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

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

Казанский Национальный Технологический Университет

Кафедра химической кибернетики

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

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

Выполнили:

Студенты группы 2361-62

Пискунов Андрей, Филипов Руслан

Проверил:

Шулаев М. В.

Казань, 2017

Цель: вычисление арифметических выражений, вывод и ввод данных.

Задача: Вычислить площадь треугольника по формулам:

s1=-вычисление площади по высоте и основанию.

s2=-вычисление площади по формуле Герона.

s3=-вычисление площади по двум сторонам и синусу угла между ними.

Исходные данные:

Решение поставленной задачи:

Программа на языке EVB

1)Sub prog13()

a = 4.6: b = 11.7: c = 8.7

h = 3: q = 41

s1 = 1 / 2 * b * h

MsgBox "s1=" & s1

p = (a + b + c) / 2

s2 = Sqr(p * (p - a) * (p - b) * (p - c))

MsgBox "s2=" & s2

s3 = 1 / 2 * a * b * Sin(q * 3.14159 / 180)

MsgBox "s3=" & s3

End Sub

2) Sub prog12()

a = Val(InputBox("Ввод a", "Исходные данные"))

b = Val(InputBox("Ввод b", "Исходные данные"))

c = Val(InputBox("Ввод c", "Исходные данные"))

MsgBox "a=" & a & "b=" & b & "c=" & c, , "Проверка"

h = 3: q = 41

s1 = 1 / 2 * b * h

MsgBox "s1=" & Format(s1, "##.####")

p = (a + b + c) / 2

s2 = Sqr(p * (p - a) * (p - b) * (p - c))

MsgBox "s2=" & Format(s2, "##.####")

s3 = 1 / 2 * a * b * Sin(q * 3.14159 / 180)

MsgBox "s3=" & Format(s3, "##.####")

End Sub

3) Sub prog3()

With Worksheets("Работа1")

a = .Range("a").Value

b = .Range("b").Value

cc = .Range("cc").Value

End With

MsgBox "a=" & a & "b=" & b & "cc=" & cc

h = 3: q = 41

s1 = 1 / 2 * b * h

p = (a + b + cc) / 2

s2 = Sqr(p * (p - a) * (p - b) * (p - cc))

s3 = 1 / 2 * a * b * Sin(q * 3.14159 / 180)

With Worksheets("Работа1")

.Range("F2").Value = s1

.Range("F4").Value = s2

.Range("F5").Value = s3

End With

End Sub

Результат:

Итог: Арифметическое выражение вычислено, данные введены и выведены. Площадь треугольника вычислена.

Самостоятельная работа

Цель: Составить программу для вычисления значения функций при заданных параметрах.

Задача1: вычислить: y=

Исходные данные: a=0,4; x=1,2

Решение задачи:

Sub prog15()

a = 0.4: x = 1.2

y = ((4 * Sqr(1 - a * x ^ 2)) * ((1 - x ^ 2) ^ 1 / 3) / (a ^ 2 + x ^ 2)) + Sin(2.3 * x)

MsgBox "y=" & y

End Sub

Результат:

Задача2: вычислить:

Исходные данные: a=0,75; b=1.15

Решение задачи:

Sub prog14()

a = 0.75: b = 1.15

F = 2 / (Sqr(a ^ 2 + b ^ 2))

MsgBox "F=" & F

End Sub

Результат:

Итог: Составлена программа для вычисления значения функций при заданных параметрах.