Форум программистов, компьютерный форум, киберфорум
Наши страницы

Lazarus

Войти
Регистрация
Восстановить пароль
 
11223344556677
1 / 0 / 0
Регистрация: 28.04.2014
Сообщений: 28
#1

Определить, является ли квадратная матрица симметричной (относительно главной диагонали) - Lazarus

06.10.2014, 13:39. Просмотров 456. Ответов 3
Метки нет (Все метки)

определить, является ли квадратная матрица симметричной (относительно гл. диагонали)

помогите сделать так, чтобы матрицу красиво выводил?! по строкам и столбцам
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
27
28
29
30
31
32
33
34
35
36
program project1;
uses crt;
type mas=array[1..100,1..100] of integer;
var i,j,n,s:integer;
var a,b: mas;
begin
 clrscr;
 write('n=');
 readln(n);
 for i:=1 to n do
 for j:=1 to n do
  begin
   write('a[',i,',',j,']=');
   readln(a[i,j]);
  end;
 writeln('Tablisa:');
 for j:=1 to n do
  begin
   for i:=1 to n do
    begin
    b[j,i]:=a[i,j];
    write(b[j,i]:3);
    end;
  end;
 s:=0;
 i:=j;
 for i:=1 to n do
  begin
  for j:=1 to n do
   begin
    if a[i,j]<>b[i,j] then s:=s+1;
   end;
  end;
 if s>0 then write(' -   net') else write(' -   da');
 readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2014, 13:39
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, является ли квадратная матрица симметричной (относительно главной диагонали) (Lazarus):

Является ли заданная целая квадратная матрица n-го порядка симметричной (относительно главной диагонали)? - Lazarus
Определить, является ли заданная целая квадратная матрица n-го порядка симметричной (относительно главной диагонали). нужно сделать на...

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

Обменять относительно вертикальной оси секторы матрицы, лежащие слева и справа от главной и побочной диагонали - Lazarus
Заполнить матрицу случайными числами. Отобразить симметрично относительно вертикальной оси секторы матрицы, которые лежат влево и вправо от...

Определить, является ли данная квадратная матрица симметричной относительно главной диагонали. - C++
У меня аналогичная задача по курсовой, ничего не смыслю в С++ да и в программировании вообще, честно говоря, поэтому задачу решить сама...

Определить, является ли заданная квадратная матрица симметричной относительно главной диагонали - C (СИ)
Задание 2 Определить, является ли заданная квадратная матрица А(5,5) симметричной относительно главной диагонали.

Определить, является ли заданная квадратная матрица симметричной относительно главной диагонали - C++
Задание: Определить, является ли заданная квадратная матрица А(5,5) симметричной относительно главной диагонали. Написать два варианта...

3
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25537 / 17090 / 5417
Регистрация: 22.10.2011
Сообщений: 30,262
Записей в блоге: 7
06.10.2014, 13:45 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
16
17
18
19
20
21
22
23
24
25
 writeln('Tablisa:');
 for j:=1 to n do
 begin
   for i:=1 to n do
   begin
     b[j,i]:=a[i,j];
     write(b[j,i]:3);
   end;
   writeln; // <--- Вот это добавь...
 end;
1
11223344556677
1 / 0 / 0
Регистрация: 28.04.2014
Сообщений: 28
07.10.2014, 14:35  [ТС] #3
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
27
28
29
30
31
32
33
34
35
36
37
program project1;
uses crt;
type mas=array[1..100,1..100] of integer;
var i,j,n,s:integer;
var a,b: mas;
begin
 clrscr;
 write('n=');
 readln(n);
 for i:=1 to n do
 for j:=1 to n do
  begin
   write('a[',i,',',j,']=');
   readln(a[i,j]);
  end;
 writeln('Tablisa:');
 for j:=1 to n do
  begin
   for i:=1 to n do
    begin
    b[j,i]:=a[i,j];
    write(b[j,i]:3);
    end;
   writeln;
  end;
 s:=0;
 i:=j;
 for i:=1 to n do
  begin
  for j:=1 to n do
   begin
    if a[i,j]<>b[i,j] then s:=s+1;
   end;
  end;
 if s>0 then write(' -   net') else write(' -   da');
 readln;
end.
Помогите сделать через модуль?!
0
Puporev
Модератор
54039 / 41672 / 14753
Регистрация: 18.05.2008
Сообщений: 97,993
07.10.2014, 17:14 #4
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Проект с модулем. Код программы изменил, поскольку был очень не оптимальный.
1
Вложения
Тип файла: rar 555.rar (80.8 Кб, 5 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2014, 17:14
Привет! Вот еще темы с ответами:

Определить является ли заданная квадратная матрица симметричной относительно главной диагонали - C++
Разработать алгоритм и программу. Определить является ли заданная квадратная матрица A n-го порядка (2&lt;=n&lt;=10 – вводится пользователем)...

Определить является ли данная квадратная матрица симметричной относительно главной диагонали - Visual Basic
Определить является ли данная квадратная матрица симметричной относительно главной диагонали. Как вообще работать с диагоналями?

Определить, является ли квадратная матрица 10-го порядка симметричной относительно главной диагонали. - Pascal
Определить, является ли квадратная матрица 10-го порядка симметричной относительно главной диагонали. Напишите если не трудно...

Определить, является ли заданная квадратная матрица симметричной относительно главной диагонали. - C++
Не могу решить задачу на С++ Вот условия: Определить, является ли заданная квадратная матрица симметричной относительно главной...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru