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

Мочарный Я.В. ЭТ-401 Вариант № 17 3.11.2004 2

Задание 1.

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

Задание 2.

1.Постановка задачи.

1.1.Словесное описание задачи:

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

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

1.2.Входные данные:

V -вещественного типа

L –вещественного типа

1.3.Выходные данные:

S –вещественного типа

2.Математическая модель задачи:

3.Блок-схема алгоритма:

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

Private Sub Command1_Click()

Dim V As Single

Dim L As Single

Dim S As Single

V = Val(Text1)

L = Val(Text2)

S = (36 * V ^ 2 * Tan(L)) ^ (1 / 3) * 1 / Tan(L / 3)

Text3 = Str(S)

End Sub

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