12. Пример решения задачи

1. Условие задачи.

Дан круглый прямой цилиндр с радиусом основания R и высотой H. Вычислить полную поверхность цилиндра по формуле: .

2. Математическая постановка задачи.

2.1. Принятые обозначения:

S – площадь поверхности цилиндра;

R – радиус основания;

H – высота цилиндра.

2.2. Исходные данные: R, H.

2.3. Зависимости необходимые для решения задачи:

(1)

2.4. Ограничения: R>0; H >0.

2.5. Найти: S.

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

Блок-схема алгоритма решаемой задачи представлена на рис. 5.

Рис. 5. Блок-схема алгоритма

4. Таблица соответствия.

Имя математической переменной	Идентификатор в программе
R	R
H	H
S	S

5. Листинг программы.

Option Explicit

' Лабораторная работа №1

'Решение задач с линейным алгоритмом

'Выполнил студент гр. 416 Иванов И.С.

'Вычисление площади цилиндра S

Public Sub Cilindr()

Const Pi = 3.14 ' объявление константы

Dim R, H, S As Single 'объявление переменных

'Ввод значения переменной H

H = Val(InputBox("Введите значение высоты цилиндра", "Ввод данных"))

'Ввод значения переменной R

R = Val(InputBox("Введите значение радиуса цилиндра", "Ввод данных"))

S = 2 * Pi * R * (R + H) 'вычисление значения площади

Range("B2").Value = "Высота цилиндра H=" 'Вывод в ячейку B2 подсказки

Range("C2").Value = H 'Вывод в ячейку С2 значения переменной H

Range("B3").Value = "Радиус цилиндра R=" 'Вывод в ячейку B3 подсказки

Range("C3").Value = R 'Вывод в ячейку С3 значения переменной H

Range("B4").Value = "Площадь цилиндра S=" 'Вывод в ячейку B4 подсказки

Range("C4").Value = S 'Вывод в ячейку С4 значения переменной S

End Sub

6. Результаты выполнения программы.

Результаты выполнения программы показаны на рис. 6.

	A	B	C
1
2		Высота цилиндра H=	34,56
3		Радиус цилиндра R=	12,5
4		Площадь цилиндра S=	3694,209961

Рис. 6. Результаты выполнения программы

На примере решенной задачи, рассмотрим подробнее принцип перехода от блок-схемы алгоритма к тексту программы. Как уже говорилось выше, каждому графическому примитиву блок-схемы алгоритма отводится определенная функция и соответственно реализуется последняя своим оператором языка VBA. На рис. 7 приведена схема, отображающая связь между графическими примитивами и операторами языкаVBA, на примере решенной задачи.

13. Содержание отчета

1. Номер, тема и цель лабораторной работы.

2. Краткие теоретические сведения:

2.1. Элементы языка VBA.

2.2. Строительные блоки программы.

2.3. Работа с переменными, константами.

2.4. Работа с операторами, выражениями и функциями.

2.5. Назначение редактора Visual Basic;

2.6. Окна редактора Visual Basic. Их назначение;

2.7. Процесс ввода\вывода данных;

2.8. Запуск программы на выполнение.

3. Этапы решения задачи:

3.1. Условие задачи;

3.2. Математическая постановка;

3.3. Блок-схема алгоритма;

3.4. Таблица соответствия переменных.

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

5. Распечатка результатов работы программы.

		Начало процедуры		Public Sub Cilindr()
		Объявление переменных используемых в процедуре		Dim R, H, S As Single
		Ввод переменных R, H (список указан в блоке)		H = Val(InputBox("Введите H"))
				R = Val(InputBox("Введите R"))
		Присвоить переменнойS значение выражения		S = 2 * Pi * R * (R + H)
		Вывод переменных R, H,S (список указан в блоке)		Range("C2").Value = H
				Range("C3").Value = R
				Range("C4").Value = S
		Конец процедуры		End Sub

Рис. 7. Соответствие блок-схемы операторам в программе