0 / 0 / 0
Регистрация: 27.04.2011
Сообщений: 12
1

Дана квадратная матрица А порядка n. Проверить, является ли матрица единичной.

28.04.2011, 21:25. Показов 6867. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребят,помогите решить задачу "Дана квадратная матрица А порядка n. Проверить, является ли матрица единичной"
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2011, 21:25
Ответы с готовыми решениями:

Дана целая квадратная матрица п-го порядка. Определить, является ли она магическим квадратом
5. Дана целая квадратная матрица п-го порядка. Определить, является ли она магическим квадратом,...

Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной
Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной. Описать с помощью...

Дана целая квадратная матрица n-го порядка. Определить, является ли она магическим квадратом,
Здравствуйте, помогите пожалуйста ! Условие :Дана целая квадратная матрица n-го порядка....

Дана целочисленная квадратная матрица порядка 5; определить является ли она магическим квадратом
Дана целочисленная квадратная матрица порядка 5; определить является ли она магическим квадратом

8
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
28.04.2011, 23:49 2
единичная - содержит одни единицы?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a: array[1..100,1..100] of integer;
  i,j,n: integer;
  f: boolean;
Begin
  ...
  f:=true;
  for i:=1 to n do
  for j:=1 to n do
    if a[i,j]<>1 then f:=false;
  writeln(f);
  readln
End.
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
28.04.2011, 23:51 3
единичная - содержит одни единицы?
1-цы на гл. диагонали.Остальные нули.
1
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
29.04.2011, 00:04 4
оу. Ясно, буду знать

Добавлено через 9 минут
зацени: так?
Pascal
1
2
3
4
5
if i=j then
  begin
    if a[i,j]<>1 then f:=false;
  end
  else if a[i,j]<>0 then f:=false;
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.04.2011, 00:16 5
Я бы так сделал:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Uses
 CRT;
Const
 m:array[1..4,1..4] of byte=((1,0,0,0),
                     (0,1,0,0),
                     (0,0,1,0),
                     (0,0,0,1));
 Var
  i,j:integer;
  f:boolean;
 begin
 f:=true;
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    begin
     write(m[i,j]);
     if (m[i,i]<>1) or ((i<>j) and (m[i,j]<>0)) then f:=false    
    end;
   writeln
  end;
 writeln;
 if f then write('Äà')
 else write('Íåò');
 end.
0
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
29.04.2011, 00:24 6
так сложнее и длиннее
а если она не 4х4? "ничего не знаю: пусть <4х4 вводит(что-либо делает/не делает)>"(с)я
0
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.04.2011, 01:19 7
а если она не 4х4?
я имел ввиду условие.А не стандартный ввод массива.Вместо портянки кода:
if i=j then
begin
if a[i,j]<>1 then f:=false;
end
else if a[i,j]<>0 then f:=false;
это
Pascal
1
if (m[i,i]<>1) or ((i<>j) and (m[i,j]<>0)) then f:=false
Да очень длинно...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Uses
 CRT;
 Var
  i,j,n:integer;
  f:boolean;
  m:array[1..50,1..50] of integer;
 begin
 repeat
  readln(n);
until n in [1..50];
 f:=true;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     write('m[',i,',',j,']:=');
     readln(m[i,j]);
     if ((i=j) and (m[i,j]<>1)) or ((i<>j) and (m[i,j]<>0)) then f:=false
    end;
   writeln
  end;
 writeln;
 if f then write('Äà')
 else write('Íåò');
 readln
 end.
0
К.О.
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
29.04.2011, 09:04 8
ну да, так лучше
0
0 / 0 / 0
Регистрация: 27.04.2011
Сообщений: 12
03.05.2011, 19:12  [ТС] 9
спасибо,товарищи!
0
03.05.2011, 19:12
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.05.2011, 19:12
Помогаю со студенческими работами здесь

Дана целочисленная квадратная матрица порядка n (задана с клавиатуры). Проверить первую строку на выполнение признака
Дана целочисленная квадратная матрица порядка n (задана с клавиатуры). 1) Проверить первую строку...

Проверить является ли матрица единичной
Нужно проверить является ли матрица единичной и вывести сообщение об этом. Долго-долго мучился, но...

Проверить, является ли матрица A (n, n) диагональной/единичной
проверить, является ли матрица A(n,n) диагональной (все элементы нули, кроме главной диагонали),...

Проверить, является ли произвольная матрица единичной
Проверить, является ли произвольная матрица единичной ПОЖАЛУЙСТА! Как можно проще, без Label...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru