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

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

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

1. 
   Составить программу, которая спрашивает имя и здоровается с его обладателем, если введённое имя принадлежит автору программы.
   
2. 
   На плоскости расположена окружность радиуса R с центром в начале координат. Ввести заданные координаты точки и определить, лежит ли она на окружности. Результат присвоить символьной переменной. Решить задачу при R=2 для точек с координатами (0; 2), (-1.5; 0.7), (1; 1), (3; 0).
   Считать, что точка с координатами x, y лежит на окружности радиуса R, если
   

3. 
   Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат. Результат присвоить символьной переменной. Задачу решить для точек с координатами (0; 2), (2; 0); (1; 3), (2, 2). Проверку на равенство осуществлять с точностью e = 10^-5.
   
4. 
   Заданы площади круга S₁ и квадрата S₂. Определить, поместится ли квадрат в круге. Задачу решить при 1) S₁ = 70, S₂ = 36.74; 2) S₁ = 0.86, S₂ = 0.64
   
5. 
   Заданы площади круга S₁ и квадрата S₂. Определить, поместится ли круг в квадрате. Задачу решить при 1) S₁ = 3.2, S₂ = 3.5; 2) S₁ = 3.2, S₂ = 4; 3) S₁ = 6, S₂ = 9.
   
6. 
   Написать программу, которая бы спрашивала сокращённое имя, а печатала полное (например, Гриша – Григорий) для трёх Ваших друзей. Ввод незнакомого имени должен вызывать сообщение типа: «Я с Вами не знаком». Необходимые данные задать самостоятельно.
   
7. 
   Составить программу для определения подходящего возраста кандидатуры для вступления в брак, используя следующее соображение: возраст девушки равен половине возраста мужчины плюс 7, возраст мужчины определяется соответственно как удвоенный возраст девушки минус 14. Данные для проверки работы программы задать самостоятельно. (Совет: в начале выполнения программы на экране должен появиться вопрос: «Мужчина или женщина?». Введите МУЖ или ЖЕН. В зависимости от ответа после ввода возраста выводятся соответствующие рекомендации.)
   
8. 
   В киоске продаётся газета стоимостью 40 копеек и журнал стоимостью 1 грн. 50 коп. Составить программу, которая спрашивает о желании покупателя (журнал или газета?), принимает деньги (сумма денег вводится с клавиатуры), печатает причитающуюся сдачу или выдаёт сообщение о недостаточности полученной суммы. Исходные данные задать самостоятельно.
   
9. 
   Составить программу, контролирующую знание закона Ома. Обучаемый вводит формулу закона Ома в строковую переменную, которая далее сравнивается с правильным ответом, хранящимся в строковой константе.
   (Совет: перед вводом формулы на экране должно появиться точное указание о том, в каком виде и с использованием каких обозначений нужно осуществлять ввод формулы. Например, такое: «Формулу вводить без пробелов. Использовать обозначения: I – сила тока, U – напряжение, R – сопротивление. Выразить I через U и R.» )
   
10. 
    Написать программу вычисления значения функции
    
    
11. 
    Написать программу выбора наименьшего из трёх чисел. Исходные данные задать самостоятельно. Числа должны вводиться с клавиатуры. Результат вывести в виде: «Наименьшее из чисел …, …, … - число …».
    
12. 
    Написать программу выбора наибольшего из трёх чисел. Исходные данные задать самостоятельно. Числа должны вводиться с клавиатуры. Результат вывести в виде: «Наибольшее из чисел …, …, … - число …».
    
13. 
    Н
    аписать программу вычисления значения функции
    
14. 
    Логической переменной b присвоить значение true, если числа x и y равны, и значение false иначе. X и y вводить с клавиатуры, результат вывести в виде: «Утверждение, что x = y - … (вместо многоточия подставляется false или true)» .
    
15. 
    Даны числа a₁, b₁, c₁ и a₂, b₂, c₂. Определить точки пересечения прямых, описываемых уравнениями a₁x + b₁y = c₁ и a₂x + b₂y = c₂ , либо сообщить, что прямые совпадают, не пересекаются или вовсе не существуют. Исх. д. задать самостоятельно.
    
16. 
    Даны числа a, b и c (a  0). Найти вещественные корни уравнения ax⁴ + bx² + c = 0. Если корней нет, то сообщить об этом. Исходные данные задать самостоятельно.
    
17. 
    Найти корни квадратного уравнения ax² + bx + c = 0, где а  0. Исходные данные задать самостоятельно. Учесть, что если а = 1 или дискриминант (D) = 0, то существует только один корень уравнения, если D < 0, то вещественных корней нет.
    
18. 
    Даны произвольные числа a, b и c. Определить, можно ли построить треугольник с такими длинами сторон. Если треугольник прямоугольный, равнобедренный или равносторонний, то сообщить об этом. Исходные данные ввести с клавиатуры.
    
19. 
    Для заданного числа a найти корень уравнения f(x) = 0, где
    Исходные данные выбрать самостоятельно.
    

20. 
    Н
    аписать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.
    
21. 
    Н
    аписать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.
    
22. 
    Написать программу вычисления значения функции

    Исходные данные выбрать самостоятельно.

    
    
23. 
    Н
    аписать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.
    
24. 
    Написать программу вычисления значения функции
    
    
    

25. 
    Написать программу вычисления значения функции
    
    
    

26. 
    Написать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.
    
27. 
    Написать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.
    
28. 
    Написать программу вычисления значения функции

    Исходные данные выбрать самостоятельно.

    
    
29. 
    Написать программу вычисления значения функции

    Исходные данные выбрать самостоятельно.

    
    
30. 
    Н
    аписать программу вычисления значения функции
    Исходные данные выбрать самостоятельно.
    

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

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

5. 
   Наберите текст программы, оформив его в виде процедуры:
   Sub Имя_процедуры ()
   … (текст программы)
   End Sub
   Предусмотрите вывод исходных данных и результата в ячейки рабочего листа Excel.
   
6. 
   Сохраните рабочую книгу Excel в своём каталоге на сервере как файл пр18.xls, покажите работу преподавателю и выключите компьютер.
   

Задача № 1.

Область определения функции Y: x  ]-;0[  ]0;1[  ]1;  [.

Начало

Да

Да

Нет

Y=(Sin(x))^3


X0 And X1
С
оответственно, блок - схема алгоритма решения задачи выглядит следующим образом:

Ввод X

1. 
   Начало.
   
2. 
   Ввод значения переменной X.
   
3. 
   Если Х < 0, то значение переменной Y вычисляется по формуле: Y = (Sin(x))^3, после чего – переход к пункту 5 (печать Y).
   
4. 
   Если X > 0, то значение переменной Y будет вычисляться по формуле: Y = Exp(x) / (x-1). Но функция Y(x) = Exp(x) / (x-1) не определена в точке X = 1. Кроме этого, по условию, функция Y(x) не определена в точке X = 0. Поэтому, если X  1 и X  0, Y рассчитывается по вышеуказанной формуле ( Y = Exp(x) / (x-1) ) и переход к пункту 5. Иначе выводится сообщение «В этой точке функция Y не определена», после этого – переход к пункту 6 (конец программы).
   
5. 
   Вывод на экран значения Y.
   
6. 
   Конец.
   

Метка нужна для того, чтобы не появлялось сообщение X = … Y = … в том случае, когда функция Y не определена.

З
адача № 2.

Рисунок 2.