Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

Государственный Комитет Российской Федерации

по Высшему Образованию

Санкт-Петербургский

Государственный Электротехнический Университет «ЛЭТИ»

Кафедра Радиосистем

Пояснительная Записка

к Курсовой Работе по Дисциплине

«Информатика. Основы Программирования»

Вариант №9: «Операции над Матрицами»

Выполнил: студент Чапчаев В.В.

факультет: РТ

уч.группа: № 2142

Проверил: ассистент Аникин А.П.

Санкт – Петербург

2 0 0 3

Условие задачи

Программа работает в текстовом режиме. Пользователь выбирает операцию, вводит с клавиатуры размер матрицы и значения элементов матрицы. Программа выполняет заданную операцию и выводит на экран ее результат. Для реализации в программе предлагаются следующие операции: перемножение двух матриц, транспонирование, вычисление определителя, вычисление обратной матрицы, сложение (вычитание) двух матриц.

Метод решения задачи

После запуска программы, пользователю предлагается выбрать требуемую операцию: нахождение определителя, обратной матрицы, транспонированной матрицы, сложение или вычитание двух матриц, умножение двух матриц. Это производится по средствам ввода пользователем цифры, соответствующей данной операции. Далее следует запрос о размерах данной матрицы (кол-ве строк и столбцов), после ввода которых программа проверяет, чтобы введенные значения не были отрицательными или не превышали допустимых размеров матрицы (в программе – 10х10). В случае, если перечисленные условия не выполняются, на экран выводится сообщение об ошибке, и программа завершает работу. При выполнении условий, пользователю предлагается ввести с клавиатуры исходную матрицу «А» (в программе – MAS1). Ввод производится построчно, для перехода к следующей строке, пользователю необходимо нажать клавишу «ENTER». После того, как число строк становится равным числу, введенному пользователем, ввод матрицы прекращается. Введенная матрица выводится на экран для проверки. Далее следует проверка «пригодности» введенной матрицы к операции, выбранной пользователем, в случае «непригодности» матрицы, на экран выводится сообщение об ошибке, и программа завершает работу. В случае «пригодности» матрицы, над ней производится выбранная операция, после чего на экран выводится сообщение о результате. Если пользователем была выбрана операция, требующая вторую матрицу «В» (в программе – MAS2), пользователю предлагается ввести ее размеры, как и при вводе матрицы «А», далее программа проверяет, возможно ли проведение выбранной операции над матрицами с введенными параметрами. Если операция невозможна, то на экран выводится сообщение об ошибке, и программа завершает работу. Иначе, операция выполняется, и ее результирующая матрица «С» (в программе – MAS3) выводится на экран.

Ввод матриц возможен только с клавиатуры, непосредственно при выполнении программы. Ввод данных «из файла» не предусмотрен, т.к. этот вариант в условии задачи не оговаривается.

Исходные данные и форма их представления

Блок – схема программы

1

Ввод operation

2

Ввод m1

3

Ввод n1

НЕТ

ДА

4

5

6

Operation = 1

Operation = 3

7

Case operation

Operation = 2

Operation = 6

Operation = 4, 5

Подсчет обр.матр.

Вывод det

ДА

НЕТ

ДА

Operation = 5

k :=-1

Текст Программы:

Program MATRIX; {Наименование программы}

Uses CRT;

VAR i1, i2, i3 : integer; {Счетчик строк}

j1, j2, j3 : integer; {Счетчик столбцов}

operation: integer; {Вариант развития программы}

det : real; {Определитель}k: integer; {Рабочая переменная}

{Массивы (матрицы), используемые в программе}

MAS1, {Матрица А}

MAS2, {Матрица В}

MAS3 : array [1..10,1..10] of real; {Матрица С}

BEGIN {Начало программы}

WriteLn ('Что Вы желаете делать с матрицами?');

{Выбор пользователем варианта развития программы}

WriteLn ('Если Вы желаете найти определитель матрицы, нажмите 1');

WriteLn ('Если Вы желаете найти обратную матрицу, нажмите 2');

WriteLn ('Если Вы желаете транспонировать матрицу, нажмите 3');

WriteLn ('Если Вы желаете сложить матрицы, нажмите 4');

WriteLn ('Если Вы желаете вычесть матрицы, нажмите 5');

WriteLn ('Если Вы желаете перемножить матрицы, нажмите 6');

ReadLn (operation); {Занесение выбранного варианта в память}

