ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО
ОБРАЗОВАНИЮ
Государственное образовательное
учреждение высшего профессионального образования
«Нижегородский
государственный университет им. Н.И. Лобачевского»
Экономический факультет
Кафедра Экономической
информатики
Отчёт
по дисциплине
«Информационные технологии»
Работу выполнила студентка
729 группы д/о
Кудреватых Валерия Евгеньевна
Нижний Новгород 2009
Задача 1
Просуммировать
элементы столбцов заданной матрицы размером mхn. Результат получить в
одномерном массиве размером n.
Способ 1.
Решим данную задачу с помощью задания формул и создания макросов.

Sub
МакросМассив()
'
МакросМассив Макрос
' Макрос
записан 07.07.2009 (Gddess)
Range("A1").Select
ActiveCell.FormulaR1C1
= "=INT(10*RAND()-2)"
Range("A1").Select
Selection.AutoFill
Destination:=Range("A1:C1"), Type:=xlFillDefault
Range("A1:C1").Select
Selection.AutoFill
Destination:=Range("A1:C4"), Type:=xlFillDefault
Range("A1:C4").Select
Range("E1").Select
ActiveCell.FormulaR1C1
= "=SUM(RC[-4]:R[3]C[-4])"
Range("F1").Select
ActiveCell.FormulaR1C1
= "=SUM(RC[-4]:R[3]C[-4])"
Range("G1").Select
ActiveCell.FormulaR1C1
= "=SUM(RC[-4]:R[3]C[-4])"
End Sub
Способ 2.

Private Sub CommandButton1_Click()
Set List =
Worksheets("Лист1")
Dim str As
String ‘ объявление массива
n = 9
‘количество столбцов
m = 4 ‘количество
строк
ReDim A(1 To
n, 1 To m) ‘указание размерности
For i = 1 To
n
For j = 1 To
m
A(i, j) =
Int(Rnd * 10)
Cells(i + 1,
j) = A(i, j)
Next j
Next i
ReDim b(1 To
m)
For j = 1 To
m
For i = 1 To
n
Sum = Sum +
A(i, j)
Next i
b(j) = Sum
Sum = 0
Next j
str = "
"
For j = 1 To
m
str = str +
CStr(Format(b(j), "Fixed")) + " "
Cells(i, j +
5) = b(j)
Next
End Sub
Private Sub
CommandButton3_Click()
Unload Me
End Sub
Способ 3.
Решим задачу
с использованием форм.
Private Sub
CommandButton1_Click()
Dim str As
String
n = 3
m = 4
ReDim A(1 To
n, 1 To m)
ReDim b(1 To
m)
For i = 1 To
n
For j = 1 To
m
A(i, j) =
Int((10 * Rnd) - 5)
Next j
Next i
str = "
"
For i = 1 To
n
For j = 1 To
m
str = str +
CStr(Format(A(i, j), "Fixed")) + " "
Next
Next
'Выведем
результат
UserForm1.Label4.Caption = str
For j = 1 To
m
For i = 1 To
n
Sum = Sum +
A(i, j)
Next i
b(j) = Sum
Sum = 0
Next j
str = "
"
For j = 1 To
m
str = str +
CStr(Format(b(j), "Fixed")) + " "
Next
UserForm1.Label3.Caption
= str
End Sub
Private Sub
CommandButton2_Click()
Unload Me
End Sub

Задача 2
Нормировать вектор
и найти его длину. Формула

Способ 1.
Решим данную задачу с помощью задания формул и создания макросов.

