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

2

Вертегел В. ЛТ-403 27 вариант

«Структура Следование»

Задание 1.

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

Const Hkon=14.3E9 Const Z0=(1/8)*(2^4) Const omega=-64E6

z=log(2/(a*sqr(4*pi*x))) f=q*((b+c)^(1/3)) S=-Sin((t-x)/((t^2)+x))

Задание 2.

Найти полную поверхность правильной треугольной пирамиды по данному ее объему V и углу L между боковой гранью и плоскостью основания:

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

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

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

s=2*sqr(3)*(cos(L/2))^2/cos(L)*(9*(V^2)*(tan(L))^2)^(1/3)

б. Входные данные: V, L – вещественного типа

в. Выходные данные: S – вещественного типа

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

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

Private Sub Command1_Click()

Dim V As Single

Dim L As Single

Dim S As Single

Const pi = 3.141596

V = Text1.Text

L = Text2.Text

S = 2 * Sqr(3) * (Cos(L / 2)) ^ 2 / Cos(L) * (9 * (V ^ 2) * (Tan(L)) ^ 2) ^ (1 / 3)

Text3.Text = S

End Sub

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