WriteLn ('Введите кол-во строк исходной матрицы, не более 10');

ReadLn (m1);

WriteLn ('Введите кол-во столбцов исходной матрицы, не более 10');

ReadLn (n1);

If ((1>n1) or (n1>10) or (1>m1) or (m1>10)) {Условия ошибки}

then begin

WriteLn ('ОШИБКА!!!');

Halt;

end

else begin

WriteLn ('Введите исходную матрицу'); {Ввод исходной матрицы}

for i1:=1 to m1 do

for j1:=1 to n1 do Read (MAS1[i1,j1]);

end;

for i1:=1 to m1 do {Вывод исходной матрицы}

begin

for j1:=1 to n1 do

Write (MAS1[i1,j1]);

WriteLn;

end;

Case operation of {Оператор выбора «operation»}

1: begin {Определитель}

if (m1<>n1) then writeLn ('ОШИБКА!!!') {Условие ошибки}

else

begin {Формула определителя}

det:=(MAS1[1,1]*MAS1[2,2]*MAS1[3,3]

+MAS1[2,1]*MAS1[3,2]*MAS1[1,3]

+MAS1[1,2]*MAS1[2,3]*MAS1[3,1])

-(MAS1[3,1]*MAS1[2,2]*MAS1[1,3]

+MAS1[3,2]*MAS1[2,3]*MAS1[1,1]

+MAS1[2,1]*MAS1[1,2]*MAS1[3,3]);

WriteLn ('Opredelitel det=',det); {Вывод определителя}

end;

end;

2: begin {Обратная матрица}

if (m1<>n1) then WriteLn ('ОШИБКА!!!') {Условие ошибки}

else begin

det:=(MAS1[1,1]*MAS1[2,2]*MAS1[3,3] {Определитель}

+MAS1[2,1]*MAS1[3,2]*MAS1[1,3]

+MAS1[1,2]*MAS1[2,3]*MAS1[3,1])

-(MAS1[3,1]*MAS1[2,2]*MAS1[1,3]

+MAS1[3,2]*MAS1[2,3]*MAS1[1,1]

+MAS1[2,1]*MAS1[1,2]*MAS1[3,3]);

if det = 0 then WriteLn ('ОШИБКА!!!') {Условие ошибки}

else begin {Союзная матрица}

for i1:=1 to m1 do

for j1:=1 to n1 do MAS2[i1,j1]:=MAS1[j1,i1];

{Итоговая формула}

for i1:=1 to m1 do

for j1:=1 to n1 do MAS3[i1,j1]:=(1/det)*MAS2[i1,j1];

WriteLn;

WriteLn ('Обратная матрица:');

for i1:=1 to m1 do begin {Вывод обратной матрицы}

for j1:=1 to n1 do

Write (MAS3[i1,j1]);

WriteLn;

end;

end;

end;

end;

3: begin {Транспонирование матрицы}

for i1:=1 to m1 do

for j1:=1 to n1 do MAS2[i1,j1]:=MAS1[j1,i1]; {Формула}

WriteLn ('Транспонированная матрица: ');

for i1:=1 to m1 do begin {Вывод транспонированной матрицы}

for j1:=1 to n1 do

Write (MAS2[i1,j1]);

WriteLn;

end;

end;

4,5: begin {Сложение/вычитание матриц}

{Ввод второй матрицы}

WriteLn ('Введите кол-во строк второй матрицы');

ReadLn (m2);

Writeln ('Введите кол-во столбцов второй матрицы');

ReadLn (n2);

If (n2<>n1) or (m2<>m1)

then WriteLn ('OSHIBKA!!!') {Условие ошибки}

else begin

WriteLn ('Введите вторую матрицу');

for i1:=1 to m1 do

for j1:=1 to n1 do

Read (MAS2[i1,j1]);

end;

for i1:=1 to m1 do {Вывод второй матрицы}

begin

for j1:=1 to n1 do

Write (MAS2[i1,j1]);

WriteLn;

end;

if operation = 4 then k := 1;

if operation = 5 then k := -1;

for i1:=1 to m1 do

for j1:=1 to n1 do

MAS3[i1,j1]:=MAS1[i1,j1]+k*MAS2[i1,j1]; {Итоговая формула}

writeln('Сумма/разность:');

for i1:=1 to m1 do

begin

for j1:=1 to n1 do Write(MAS3[i1,j1]);

WriteLn;

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов реферата