Turbo Paskal 'Операции над матрицами' . Курсовая работа (т). Информатика, ВТ, телекоммуникации.
🛑 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Вы можете узнать стоимость помощи в написании студенческой работы.
Помощь в написании работы, которую точно примут!
Похожие работы на - Turbo Paskal 'Операции над матрицами'
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Нужна качественная работа без плагиата?
Не нашел материал для своей работы?
Поможем написать качественную работу Без плагиата!
Государственный
Комитет Российской Федерации
Вариант №9:
«Операции над Матрицами»
уч.группа: № 2142
Программа работает в текстовом режиме.
Пользователь выбирает операцию, вводит с клавиатуры размер матрицы и значения
элементов матрицы. Программа выполняет заданную операцию и выводит на экран ее
результат. Для реализации в программе предлагаются следующие операции:
перемножение двух матриц, транспонирование, вычисление определителя, вычисление
обратной матрицы, сложение (вычитание) двух матриц.
После запуска программы, пользователю
предлагается выбрать требуемую операцию: нахождение определителя, обратной
матрицы, транспонированной матрицы, сложение или вычитание двух матриц,
умножение двух матриц. Это производится по средствам ввода пользователем цифры,
соответствующей данной операции. Далее следует запрос о размерах данной матрицы
(кол-ве строк и столбцов), после ввода которых программа проверяет, чтобы
введенные значения не были отрицательными или не превышали допустимых размеров
матрицы (в программе – 10х10). В случае, если перечисленные условия не
выполняются, на экран выводится сообщение об ошибке, и программа завершает
работу. При выполнении условий, пользователю предлагается ввести с клавиатуры
исходную матрицу «А» (в программе – MAS1). Ввод
производится построчно, для перехода к следующей строке, пользователю
необходимо нажать клавишу «ENTER». После того, как число
строк становится равным числу, введенному пользователем, ввод матрицы
прекращается. Введенная матрица выводится на экран для проверки. Далее следует
проверка «пригодности» введенной матрицы к операции, выбранной пользователем, в
случае «непригодности» матрицы, на экран выводится сообщение об ошибке, и
программа завершает работу. В случае «пригодности» матрицы, над ней
производится выбранная операция, после чего на экран выводится сообщение о
результате. Если пользователем была выбрана операция, требующая вторую матрицу
«В» (в программе – MAS2), пользователю предлагается ввести
ее размеры, как и при вводе матрицы «А», далее программа проверяет, возможно ли
проведение выбранной операции над матрицами с введенными параметрами. Если
операция невозможна, то на экран выводится сообщение об ошибке, и программа
завершает работу. Иначе, операция выполняется, и ее результирующая матрица «С»
(в программе – MAS3) выводится на экран.
Ввод матриц возможен только с
клавиатуры, непосредственно при выполнении программы. Ввод данных «из файла» не
предусмотрен, т.к. этот вариант в условии задачи не оговаривается.
Исходные данные и форма их
представления
Счетчик строк матриц А, В и С соответственно
Счетчик столбцов матриц А, В и С соответственно
Кол-во строк матриц А, В и С соответственно
Кол-во столбцов матриц А, В и С соответственно
Program MATRIX;
{Наименование программы}
VAR i1, i2, i3 : integer; {Счетчик строк}
j1, j2, j3 : integer; {Счетчик столбцов}
operation: integer; {Вариант развития программы}
det : real; {Определитель}k: integer; {Рабочая переменная}
{Массивы
(матрицы), используемые в программе}
MAS1, {Матрица А}
MAS3
: array [1..10,1..10] of real; {Матрица С}
WriteLn ('Что Вы желаете делать с матрицами?');
{Выбор
пользователем варианта развития программы}
WriteLn ('Если Вы желаете найти определитель матрицы, нажмите 1');
WriteLn ('Если Вы желаете найти обратную матрицу, нажмите 2');
WriteLn ('Если Вы желаете транспонировать матрицу, нажмите 3');
WriteLn ('Если Вы желаете сложить матрицы, нажмите 4');
WriteLn ('Если Вы желаете вычесть матрицы, нажмите 5');
WriteLn ('Если Вы желаете перемножить матрицы, нажмите 6');
ReadLn (operation); {Занесение выбранного варианта в
память}
WriteLn ('Введите кол-во строк исходной матрицы, не более 10');
WriteLn ('Введите кол-во столбцов исходной матрицы, не более 10');
If ((1>n1) or
(n1>10) or (1>m1) or (m1>10)) {Условия ошибки}
WriteLn ('ОШИБКА!!!');
WriteLn ('Введите исходную матрицу'); {Ввод исходной матрицы}
for j1:=1
to n1 do Read (MAS1[i1,j1]);
for i1:=1 to
m1 do {Вывод исходной матрицы}
for
j1:=1 to n1 do
Write
(MAS1[i1,j1]);
Case operation of
{Оператор выбора «operation»}
1: begin {Определитель}
if
(m1<>n1) then writeLn ('ОШИБКА!!!') {Условие
ошибки}
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); {Вывод определителя}
2: begin {Обратная матрица}
if
(m1<>n1) then WriteLn ('ОШИБКА!!!') {Условие ошибки}
det:=(MAS1[1,1]*MAS1[2,2]*MAS1[3,3] {Определитель}
+MAS1[2,1]*MAS1[3,2]*MAS1[1,3]
-(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;
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;
4,5:
begin {Сложение/вычитание матриц}
{Ввод второй матрицы}
WriteLn ('Введите кол-во строк второй матрицы');
Writeln ('Введите кол-во столбцов второй матрицы');
If
(n2<>n1) or (m2<>m1)
then
WriteLn ('OSHIBKA!!!') {Условие ошибки}
WriteLn ('Введите вторую матрицу');
for i1:=1 to m1 do
for j1:=1 to n1 do
Read (MAS2[i1,j1]);
for
i1:=1 to m1 do {Вывод второй матрицы}
for j1:=1 to n1 do
Write (MAS2[i1,j1]);
WriteLn;
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
for j1:=1 to n1 do Write(MAS3[i1,j1]);
WriteLn;
6:
begin {Умножение матриц}
{Ввод второй матрицы}
WriteLn ('Введите кол-во строк второй матрицы');
Writeln ('Введите кол-во столбцов второй матрицы');
If
((1>=m2) or (m2>=10) or (1>=n2) or (n2>=10) {Условие ошибки}
or (n2<>m1)) then WriteLn ('ОШИБКА!!!')
WriteLn ('Введите вторую матрицу');
for i2:=1 to m2 do
for j2:=1 to n2 do Read (MAS2[i2,j2]);
for
i2:=1 to m2 do begin {Вывод второй матрицы}
for j2:=1 to n2 do
Write (MAS2[i2,j2]);
WriteLn;
end;
for
i3:=1 to m3 do
for
j3:=1 to n3 do begin
MAS3[i3,j3] := 0;
for i2:= 1 to m2 do
{Итоговая
формула}
MAS3[i3,j3] :=MAS3[i3,j3] + MAS1[i3,i2] * MAS2[i2,j3];
end;
begin {Вывод произведения}
writeln('Произведение:');
for i3:=1 to m1 do begin
for j3:=1 to n2 do Write (MAS3[i3,j3]);
WriteLn;
end;
1. Операция нахождения определителя:
1)
При появлении на экране меню с выбором операций,
выбираем 1.
2)
На предложение ввести кол-во строк матрицы,
выбираем 3.
4)
Вводим матрицу: æ 1 4 5 ö
5)
Программа выдает ответ: det =
54.
2. Операция нахождения обратной матрицы:
1) При появлении на экране меню с выбором операций, выбираем 2.
2) На предложение ввести кол-во строк матрицы, выбираем 3.
4) Вводим матрицу: æ 1 4 5 ö
5) Программа выдает ответ: æ 1,851*100 9,259*100
1,481*10 ö
ç 7,407*100 5,555*100 1,851*100 ÷
è 9,259*100 1,296*10 7,407*100 ø.
3.
Операция транспонирования
матрицы:
1) При появлении на экране меню с выбором операций, выбираем 3.
2) На предложение ввести кол-во строк матрицы, выбираем 3.
4) Вводим матрицу: æ 1 4 5 ö
5) Программа выдает ответ: æ 1 5 8 ö
1) При появлении на экране меню с выбором операций, выбираем 3.
2) На предложение ввести кол-во строк матрицы, выбираем 3.
4) Вводим матрицу: æ 1 4 5 ö
5) На предложение ввести кол-во строк матрицы, выбираем 3.
7) Вводим матрицу: æ 2 8 10 ö
è 16 2 8 ø.
è 24 3 12 ø.
1) При появлении на экране меню с выбором операций, выбираем 3.
2) На предложение ввести кол-во строк матрицы, выбираем 3.
4) Вводим матрицу: æ 1 4 5 ö
5) На предложение ввести кол-во строк матрицы, выбираем 3.
7) Вводим матрицу: æ 2 8 10 ö
è 16 2 8 ø.
8) Программа выдает ответ: æ -1 -4 -5 ö
1) При появлении на экране меню с выбором операций, выбираем 3.
2) На предложение ввести кол-во строк матрицы, выбираем 3.
4) Вводим матрицу: æ 1 4 5 ö
5) На предложение ввести кол-во строк матрицы, выбираем 3.
7) Вводим матрицу: æ 2 8 10 ö
è 16 2 8 ø.
8) Программа выдает ответ: æ 122 42 106 ö
1) При появлении на экране меню с выбором операций, выбираем 1.
2) На предложение ввести кол-во строк матрицы, выбираем 0.
1) При появлении на экране меню с выбором операций, выбираем 1 (2,
3).
2) На предложение ввести кол-во строк матрицы, выбираем 3.
4) Вводим матрицу: æ 1 4 ö
1) При появлении на экране меню с выбором операций, выбираем 4.
2) На предложение ввести кол-во строк матрицы, выбираем 3.
4) Вводим матрицу: æ 1 4 5 ö
5) На предложение ввести кол-во строк матрицы, выбираем 2.
10.
Четвертый исключительный
случай:
1) При появлении на экране меню с выбором операций, выбираем 6.
2) На предложение ввести кол-во строк матрицы, выбираем 3.
4) Вводим матрицу: æ 1 4 5 ö
5) На предложение ввести кол-во строк матрицы, выбираем 2.
Для
проверки результатов, выдаваемых программой, использовался математический пакет
MathCAD 2001 Professional.
Существенный
недостаток программы в том, что при нахождении обратной матрицы и определителя,
программа может работать только с матрицами, размером не превышающие 3х3. Это
связано со значительным усложнением программы, в случаи необходимости
выполнения вышеперечисленных операций над матрицами большего размера.
При
написании программы использовалась следующая литература:
1)
Фаронов В.В. «TurboPascal 7.0,
начальный курс. Учебное пособие».
3)
Голубев А.Б., Сидоров Ю.Н., Чередниченко А.И.,
Яценко И.В. «Основы программирования на языке Pascal».
4)
Боревич Э.И. «Определители и матрицы».
5)
Гутер Р.С., Резниковский П.Т. «Программирование и
вычислительная математика».
6)
Письменный Д.Т. «Конспект лекций по высшей
математике», 1 часть.
7)
Владимирский Б.М., Горстко А.Б., Ерусалимский Я.М.
«Математика. Общий курс».
Похожие работы на - Turbo Paskal 'Операции над матрицами' Курсовая работа (т). Информатика, ВТ, телекоммуникации.
Курсовая работа по теме Державне регулювання економіки України
Реферат по теме Вальтер Гропиус - архитектор и дизайнер
Курсовая работа: Договор дарения
Курсовая работа по теме База данных 'Аптека'
Понятие И Виды Составов Преступления Курсовая
Доклад по теме С.Ю.Витте
Контрольная Работа По Химии 2 Четверть
Как Заполнить Дневник По Производственной Практике Медсестры
Контрольная Работа По Второму
Курсовая работа по теме Выплаты страховых пенсий и пенсий по государственному пенсионному обеспечению в Российской Федерации
Статья: Все непритворно в нем
Дипломная работа по теме Особенности эмоциональной сферы женщин зрелого возраста с нарушением опорно-двигательного аппарата
Контрольная работа по теме Социально-политический процесс региона
Контрольная Работа 5 Класс По Теме
Реферат Австралия Экономика
Реферат: Развивающее обучение
Реферат Применение Конденсаторов Smd
Курсовая работа по теме Мотив двойничества и раздвоения личности на основе произведений Р.Л. Стивенсона 'Странная история доктора Джекила и мистера Хайда', Э.М. Ремарка 'Черный обелиск' и Ч. Паланика 'Бойцовский клуб'
Реферат: Сражение у островов Всех Святых
Готовые Итоговые Сочинения По Направлениям 2022
Реферат: Frederick Douglass Essay Research Paper David W
Реферат: Генріх Гейне
Похожие работы на - Методические основы формирования медиаграмотности в курсе обществознания