Информатика и выч. техника \ Информатика

Основы и принципы работы в VBA. Часть 1: Методические указания к выполнению лабораторных работ, страница 4

Задание  1.

Разработать программу расчета скорости V,  км/ч,   движения локомотива в зависимости от частоты вращения n, 1/с, тяговых электродвигателей и передаточного коэффициента M тягового редуктора:

,

где D – диаметр колеса локомотива, D = 1,050 м.

Для грузовых тепловозов коэффициент М равен 4,41, для пасса-
жирских – 2,32.

Выполнить расчеты при n = 40, 50, 60 1/c.

Программа вычислений имеет вид:

Option Explicit

Sub VA ( )

DIM  D As Single, M  As Single, N As Single, V As Single

D=Cells(5,2)

М= Val(InputBox("Передаточный коэффициент М"))

N= Val(InputBox("Частота вращения n (1/с)"))

V=11.28*D*N/M

MsgBox("Скорость движения V=" & V)

End Sub

При написании строк программы необходимо использовать отступы,это является основой создания понятного программного кода.

Ввод значения диаметра колеса локомотива D выполнить считыванием данных из ячейки В5 листа рабочей книги Excel (рис. 2.1) с помощью оператора Cells().

            Оформление ввода значений представлено на рис. 2.1.

 


Задание  2.

Разработать ГСА и программу вычисления значения функции при заданных значениях аргументов и сравнить результат с ответом (табл. 2.1).

В программе необходимо:

1) ввод данных осуществить с помощью  оператора  присваивания,  вывод значений выражений – с помощью функции  MsgBox;

2) ввод исходных данных функции осуществить с помощью оператора InputBox, вывод результата расчета –  на рабочий лист Excel;

3) ввод исходных данных осуществить с рабочего листа Excel, вывод результата расчета – на рабочий лист Excel с пояснениями.

Таблица 2.1

Варианты значений функции для вычисления

Номер

варианта

Функции

Исходные

данные

Ответы

1

2

3

4

1

 

z = 35,232;

x = 16,786;

l = 30,358

2

 

z = 0,245;

a = 0,072;

l = –2,567

3

  

z = 1,143; 

R = 0,845;

t = –0,159

Продолжение табл.2.1

1

2

3

4

4

 

x = 8,2;

y = 0,003

 А = – 4,63;

 b = 5,527;

 z = –11,979

5

  

 

 L = 3,927;

 Z = 11,545;

 b = 21,318

6

 

 

 y = 1,048;

 d = 0,116;

 L = 11,434

7

 

 

R = 1,022;

b = 4,904;

z = 3,707

8

 

 

 D = 2,46;

 Z = –1,04;

 y = –0,557

9

 

 

 G = –0,294;

 d = –0,126;

 z = 1,568

Окончание табл. 2.1

1

2

3

4

10

 

 

D = 4,399;

y = 1,867;

b = 7,003

11

   

 

y =  0,894;

z = 2888;

b = 7,968

12

 

R = 3,539;

x = 1,174;

z = 0,549

13

R = 24,504;

  y = 27,49;

  z = 11780

14

а = 4·10-2;

x = 17,6

 R = 16928;

 y = –0,981;

 L = 16,39

15

c = –9,987;

d = –12,23;

b = –12,23

Задание 3.   

Разработать ГСА и программу вычисления значения функции при заданных значениях аргументов и сравнить результат с ответом (табл. 2.2). Ввод данных осуществить с рабочего листа Excel, вывод результата – на рабочий лист Excel с пояснениями.

Таблица 2.2

Задания и значения аргументов для вычисления функций по вариантам

Номер

варианта

Задание: определить и вывести на экран функцию

Исходные данные

Ответ

1

2

3

4

1

  среднее геометрическое чисел A, D, P, если

  

   х = 23,3;
   y = 8,2

3,159

2

  среднее арифметическое чисел А, В и С, если

    

 

   х = 1,17;
   y = 28

7,809

3

  сумму кубов чисел K, L и N, если

    

  х = 2,1;
  а = 7

7,805×
×1016

4

  произведение модулей чисел D, R, K, если

   

 

х = 1,1;
а = 0,93

3,555

5

  разность квадратов чисел A и D, если

 

 

   х = –4,4;
   y = 2,1

–8,091

6

  среднее арифметическое чисел Z, R, Y, если

  

 

   х = 6,3;
   а = 17

4,19× ×1017

Продолжение табл. 2.2

1

2

3

4

7

  целую часть суммы чисел G, I, U, если

 

х = 12;
а = 9,5

17

8

  целую часть разности чисел C, B, если

   

   х = 11;
   а = 10,2

–1

9

   среднее геометрическое чисел K, P, Y, если

          

    

х = 5,3;
а = 2,9;
с = –15

1,522

10

  целую часть произведения чисел A, N, если

   

  х = 12,3;
  b = 15

0

11

  среднее геометрическое чисел W, R, C, если

    

 

х = 10,1;
b = 1,67

2,23

12

  сумму кубов чисел А, В, С, если

       

 

   х = 1,17;
   y = 28

12062

13

  среднее геометрическое чисел K, L и N, если

   

   х = 2,1;
   а = 7

31,83

Окончание табл. 2.2

1

2

3

4

14

  сумму квадратов чисел D, R, K, если

   

 

х = 11;
а = 9,3

625,03

15

  среднее арифметическое чисел A и D, если

  ;

 

   х = –4,4;
   y = 2,1

–0,967

16

  среднее геометрическое чисел Z, R, Y, если

        

 

х = 6,3;
а = 17

909572

17

  произведение модулей чисел A, D, P, если

        

х = 23,3;
y = 8,2

31,51
Скачать файл