структура следование. 1. Постановка задачи
 Скачать 348.43 Kb.
|
|
Это структура, действия в которой выполняются последовательно друг за другом от первого до последнего. Эту структуру рассмотрим на примере задачи вычисления объем правильной треугольной пирамиды. 1.Постановка задачи Разработать информационную технологию ИТ, позволяющую вычислить объем правильной треугольной пирамиды, если известен двугранный угол при боковом ребре φ и радиус R круга, описанного около одной из боковых граней. Выходные данные: V – объем пирамиды. Входные данные:R – радиус круга, описанного около одной из боковых граней; φ – двугранный угол при боковом ребре. 2. Математическая модель задачи V =  ×  × ( (1)3. Разработка алгоритма  π = 3,14 R, φ   V = × × (  V Начало Конец 4. Разработка визуальной части проекта  Form1  TextBox1 CommandButton1 Label3 TextBox2 TextBox3 Label2 Label1        5. Кодприложения Private Sub CommandButton1_Click() Const pi As Single = 3.1415926 Dim R As Single, f1 As Single, f As Single, V As Single R = Val(TextBox1.Text) f1 = Val(TextBox2.Text) f = (f1 * pi) / 180 V = (R ^ 2 / 12) * (Math.Cos(f / 2) / Math.Sin(f / 2) ^ 6) * (3 * Math.Sin(f / 2) ^ 2 - Math.Cos(f / 2) ^ 2) TextBox3.Text = Str(V) End Sub 6. Отладка приложения Контрольный пример, сосчитанный вручную: При радиусе круга, описанного около одной из боковых граней R=10 см и двугранном углу при боковом ребре φ=65 объём пирамиды V=45,20818 см3.  КОМЕНТАРИЙ К КОДУ ПРИЛОЖЕНИЯ 1 строка. Личная (авторская) программа, написанная для кнопки CommandButton1 (ПУСК) и запускаемаящелчком по этой кнопке. 2строка. Для константы Pi вещественного типа выделяется ячейка памяти размером 4 байта и в неё заносится число 3.1415926. 3строка. Для переменных R, f1,fи V вещественного типа в памяти выделяются четыре пустые ячейки памяти по 4 байта. 4строка. Текст из поля TextBox1 на форме функцией Val переводится в число и присваивается переменной R (заносится в ячейку R). 5строка. Текст из поля TextBox2 на форме функцией Val переводится в число и присваивается переменной f1 (заносится в ячейку f1). 6 cтрока. Содержимое ячейкиf1 умножается на содержимоеячейкиPi и делится на 180 (производится перевод из градусов в радианы). Полученное числоприсваивается переменной f (заносится в ячейку f). 7 строка. Исходя из полученных данных,производится вычисление объёма пирамиды по формуле (1). Полученное числоприсваивается переменной V (заносится в ячейку V). 8 строка. Функция Str переводит число из ячейки V в текст (в строку символов) и помещает его в текстовое поле TextBox3 на форме. 9 строка. Конец программы. |