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

2

Гайнутдинов А.А. ЛТ-403 8 вариант

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

Задание 1.

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

Const Z=-(1/2)^-2 Const betta=13.2E3 Const sigma=25000

y=((m*c-1)/11)^(1/5) f=sin(x)/(x+exp(x)) t=(sin(x)-a*cos(x))/(cos(x)+b)

Задание 2.

Найти радиус основания цилиндра, имеющего при данном объеме наименьшую поверхность:

если V=750 см³.

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

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

R=(V/(2*pi))^(1/3)

б. Входные данные: V - вещественные

в. Выходные данные: R - вещественные

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

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

Private Sub Command1_Click()

Dim R As Single

Dim V As Single

Const pi = 3.141596

V = Text1.Text

R=(V/(2*pi))^(1/3)

Text2.Text = R

End Sub

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