Примеры и задания на Visual Basic for Application. Задания для заполнения таблицы расчетными данными. Решение задачи, использующей линейный алгоритм, страница 6

Фабрики	Фонд зар. платы, тыс.руб		Среднесписочная численность рабочих, (чел.)		Индекс заработной платы (гр2/гр4):(гр1/гр3)
	базисный год	отчет-ный год	базис-ный год	отчетный год
	1	2	3	4	5
А	2500	25550	12500	12500
В	2900	3000	13000	12900
Итого	X	X

Вариант 27

Рассчитайте ведомость доходов для железных дорог, а так же общий объем перевозок.

Номер ж/д	Объем перевозок	Доходная ставка за 10 т/км	Средняя дальность перевозок	Сумма доходов (гр2*гр4/10*гр3)
1	2	3	4	5
1010	5800	20,3	400
1011	1200	30,3	500
1012	3500	20,52	640
Итого	X

                 Рассмотрим решение задачи, использующей линейный алгоритм.            

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

Представление алгоритма на естественном языке:

1.  Ввод сторон треугольника

2.  Вычисление периметра треугольника

3.  Вывод результата вычисления

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

Вычисление Р=А+В+С

                                                                                                                          

Ввод  сторон треугольникаr                                        

Программа:

Sub programma()

A =Val(InputBox("Введите сторону   A"))

B = Val(InputBox("Введите сторону   B"))

C = Val(InputBox("Введите сторону   C"))

P = A + B + C

MsgBox "Периметр равен = " & P

End Sub

Создать блок – схему алгоритма и написать программу.                              

Варианты индивидуальных задач по № компьютера.

1.  Вычислите значение переменной  Х ,если  Х равно корню квадратному из суммы чисел  А, В, С.

2.  Найдите объем пирамиды, основанием которой является ромб. Значения высоты h, и  диагоналей ромба d1 и d2 введите самостоятельно.

Примечание       

3.  Введите числа А, В и вычислите С=sinA+cosB      

4.  Найти сумму трех чисел. Результат записать в ячейку А1 ЭТ.     

5.  Найти объем цилиндра по формуле   V = pR²H.  Радиус, основание и высоту ввести.      

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

7.  Составить программу для вычисления значений      х³    и    х¹⁰  ,    используя только 4 операции умножения для введенного значения х.    

8.  Вычислить  функцию куба, квадрата, обратной величины от переменной  А

9.  Определить среднее значение диапазона клеток А1:D4 на  рабочем листе «Лист1».

10.Ввести радиус и найти площадь круга  по формуле   S = pR² .

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

12.Написать программу, запрашивающую у пользователя имя, фамилию, группу.

13.Ввести координаты точки М и найти ее расстояние от начала координат  (радиус - вектор  от точки О (0,0)).

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

15.Найти площадь ромба, если его диагонали равны 10 и 24.

16.Даны 2 переменные. Определить их произведение и вывести результат на экран.