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

Еремеев В.А. ЭТ-401 Вар. № 6 03.11.04 2

Задание 1.

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

Const Q=(-0.5)^2 Const T0=0 Const Fi=1/4

M=exp(x-1) Y=sqr(x-1) F=sin(x)^cos(a)

Задание 2.

Вычислить объем правильной треугольной пирамиды если известен двугранный угол при боковом ребре L и радиус R круга, описанного около одной из боковых граней:

если R=6 см; L=30⁰.

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

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

б. Входные данные: R, L

в. Выходные данные: V

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

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

Private Sub Command1_Click()

Dim R As Single, L As Single, V As Single

Const Pi As Single = 3.141592

R = Val(Text1)

L = Pi / (180 / Val(Text2))

V = (R ^ 2 * Cos(L / 2) * (3 * Sin(L / 2) ^ 2 - Cos(L / 2) ^ 2)) / (12 * Sin(L / 2) ^ 6)

Text3 = Str(V)

End Sub

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