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

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

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

Author24 — интернет-сервис помощи студентам
Ребят,помогите решить задачу "Дана квадратная матрица А порядка n. Проверить, является ли матрица единичной"
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.04.2011, 21:25
Ответы с готовыми решениями:

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

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

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

8
К.О.
 Аватар для KaiTheCat
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
28.04.2011, 23:49
единичная - содержит одни единицы?
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
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
28.04.2011, 23:51
единичная - содержит одни единицы?
1-цы на гл. диагонали.Остальные нули.
1
К.О.
 Аватар для KaiTheCat
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
29.04.2011, 00:04
оу. Ясно, буду знать

Добавлено через 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
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.04.2011, 00:16
Я бы так сделал:
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
К.О.
 Аватар для KaiTheCat
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
29.04.2011, 00:24
так сложнее и длиннее
а если она не 4х4? "ничего не знаю: пусть <4х4 вводит(что-либо делает/не делает)>"(с)я
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.04.2011, 01:19
а если она не 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
К.О.
 Аватар для KaiTheCat
534 / 499 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
29.04.2011, 09:04
ну да, так лучше
0
0 / 0 / 0
Регистрация: 27.04.2011
Сообщений: 12
03.05.2011, 19:12  [ТС]
спасибо,товарищи!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
03.05.2011, 19:12
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики
ArchitectMsa 18.04.2025
Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .
Префабы в Unity: Использование, хранение, управление
GameUnited 18.04.2025
Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit)
stackOverflow 18.04.2025
Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .
Типы в TypeScript
run.dev 18.04.2025
TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core
stackOverflow 18.04.2025
Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
Коммуникация в реальном времени с SignalR в C# на примере создания чата
UnmanagedCoder 17.04.2025
Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .
Реализация CQRS с MediatR на C# .NET
stackOverflow 17.04.2025
Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .
Verilog и интеллектуальная собственность - "глазами" обученной LM модели.
Hrethgir 17.04.2025
В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .
Свап-файл дополнительно к разделу (если вдруг не хватает или не создан)
jigi33 17.04.2025
ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .
Указатели в Swift: Небезопасные, буферные, необработанные и управляемые указатели
mobDevWorks 16.04.2025
Указатели относятся к наиболее сложным и мощным инструментам языка Swift. В своей сути указатель — это переменная, которая хранит адрес участка памяти, где расположены данные, а не сами данные. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru