Главная | Обратная связь

Тестирование программ.

Протокол

Лабораторной работы № 2

 

 

Выполнил: Тимошевский В.С.

Группа: ЕС – 151

Проверил: доцент: Маевская. Е.Ю.

Оценка:

Дата:

 

Одесса 2015

 

Тема:Программирование на VBA задач с разветвляюшимся алгоритмом.

Цель:

Ø Научится составлять программы с разветвляюшимся алгоритмом,

Ø Изучить оператор условного перехода If…Then…Else…End If,

Ø Изучить элемент управления CommandButton (Кнопка).

 

1.A) Написать программу для определения функции f(x).

Б ) Введите сторону квадрата а и радиус круга— . Определите площадь круга и площадь квадрата. Какая из двух фигур (круг или квадрат) имеет большую площадь. Вывести название фигуры и значение площади.

2.А) Словесный алгоритм:

1. Начало

2. Ввод исходных данных: x

3. Расчет по формуле = , если

4. Расчет по формуле = , если

5. Вывод результатов.

6. Конец.

Б) Словесный алгоритм:

1. Начало

2. Ввод исходных данных: r, a

3. Расчет по формуле:

4.Сравнить результаты.

5.Вывести нужный ответ.

6. Конец.

 

Блок-схема:

A)

 

 

 

 

 

 

 

Б)

 

 

 

 

Тексты программ на VBA.

A) Private Sub CommandButton1_Click() 'Объявления переменных Dim f As Single, x As Single, Pi As Single   'Ввод данных x = Val(Cells(3, 3).Value) Pi = 3.14   'Определения функции f(x) If x > 0 And x <= Pi / 4 Then f = (Sin(Pi * x)) ^ 2 + Tan(2 * x) ElseIf x > Pi / 4 And x < Pi / 2 Then f = Exp(x) + Cos(x) End If   'Вывод результатов Cells(6, 3).Value = f   End Sub

Б) Private Sub CommandButton1_Click() 'Обьявления переменных Dim S As Single, S1 As Single, R As Single, a As Single a = Val(Cells(4, 3).Value) R = Val(Cells(4, 2).Value) 'Расчёт площадей S = a ^ 2 S1 = 3.14 * R ^ 2 'Сравнения площадей и вывод результатом If S > S1 Then Cells(5, 2).Value = "Площадь квадрата больше круга.Площадь квадрата равна " & S Else Cells(5, 2).Value = "Площадь круга больше квадрата.Площадь круга равна " & S1 End If     End Sub

 

4. Результаты расчета по программам контрольного примера:

 

А)

 

 

 

 

Б)

 

 

Тестирование программ.

A)

Б)

6. Выводы:

Ø Научился составлять программы с разветвляюшимся алгоритмом,

Ø Изучил оператор условного перехода If…Then…Else…End If,

Ø Изучил элемент управления CommandButton (Кнопка).