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

Бурдейный Иван Юрьевич Лт-403 Вариант №5

Структура следования.

Задание№1.

1. g=9,8 g=9/8 y= -Cos²x y= -(Cos(x))^2

L= L=1/10 a= a=(x*Sin(x))/(e)^2

m=1000² m=1000^2 t=(2p)^1/2*X^x+1 t=(2p)^(1/2)*(x)^(x+1)

Задание №2.

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

H =

Если p=1,23cm²; L=π/8; ß=π/12.

Входные данные: p, L, ß.

Выходные данные: H

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

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

Private Sub Command1_Click()

Dim p As Single

Dim L As Single

Dim H As Single

Dim bet As Single

Const pi = 3.1415

p = Val(Text1.Text)

L = pi / (180 / Val(Text2.Text))

bet = pi / (180 / Val(Text3.Text))

H = (p * (1 / Tan(L / 2)) * Sin(bet)) ^ (1 / 2)

Text4.Text = H

End Sub