Здесь можно найти учебные материалы, которые помогут вам в написании курсовых работ, дипломов, контрольных работ и рефератов. Так же вы мажете самостоятельно повысить уникальность своей работы для прохождения проверки на плагиат всего за несколько минут.

ЛИЧНЫЙ КАБИНЕТ 

 

Здравствуйте гость!

 

Логин:

Пароль:

 

Запомнить

 

 

Забыли пароль? Регистрация

Повышение уникальности

Предлагаем нашим посетителям воспользоваться бесплатным программным обеспечением «StudentHelp», которое позволит вам всего за несколько минут, выполнить повышение уникальности любого файла в формате MS Word. После такого повышения уникальности, ваша работа легко пройдете проверку в системах антиплагиат вуз, antiplagiat.ru, etxt.ru или advego.ru. Программа «StudentHelp» работает по уникальной технологии и при повышении уникальности не вставляет в текст скрытых символов, и даже если препод скопирует текст в блокнот – не увидит ни каких отличий от текста в Word файле.

Результат поиска


Наименование:


Реферат/Курсовая Действия над матрицами

Информация:

Тип работы: Реферат/Курсовая. Добавлен: 05.06.13. Сдан: 2012. Страниц: 8. Уникальность по antiplagiat.ru: < 30%

Описание (план):


МИНИСТЕРСТВО  ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН 
 
 
 
 
 
 
 
 

КОНТРОЛЬНАЯ РАБОТА 

по дисциплине «Инструментальные средства разработки программных средств» 

На тему: «Действия над матрицами» 
 
 
 
 
 
 
 
 
 
 
 

                                                         Выполнил:
                                                         студент гр.08-ВТ3-3 

                                                         Проверил:
                                                         Преподаватель      
 
 
 
 
 
 

Индивидуальное  задание.
     Задание: Реализация действий над матрицами (сложение, вычитание, умножение, обращение, транспонирование)
     Технология: Automation, позднее связывание.
     Тип (имя) сервера: MS Excel. 

     Формулы расчёта.
         Сложение  матриц.
     Результатом сложения матриц А и В является матрица С  элементы которой равны попарной сумме соответствующих элементов матриц А и В.
 Аij+Bij = Cij

            Вычитание матриц.
     Результатом вычитания матриц А и В является матрица С элементы которой равны попарной разности соответствующих элементов матриц А и В.
     Аij - Bij = Cij
  

                  Умножение матриц.
           Результатом умножения  матриц А и В является матрица  С элементы которой равны сумме произведений элементов в соответствующей строке первого множителя и столбце второго.

 

     Но, поскольку мы для расчета используем MS Excel, то умножаем матрицы с помощью доступной нам функции «МУМНОЖ».
            Обращение матриц.
     Обратная  матрица — такая матрица A-1, при умножении на которую исходная матрица A даёт в результате единичную матрицу E:
    АА-1-1А=Е

При условии  что,аd-bc?0.
      Для получения обращенной матрицы используем функцию MS Excel «МОБР».
            Транспонирование  матриц.
      Результатом транспонирования матрицы А является матрица С, каждый n-ый столбец которой идентичен n-ой строке матрицы А.
А Результат транспонирования матрицы А матрица С .
      Для получения транспонированной матрицы  средствами MS Excel используем функцию «ТРАНСП».  

Схема алгоритма.

 
 
 
 
 

 
 

 

 

 
 
 
 

 
 
 
 
 

                                   Рисунок 1. –Схема работы программы. 
 
 

      Для реализации задания используется функция  CreateOleObject модуля comobj. 

      Исходный  код приложения.
unit Unit1; 

interface 

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,comobj, Grids; 

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    StringGrid4: TStringGrid;
    StringGrid5: TStringGrid;
    StringGrid6: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end; 

var
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject);
var m:OLEvariant;
i,j:integer;
begin
  randomize;
  for i:=1 to 4 do
  for j:=1 to 4 do
  StringGrid1.Cells[i-1, j-1]:=IntToStr(random(25));
m:=CreateOLEObject('Excel.Application');
m.WorkBooks.Add;
m.WorkBooks[1].WorkSheets[1].Name:='Действия над матрицами';
//m.Application.Visible:=true;
for i:=1 to 4 do
for j:=1 to 4 do
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:='Результат сложения';
и т.д.................


Перейти к полному тексту работы


Скачать работу с онлайн повышением уникальности до 90% по antiplagiat.ru, etxt.ru или advego.ru


Смотреть полный текст работы бесплатно


Смотреть похожие работы


* Примечание. Уникальность работы указана на дату публикации, текущее значение может отличаться от указанного.