Реферат: Действия над матрицами
💣 👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН
по дисциплине «Инструментальные средства разработки программных средств»
Задание: Реализация действий над матрицами (сложение, вычитание, умножение, обращение, транспонирование)
Технология: Automation, позднее связывание.
Результатом сложения матриц А и В является матрица С элементы которой равны попарной сумме соответствующих элементов матриц А и В.
Результатом вычитания матриц А и В является матрица С элементы которой равны попарной разности соответствующих элементов матриц А и В.
Результатом умножения матриц А и В является матрица С элементы которой равны сумме произведений элементов в соответствующей строке первого множителя и столбце второго.
Но, поскольку мы для расчета используем MS Excel, то умножаем матрицы с помощью доступной нам функции «МУМНОЖ».
Обратная матрица — такая матрица A -1
, при умножении на которую исходная матрица A даёт в результате единичную матрицу E:
Для получения обращенной матрицы используем функцию MS Excel «МОБР».
Результатом транспонирования матрицы А является матрица С, каждый n-ый столбец которой идентичен n-ой строке матрицы А.
А Результат транспонирования матрицы А матрица С .
Для получения транспонированной матрицы средствами MS Excel используем функцию «ТРАНСП».
Рисунок 1. –Схема работы программы.
Для реализации задания используется функция CreateOleObject модуля comobj.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Button1Click(Sender: TObject);
procedure TForm1.Button1Click(Sender: TObject);
StringGrid1.Cells[i-1, j-1]:=IntToStr(random(25));
m:=CreateOLEObject('Excel.Application');
m.WorkBooks[1].WorkSheets[1].Name:='Действия над матрицами';
m.WorkBooks[1].WorkSheets[1].Cells.Item[i,j]:=StringGrid1.Cells[i-1, j-1];
m.WorkBooks[1].WorkSheets[1].Range['E1:E18'].ColumnWidth:=2;
m.WorkBooks[1].WorkSheets[1].Range['E1:E18'].Interior.Color:=RGB(0,0,0);
m.WorkBooks[1].WorkSheets[1].Range['J1:J18'].ColumnWidth:=2;
m.WorkBooks[1].WorkSheets[1].Range['J1:J18'].Interior.Color:=RGB(0,0,0);
m.WorkBooks[1].WorkSheets[1].Range['A6:I6'].Interior.Color:=RGB(0,0,0);
m.WorkBooks[1].WorkSheets[1].Range['A18:I18'].Interior.Color:=RGB(0,0,0);
m.WorkBooks[1].WorkSheets[1].Range['A12:I12'].Interior.Color:=RGB(0,0,0);
m.WorkBooks[1].WorkSheets[1].Range['A5'].Font.Bold:=true;
m.WorkBooks[1].WorkSheets[1].Range['A5'].Font.Size:=18;
m.WorkBooks[1].WorkSheets[1].Range['A5'].Value:='Исходная матрица';
m.WorkBooks[1].WorkSheets[1].Range['A11'].Font.Bold:=true;
m.WorkBooks[1].WorkSheets[1].Range['A11'].Font.Size:=13;
m.WorkBooks[1].WorkSheets[1].Range['A11'].Value:='Результат транспонирования';
m.WorkBooks[1].WorkSheets[1].Range['F5'].Font.Bold:=true;
m.WorkBooks[1].WorkSheets[1].Range['F5'].Font.Size:=13;
m.WorkBooks[1].WorkSheets[1].Range['F5'].Value:='Результат вычитания';
m.WorkBooks[1].WorkSheets[1].Range['F11'].Font.Bold:=true;
m.WorkBooks[1].WorkSheets[1].Range['F11'].Font.Size:=13;
m.WorkBooks[1].WorkSheets[1].Range['F11'].Value:='Результат сложения';
m.WorkBooks[1].WorkSheets[1].Range['A17'].Font.Bold:=true;
m.WorkBooks[1].WorkSheets[1].Range['A17'].Font.Size:=13;
m.WorkBooks[1].WorkSheets[1].Range['A17'].Value:='Результат умножения';
m.WorkBooks[1].WorkSheets[1].Range['F17'].Font.Bold:=true;
m.WorkBooks[1].WorkSheets[1].Range['F17'].Font.Size:=13;
m.WorkBooks[1].WorkSheets[1].Range['F17'].Value:='Результат обращения';
m.WorkBooks[1].WorkSheets[1].Range['A19'].Font.Name:='Times New Roman';
m.WorkBooks[1].WorkSheets[1].Range['A19:J19'].RowHeight:=30;
m.WorkBooks[1].WorkSheets[1].Range['A19:J19'].MergeCells:=true;
m.WorkBooks[1].WorkSheets[1].Range['A19'].Font.Bold:=true;
m.WorkBooks[1].WorkSheets[1].Range['A19'].Font.Size:=13;
m.WorkBooks[1].WorkSheets[1].Range['A19'].Value:='Действия сложения,вычитания умножения производятся между "исходной" и "транспонированной" матрицами.';
m.WorkBooks[1].WorkSheets[1].Range['A19'].Wraptext:=true;
m.WorkBooks[1].WorkSheets[1].Range['A7:D10', EmptyParam].Select;
m.WorkBooks[1].WorkSheets[1].Range['A7:D10', EmptyParam].FormulaArray:='=ТРАНСП(R1C1:R4C4)';
m.WorkBooks[1].WorkSheets[1].Range['F7:I10', EmptyParam].Select;
m.WorkBooks[1].WorkSheets[1].Range['F7:I10', EmptyParam].FormulaArray:='=(R1C1:R4C4)+(R7C1:R10C4)';
m.WorkBooks[1].WorkSheets[1].Range['F1:I4', EmptyParam].Select;
m.WorkBooks[1].WorkSheets[1].Range['F1:I4', EmptyParam].FormulaArray:='=(R1C1:R4C4)-(R7C1:R10C4)';
m.WorkBooks[1].WorkSheets[1].Range['A13:D16', EmptyParam].Select;
m.WorkBooks[1].WorkSheets[1].Range['A13:D16', EmptyParam].FormulaArray:='=МУМНОЖ(R1C1:R4C4;R7C1:R10C4)';
m.WorkBooks[1].WorkSheets[1].Range['F13:I16', EmptyParam].Select;
m.WorkBooks[1].WorkSheets[1].Range['F13:I16', EmptyParam].FormulaArray:='=МОБР(R1C1:R4C4)';
StringGrid5.Cells[j-1, i-13]:=m.WorkBooks[1].WorkSheets[1].Cells.Item[i,j];
StringGrid4.Cells[j-6,i-7]:=m.WorkBooks[1].WorkSheets[1].Cells.Item[i,j];
StringGrid3.Cells[j-6, i-1]:=m.WorkBooks[1].WorkSheets[1].Cells.Item[i,j];
StringGrid2.Cells[j-7, i-1]:=m.WorkBooks[1].WorkSheets[1].Cells.Item[j,i];
StringGrid6.Cells[j-6, i-13]:=m.WorkBooks[1].WorkSheets[1].Cells.Item[i,j];
Рисунок 2.- «Окно вывода результатов действий над матрицами»
3. Корняков В. Н. «Программирование документов и приложений MS Office в Delphi.» —СПб. : БХВ-Петербург, 2005. - 496 с : ил. ISBN 5-94157-458-4
Название: Действия над матрицами
Раздел: Рефераты по информатике
Тип: реферат
Добавлен 15:52:06 25 июня 2011 Похожие работы
Просмотров: 422
Комментариев: 13
Оценило: 2 человек
Средний балл: 5
Оценка: неизвестно Скачать
Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.
Реферат: Действия над матрицами
Курсовая работа: Технологія випробування мікросхеми К155 ЛА7 за категорією К5
40 приемов удовлетворить женщину
Дубровский Сочинение 6 Класс Кратко По Главам
Сочинение Летний Сад Осенью 7
Сочинение: Использование информационно-коммуникационных технологий на уроках математики
Контрольная работа по теме Финансово-экономический анализ салона-парикмахерской 'Престиж'
Эссе На Английском Языке Примеры С Переводом
Реферат по теме Продовольственные ресурсы
Теоретические Методы Научного Исследования Реферат
Теория Государства И Права Как Наука Курсовая
Сочинение по теме Софья Палеолог как феномен в жизни Москвы
Чс Пожары Реферат
Курсовая работа по теме Жанр посвящения в лирике А.А. Ахматовой
Курсовая работа по теме Статистические показатели трудовых ресурсов
Реферат по теме Ценностная структура в развитии человека
Реферат: Реформирование крупных предприятий как основа развития малого бизнеса
Курсовая работа по теме Расчет электропривода
Курсовая работа: Разработка основных разделов организационного проекта корпорации
Реферат: The Transcontinental Railroad Essay Research Paper On
Реферат: Артикул воинский 1715 года. Скачать бесплатно и без регистрации
Контрольная работа: Финансы в международных экономических отношениях
Курсовая работа: Деловая игра как метод активного обучения
Курсовая работа: Коммуникативный метод обучения иностранным языкам