|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.02.2012, 00:05 | #1 |
Новичок
Джуниор
Регистрация: 27.02.2012
Сообщений: 2
|
Даны 2 матриы(порядок не выше третьего). Транспонировать ту, определитель которой больше.
Program lab6;
type at=array [1..2,1..2] of integer; var a,b,c:at; i,j,f,d1,d2,n: integer; procedure s(a,b,c:at; n:integer; d1,d2:integer); var i,j: integer; begin d1:=a[1,1]*a[2,2]-a[1,2]*a[2,1]; d2:=b[1,1]*b[2,2]-b[1,2]*b[2,1]; if d1>d2 then a:=c; if d2>d1 then b:=c; writeln; for i:=1 to n do for j:=1 to n do write(c[i,j]); end; begin n:=2; for i:=1 to n do for j:= 1 to n do readln(a[i,j]); begin for i:=1 to n do for j:=1 to n do readln(b[i,j]); for i:= 1 to n do for j:= 1 to n do s(a,b,c,n,d1,d2); end; f:=c[2,1]; c[2,1]:=c[1,2]; c[1,2]:=f; for i:=1 to 2 do begin for j:=1 to 2 do write(c[i,j]:4); writeln; end; |
27.02.2012, 00:06 | #2 |
Новичок
Джуниор
Регистрация: 27.02.2012
Сообщений: 2
|
пожалуйста, исправьте ошибки...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дана квадратная матрица А порядка n. Найдите номер строки матрицы, в которой больше всего единичных элементов. | JMS | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 13.01.2012 06:50 |
С++.три матрицы, упорядочить строки той матрицы у которой больше нулевых строк | Ирина1992 | Помощь студентам | 12 | 20.11.2011 13:01 |
определить в этой матрице где больше четных элементов выше или ниже середины | gts | Помощь студентам | 1 | 29.03.2011 14:32 |
выборка записей с датой больше указанной и временем больше указанного | Lokos | БД в Delphi | 2 | 30.11.2010 07:35 |
Где найти исходники на Java( 1 проект - больше 1000 классов, 2 проект - больше 100, 3 проект - больше 10) | Pti44ka | Общие вопросы по Java, Java SE, Kotlin | 2 | 09.09.2010 21:31 |