Старые отчёты / Инфoрматика / Лабораторные по Информатике / Лабораторная работа Следование 1 / Вариант 16

2

Кошко Д.А. ЛТ-403 16 вариант

Задание 1.

Предложенные формулы записать в виде операторов присваивания. Числа представить в виде констант языка программирования, переменные по необходимости переобозначить.

Const Vcp=36.27 Const betta=2^-1=1/2 Const f=0.6E5

q=(a+b)^(1/3) a=2*p*r y=a*b*sin(x)

Задание 2.

Объем правильной треугольной пирамиды равен V, угол между диагоналями двух граней, проведенными из одной и той же вершины, равен L. Найти длину стороны основания призмы по формуле:

если V=1080см³; L=0,62рад.

1. Математическое описание.

а. Выбор математической модели.

a=sqr(16*(sin(L/2)^2)*(V^2)/(3*sin(pi/6+L/2)*sin(pi/6-L/2)))

б. Входные данные: V, L - вещественные

в. Выходные данные: a - вещественные

2. Алгоритмизация.

3. Программирование

Private Sub Command1_Click()

Dim a As Single

Dim L As Single

Dim V As Single

Const pi = 3.141596

V = Text2.Text

L = Text3.Text

a = Sqr(16 * (Sin(L / 2) ^ 2) * (V ^ 2) / (3 * Sin(pi / 6 + L / 2) * Sin(pi / 6 - L / 2)))

Text4.Text = a

End Sub

4. Отладочный пример.