8. основы программирования на языке Visual Basic for Applications

Практическая работа № 19

• 
  Ответы на вопросы, поставленные в пунктах описания последовательности выполнения работы.
  
• 
  Блок-схема алгоритма и текст программы.
  
• 
  Выводы по работе (что изучили, чему научились).
  

1. 
   Зависимость пройденного телом пути S от времени t описывается формулой:
   

Найти пройденный телом путь при a = 10,6 м/c, b = 3,04 м/c², с = 0,047 м/c³, t = 1,28 c. Вывести на экран: «Путь S = <результат> м»

2. 
   Найти натяжение Т каната, перекинутого через блок, если на концах каната подвешены грузы с массами m₁ и m₂. Зависимость T от m₁ и m₂ представлена в виде: Т = 2 m₁ m₂ g / (m₁ + m₂), где g – ускорение силы тяжести. Задачу решить при m₁ = 100 кг, m₂ = 55,5 кг, g = 9,81 м/с². Вывести на экран результат вычисления с пояснительной надписью «Натяжение каната».
   
3. 
   Фактический объём выполненных строительно-монтажных работ составил 5432,8 тыс. грн., при этом плановое задание оказалось перевыполненным на 1,5 %. Вычислите объём планового задания.
   
4. 
   Цена товара - 850 грн. В неё входит НДС – 20 % от стоимости товара. Определите стоимость товара без НДС.
   
5. 
   Определить момент инерции J однородного цилиндра с радиусом R и массой m относительно оси вращения, если m = 5,23 кг, R = 0,2 м.
   

6. 
   Определить радиус однородного шара, если его масса m = 5,23 кг, а момент инерции J = 1,410^-2 кгм².
   

7. 
   Определить внутренний и внешний радиусы полого цилиндра, если его масса m = 5,23 кг, а момент инерции J = 1,4 10^-2 кгм².
   

Исходные данные и результат вычисления вывести на печать.

8. 
   Найти x = lg y, если y = at² + bt + c; a = 1,04 ; b = 3,785; c = 12,76; t = 100,21. Исходные данные и результат вычисления вывести на печать.
   
9. 
   П
   ористость грунта определяют по формуле:
   

Найти пористость грунта при следующих данных лабораторного анализа: _об = 1,95 кг/м³; _уд = 2,64 кг/м³; W = 22 %.

10. 
    Высота фундамента определяется по формуле h = (b – b₀)/2tg, где b, b₀ – параметры ширины фундамента,  - угол, зависящий от соотношения h, b, b₀. Решить задачу при b = 180 см, b₀ = 64 см,  = 30. Результат вычисления вывести на печать, указав размерность.
    
11. 
    При настилке пола из керамических квадратных плиток, укладываемых по диагонали, число треугольных плиток, укладываемых у фризового ряда, определяется по формуле n = L /(1,41a+2b), где L – длина стороны фриза; a – длина стороны квадратной плитки; b – ширина шва между плитками. Решить задачу при L = 5230 мм, a = 50 мм, b = 1,5 мм. Учесть, что n – целое число.
    
12. 
    Для приготовления известково-цементного состава необходимо A% известкового теста, B% белого цемента, С% поваренной соли, D% пигмента, остальное составляет вода. Найти необходимое количество воды W [кг] для приготовления Q [кг] состава. Задачу решить при A = 20,2; B = 8,8; C = 0,7; Q = 90.
    
13. 
    Для приготовления 5 кг масляно-окрашивающего состава потребовалось по 1,5 кг масляной эмульсии и растворителя. Остальное составила краска густотёртая. Составить программу для определения процентного содержания краски. Вывести на печать в первой строке надписи «Эмульсия», «Растворитель», «Краска», «Состав», во второй строке - массу составляющих и состава в кг, в третьей строке - надпись «Краска составляет», далее - результат в процентах.
    
14. 
    Используя теорему синусов (стороны треугольника пропорциональны синусам противоположных углов), найти стороны треугольника a, b, c, если два его угла соответственно равны 30⁰ и 40⁰, а радиус окружности, описанной около этого треугольника, равен 5 см. Учесть, что в теореме синусов каждое из отношений равно диаметру описанной около треугольника окружности :
    

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

15. 
    Найти площадь треугольника, стороны которого равны 5, 6, 7 см. Примечание : использовать формулу Герона: , где a, b, c - стороны треугольника, р – полупериметр:
    
