Лабораторная работа №1 Линейные алгоритмы. Ввод, вывод информации

Требования к выполнению лабораторной работы

Содержание работы:

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

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

3. Фрагменты экрана с ЭТ и окнами диалога

4. В программе значение одной из переменных должно быть записано в ячейке электронной таблицы.

5. Значение другой переменной задается в программе или вводится с помощью окна-диалога.

6. Все типы переменных и констант, которые используются в программе, должны быть объявлены и отражать смысловое значение переменных или констант.

7. Результат работы программы должен иметь наглядный вид.

8. Для запуска макроса создать кнопку с соответствующей надписью.

Пример №1 Написать программу, которая вычисляет периметр треугольника.

Блок- схема

Определение второй стороны треугольника

Программа

Option Explicit

Sub ПериметрТреугольника()

Dim ВтораяСторона, ТретьяСторона, Периметр As Single

ВтораяСторона = 3.5

ТретьяСторона = InputBox("Введите значение третьей стороны треугольника", "Третья сторона")

Периметр = Cells(1, 4) + ВтораяСторона + ТретьяСторона

MsgBox "Периметр треугольника = " & Периметр

End Sub

Пример №2 Вычислите значение квадратного корня из суммы трех переменных.

Блок-схема

Программа

Option Explicit

Sub КореньКвадратныйИзСуммыТрехПеременных()

Dim ПерваяПеременная, ВтораяПеременная, ТретьяПеременная, Сумма As Single

Dim Корень As Double

ПерваяПеременная = InputBox("Введите значение первой переменной", "Первая Переменная")

ВтораяПеременная = InputBox("Введите значение второй переменной", "Вторая Переменная")

ТретьяПеременная = InputBox("Введите значение третьей переменной", "Третья Переменная")

Сумма = ТретьяПеременная + ВтораяПеременная + ПерваяПеременная

Корень = Sqr(Сумма)

MsgBox "Корень из суммы трех переменных = " & Корень

End Sub

Варианты индивидуальных задач

1. Вычислите значение квадратного корня из суммы трех переменных.

2. Найдите объем пирамиды, основанием которой является ромб.

Примечание

3. Вычислите значение суммы обратных величин трех переменных.

4. Найдите сумму первой и второй переменных и разность первой и третьей переменной.

5. Найти объем цилиндра.

6. Вычислить площадь прямоугольника.

7. Вычислите значение куба, квадрата и обратной величины переменных.

8. Найдите площадь круга по формуле S = R² .

9. Найти расстояние от точки М до начала координат.

10. Найти сторону квадрата, площадь которого равна площади прямоугольника.

11. Найти площадь ромба.

12. Определите произведение трех переменных.

13. Найти гипотенузу треугольника.

14. Найти скорость движения автомобиля , если известны пройденный путь и время .

15. Найти остаток от деления двух действительных чисел.

16. Найти диагональ квадрата.

17. Найти сумму квадратов трех чисел.

18. Вычислить частное двух чисел.

19. Найти среднее арифметическое трех введенных чисел.

20. Найти путь, пройденный пешеходом, если известны скорость и время.

21. Найти произведение трех действительных чисел.

22. Написать программу, вычисляющую радиус круга, если известна площадь круга.

23. Вычислить удвоенное произведение разности двух действительных чисел.

24. Найти разность квадратов двух переменных.

25. Вычислите значение функции Z = 7X + 4Y

26. Вычислите координаты середины отрезка.

27. Вычислите площадь равнобедренной трапеции.

28. Определите расстояние на плоскости между двумя точками.

29. Определите время свободного падения физического тела с высоты.

30. Вычислите высоту равнобедренного треугольника.