Sub Макрос1()
'' Макрос1
Макрос
' Макрос
записан 06.12.2009 '
Range("A1").Select
ActiveCell.FormulaR1C1
= "=INT(10*слчис()-4)"
Range("A1").Select
ActiveCell.FormulaR1C1
= "=INT(10*RAND()-2)"
Selection.AutoFill
Destination:=Range("A1:E1"), Type:=xlFillDefault
Range("A1:E1").Select
ActiveCell.FormulaR1C1
= _
"=SQRT(R[-1]C^2+R[-1]C[1]^2+R[-1]C[2]^2+R[-1]C[3]^2+R[-1]C[4]^2)"
Range("A3").Select
ActiveCell.FormulaR1C1
= "=R[-2]C/R[-1]C"
Selection.AutoFill
Destination:=Range("A3:E3"), Type:=xlFillDefault
Range("A3:E3").Select
Range("A3").Select
ActiveCell.FormulaR1C1
= "=R[-2]C/R[-1]C1"
Selection.AutoFill
Destination:=Range("A3:E3"), Type:=xlFillDefault
Range("A3:E3").Select
Range("E3").Select
End Sub
Способ 2
Private Sub
CommandButton1_Click()
Set List =
Worksheets("Лист2")
n =
List.Cells(1, 2)
Dim Str As
String
ReDim a(1 To
n) ‘ указание размерности
ReDim c(1 To
n) ‘указание размерности
For i = 1 To
n
a(i) =
Int((10 * Rnd) - 5)
List.Cells(2,
i + 1) = a(i)
Next i
'najti dlinu
vektora
Sum = 0
For i = 1 To
n
Sum = Sum +
a(i) ^ 2
Next i
a1 = Sqr(Sum)
'Выведем
результат
List.Cells(3,
2) = a1
For i = 1 To
n
c(i) = a(i) /
a1
List.Cells(4,
i + 1) = c(i)
Next i
End Sub

Способ 3
Решим задачу
с использованием форм.
Private
Sub CommandButton1_Click()
n =
UserForm2.TextBox6
Dim Str As
String
ReDim a(1 To
n)
ReDim C(1 To
n)
For i = 1 To
n
a(i) =
Int((10 * Rnd) - 5)
Str = Str +
CStr(a(i)) + " "
Next i
'Выведем в
форму в строчку
UserForm2.Label4.Caption
= Str
'najti dlinu
vektora
Sum = 0
For i = 1 To
n
Sum = Sum +
a(i) ^ 2
Next i
a1 = Sqr(Sum)
'Выведем
результат
UserForm2.Label2.Caption
= Format(a1, "##.###")
Str =
""
For i = 1 To
n
C(i) = a(i) /
a1
Str = Str +
CStr(Format(C(i), "Fixed")) + " "
Next i
UserForm2.Label3.Caption
= Str
End Sub
Private Sub
CommandButton2_Click()
For i = 1 To
n
C(i) = a(i) /
a1
Next i
UserForm2.Label3.Caption
= C(i)
End Sub
Private Sub
CommandButton3_Click()
Unload Me
End Sub