16. 
    Найти гипотенузу прямоугольного треугольника, если его катеты равны 3 и 5 см. (Использовать теорему Пифагора).
    
17. 
    В прямоугольном треугольнике катет равен другому катету, умноженному на тангенс угла, противолежащего первому катету: a = b tg. Найти стороны прямоугольного треугольника, если один из катетов равен 6 см, а угол, ему противолежащий, равен 40⁰.
    
18. 
    На плоскости находятся две точки А и В с координатами А(х₁; у₁) и В(х₂; у₂). Найти расстояние d между ними, если d²=(x₂-x₁)²+(y₂-y₁)². Задачу решить для х₁=5см; у₁=3; х₂=9; у₂=6.
    
19. 
    Уравнение окружности с центром в точке А₀(a,b) и радиусом R имеет вид (х-а)²+(у-b)²=R². Найти координату y точки В, если а=3; b=2,5; R=2,8; x=5 и y
20. 
    Объём усеченной пирамиды вычисляется по формуле :
    

площади оснований. Найти объём усечённой пирамиды, у которой h=5см; Q₁=18 см²; Q₂=7 см².

15. 
    Объем конуса вычисляется по формуле : ,
    где R - радиус основания конуса,
    H - высота. Найти длину окружности, лежащей в основании конуса, если его объем V=25 см³, а высота H=7 см.
    
16. 
    Объём шара равен , где R - радиус шара. Найти радиус шара, если его объём равен V=30 см³.
    
17. 
    Боковое ребро правильной треугольной пирамиды равно а и составляет с плоскостью основания угол . В эту пирамиду вписан цилиндр с квадратным осевым сечением. (Основание цилиндра лежит в плоскости основания пирамиды). Объём этого цилиндра можно найти по формуле :
    

Определить боковое ребро а пирамиды, если угол =1,2 радиана, V=40 см³.

15. 
    Даны две точки А(-1; 2; 5) и В(7; -4; 8). Найти расстояние между А и В по формуле:
    .
    Результат округлить до 0,1.
    

1. 
   Выделите исходные данные для решения задачи.
   
2. 
   Представьте задачу в виде формул, соотношений и ограничений.
   
3. 
   Р
   азработайте алгоритм решения задачи. В данной работе он будет иметь вид, изображенный на рис.1.
   
4. 
   Запустите Excel, откройте окно редактора VBA для написания программы.
   

• 
  Выполните команду: [Сервис][Макрос][Редактор Visual Basic], затем [Вставка][Модуль].
  

5. 
   Наберите текст программы, оформив его в виде процедуры:
   Sub Имя_процедуры ()
   … (текст программы)
   End Sub
   Предусмотрите вывод исходных данных и результата в ячейки рабочего листа Excel.
   
6. 
   С помощью панели инструментов «Формы» на листе «Лист 1» создайте кнопку с надписью «Старт» и назначьте ей макрос, в качестве которого используйте ранее созданную процедуру.
   
7. 
   С помощью макрорекордера создайте макрос, выполняющий очистку рабочего листа.
   

• 
  Выполните команду [Сервис][Макрос][Начать запись].
  
• 
  В диалоговом окне «Запись макроса» укажите имя макроса («Очистка»), можете задать сочетание клавиш, которое будет вызывать этот макрос, нажмите кнопку «OK».
  

8. 
   Нажмите кнопку «Выделить всё», затем – клавишу «Delete».
   
9. 
   Остановите запись макроса, нажав соответствующую кнопку или выполнив команду [Сервис][Макрос][Остановить запись].
   
10. 
    С помощью панели инструментов «Формы» на листе «Лист 1» создайте кнопку с надписью «Очистить» и назначьте ей только что записанный макрос.
    
11. 
    Просмотрите текст записанного макроса с помощью команды [Сервис][Макрос][Макросы][Изменить].
    
12. 
    Выполните макросы с помощью созданных кнопок.
    
13. 
    Сохраните рабочую книгу Excel в своём каталоге на сервере как файл пр17.xls, покажите работу преподавателю и выключите компьютер.
    

Векторы и имеют длины, соответственно равные 70 и 40 единиц и образуют угол в 30⁰. Найти:

б) скалярное произведение векторов по формуле:

Ответ округлить до 0,01.
Решение:

1. 
   a = 70,
   

f = 30.

2. 
   V = a * b * sin (f * 3.14 / 180)
   Sk = a * b * cos (f * 3.14 / 180)
   
3. 
   
   

4. 
   Текст программы: