ГОТОВЫЕ ДИПЛОМНЫЕ РАБОТЫ, КУРСОВЫЕ РАБОТЫ, ДИССЕРТАЦИИ И РЕФЕРАТЫ

5 программ на VBA
Автор	alexpotter
Вуз (город)	Томск
Количество страниц	13
Год сдачи	2009
Стоимость (руб.)	600
Содержание	Задача 1 Исходные данные Диаметр окружности начинается в точке Ml(xl.yl) и кончается в точке М2(х2,у2) Найти и вывести координаты ее центра Задача 2 Исходные данные Числа XI и Х2 являются корнями приведенного квадратного уравнения Найти и вывести наибольшее из чисел sin(p) и cos(q). где р и q являются ею вторым и третьим коэффициентами Задача 3 Исходные данные Даны векторы у(6) и h(6). состоящие из целых чисел. Найти отношение длин векторов 5*g-h и g+2*h. Задача 4 Исходные данные Даны векторы j(7) и k(8). Если наименьший элемент вектора k больше наибольшего элемента вектора j, то поменять их местами и вывести векторы, иначе вывести скалярное произведение векторов Задача 5 Исходные данные Дана матрица х(3,5), состоящая из целых чисел. Найти суммы элементов каждой строки и вывести матрицу в виде прямоугольной таблицы.
Список литературы	1. Информатика. Базовый курс. / Под ред. С.В. Симоновича. – СПб: Питер. 2006.- 640с. 2. Томас Уорт. Программирование на языке БЕЙСИК. Самоучитель. Машиностроение. 2005.-220 с. 3. Острейковский В.А. Информатика: Учебник для ВУЗов. – М.: Высшая школа. 2005.- 511с. 4. Чернов Б.И. Программирование на алгоритмических языках Бейсик, Фортран, Паскаль М.: Просвещение. 2005.-320 с. 5. Visual Basic / Михаэль Харведсон. – М.: Пресс, 2008. – 575с.
Выдержка из работы	Для нахождения скалярного произведения векторов применяется формула . Минимум и максимум векторов определяется сравнением элементов вектора друг с другом. x(3, 5) = Me.x35 ‘Подсчет суммы строк For i = 1 To 3 xs(i) = 0 For j = 1 To 5 xs(i) = xs(i) + x(i, j) Next j Next i ‘Вывод на экран Me.s1.SetFocus Me.s1.Text