Другие работы по теме:
Урок путешествие в мир веществ
Цель урока: закрепить и обобщить знания учащихся по изученной теме, развивать умение применять полученные знания при составлении формул бинарных соединений по валентности и определении валентности атомов химических элементов по формулам бинарных соединений, а также при проведении вычислений по химическим формулам, составлении графических формул и изготовлении моделей молекул бинарных соединений;
Шерсть
Химических формул шерсть и натуральный шелк не имеют. При сгорании шерсть и натуральный шелк горят медленно с запахом жженых волос, образуя шарик черного цвета, который растирается в порошок.
Расчет усилителя на биполярном транзисторе
Расчетно-графическая работа по курсу электроники. Расчет однокаскадного усилителя. Вариант №25. Задание: Требуется рассчитать однокаскадный усилитель на биполярном транзисторе, схема которого приведена ниже. В этой схеме тип транзистора определяется полярностью заданного напряжения.
Замечательное уравнение кинематики
В предлагаемой статье рассмотрена возможность расширения сферы применения кинематических уравнений для решения задач механики. Показана возможность переноса метода составления простейших уравнений движения.
Обратное дискретное преобразование Лапласа
Решетчатая функция как результат временного квантования непрерывного сигнала. Ее определение по изображению при помощи формул обратного дискретного преобразования Лапласа, с помощью разложения на простые дроби, способом разложения в степенной ряд.
Настройка текстового редактора MS Word
Панель инструментов "Рисование". Параметры импорта и открытия документов. Режим отображения комбинаций клавиш в контекстных подсказках. Параметры сохранения файлов, автосохранение. Параметры автозамены.
Анализ алгоритма вируса
На мой взгляд, наиболее удобным для хранения и анализа вируса объектом является файл, содержащий его (вируса) тело. Как показывает практика, дляанализа
Макросы в C++
Как было замечено, почти каждый макрос проявляет свой изъян или в языке, или в программе. Если вы хотите использовать макросы, прочитайте, пожалуйста, вначале очень внимательно руководство по вашей реализации C препроцессора.
Использование макросов для программирования в MS ACCESS
Постановка задачи. Использование макросов в конкретном приложении предлагается рассмотреть на примере следующей задачи. При открытии базы данных "АРМ FORMSNAVIGATOR 1.0" сначала на экран выводится приглашение к работе и затем открывается основное окно навигатора.
Решение задачи с помощью программ Mathcad и Matlab
Моделирование движения заряженной частицы, падающей вертикально вниз на одноименно заряженную пластину, с помощью программ Mathcad и Matlab. Построение графика зависимости высоты, на которой находится точка, от времени и скорости движения этой частицы.
Решение задач оформление экономической документации
Режим структуры используется для организации документов большого объема, которые состоят из оглавления, разделов и подразделов различных уровней. Данный режим - это представление документа, показывающее его структуру. Перемещение фрагментов текста.
Анализ макросов в Microsoft Office Word 2007
Изучение понятия, видов и методов создания стандартных макросов Microsoft Office Word - набора инструкций, которые сообщают программе, какие действия следует выполнить, чтобы достичь определенной цели. Функции макрорекордера. Редактирование макросов.
Создание форм в Microsoft Access 2003
Методы создания главной кнопочной формы с целью навигации по базе данных, так как она может использоваться в качестве главного меню БД. Создание подчиненных кнопочных форм: отчеты, формы, запросы. Элементы кнопочной формы запроса "Успеваемость студентов".
Управление подключением макросов в приложениях Office
Приложения Office (начиная с 2000) имеют три уровня безопасности для управления загрузкой макросов, а также возможность использования цифровой подписи. С помощью этих механизмов можно более гибко управлять режимами загрузки.
Решение практической задачи на паскале
ГОУ ВПО «Московский государственный открытый университет» Чебоксарский политехнический институт (филиал) Кафедра информационных технологий и программирования
Вставка и редактирование формул
Лабораторная работа №6. Вставка и редактирование формул Что осваивается и изучается? Вызов формульного редактора Equation Editor Ввод и редактирование математических формул
Отчет по циклу лабораторных работ
Федеральное агентство по образованию Государственное образовательное учреждение высшего профессионального образования «ТОМСКИЙ ПОЛИТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»
Методика создания структуры базы данных на персональном компьютере
Лабораторная работа № 1 Тема: Создание таблиц и просмотр содержимого базы данных Цель работы: Освоение методики создания структуры базы данных на персональном компьютере. Получение практических навыков ввода информации и просмотра содержимого таблицы базы данных.
Создание макросов в т.р. Word
Стельмашук Н., Б-39 Отчет по лабораторной работе № 3 Тема: Создание макросов в т.р. Word. Задание: Создание макроса для оформления шаблона документа blank.dot
Назначение и возможности Excel
Введение Множество задач, которые предстоит решать фирмам и предприятиям, носят учетно-аналитический характер и требуют табличной компоновки данных с подведением итогов по различным группам и разделам данных, например при составлении баланса, справок для налоговых органов, возможных финансовых отчетов.
Базы данных и знаний
1. Нормализация исходного отношения. 2. Разработка программ создания таблиц; формы для ввода данных в таблицу. 3. Создание отчётов. 1.Нормализация исходного отношения .
Информатика. Тестовые задания. Кузнецов Chapter3
Часть 3. Тестовые задания по теме Моделирование — это: процесс замены реального объекта (процесса, явления) моделью, отражающей его существенные признаки с точки зрения достижения конкретной цели;
Создание макросов
Запись макроса При записи макроса все необходимые действия записываются программой записи макроса. Перемещение по ленте не включается в записанные шаги.
ГИА алгебра 2009 кодификатор
Государственная (итоговая) аттестация выпускников IX классов общеобразовательных учреждений 2009 г. (в новой форме) по АЛГЕБРЕ Кодификатор элементов содержания по алгебре
ЕГЭ по информатике и ИКТ 2012
Демонстрационный вариант ЕГЭ 2012 г. ИНФОРМАТИКА и ИКТ, 11 класс. (2012 - 15 / 15) Часть 1 При выполнении заданий этой части в бланке ответов № 1 под номером выполняемого Вами задания (А1–А13) поставьте знак «Ч» в клеточке, номер которой соответствует номеру выбранного Вами ответа.
Принципи побудови формальних теорій
Реферат на тему: Принципи побудови формальних теорій Математична логіка як самостійний розділ сучасної математики сформувався відносно нещодавно - на рубежі дев’ятнадцятого і двадцятого століть. Виникнення і швидкий розвиток математичної логіки були пов’язані з так званою кризою основ (засад) математики, одним з проявів якої є відомі парадокси або антиномії канторівської теорії множин.