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

2

Саламатов Е.И. В-407 18 вариант

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

Задание 1.

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

Const d1=-32*(2^5) Const gamma=1/5 Const l=2.71828

H=(sin(x)+1)^(1/3) q=c*d/(p*m*r) y=log(2/sqr(4*pi*x))

Задание 2.

В правильной пирамиде двугранный угол при основании равен L. Боковая поверхность равна S. Найти расстояние от центра основания до боковой грани по формуле:

если S=100см²; L=0,85рад.

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

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

r=sin(L)/3*sqr(S*sqr(3)*cos(L))

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

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

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

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

Private Sub Command1_Click()

Dim S As Single

Dim L As Single

Dim r As Single

S = Text1.Text

L = Text2.Text

r=sin(L)/3*sqr(S*sqr(3)*cos(L))

Text3.Text = r

End Sub

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