Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
jaredqq
0 / 0 / 0
Регистрация: 02.10.2013
Сообщений: 6
1

Определить, является ли заданная квадратная матрица антисимметрической и тёплицевой

02.12.2013, 01:17. Просмотров 828. Ответов 2
Метки нет (Все метки)

Определить, является ли заданная квадратная матрица антисимметриче-
ской и тёплицевой.

Ребята,помогите пожалуйста.Очень срочно надо.Использовать при этом процедуры.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2013, 01:17
Ответы с готовыми решениями:

Определить, является ли заданная квадратная матрица симметрической и тёплицевой
Определить, является ли заданная квадратная матрица симметрической и...

Определить, является ли заданная квадратная матрица n-го порядка симметричной относительно главной диагонали
Код Pascal program prim1; uses crt; type mas=array of integer; var i,j,n,s:...

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

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

Проверить, является ли заданная целочисленная квадратная матрица L(n,n) магическим квадратом
Всем привет! Помогите пожайста написать код к задаче: Проверить, является ли...

2
Cyborg Drone
Модератор
5398 / 3207 / 2450
Регистрация: 17.08.2012
Сообщений: 10,274
02.12.2013, 03:24 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Кликните здесь для просмотра всего текста
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
program jaredqq;
 
const n = 5;
 
var a: array [1..n, 1..n] of integer;
    i, j: integer;
    f: boolean;
 
procedure print;
var i, j: integer;
begin
  writeln('Matrix:');
  for j := 1 to n do
    begin
      for i := 1 to n do write(a[i, j]:6);
      writeln
    end
end;
 
procedure asim;
var i, j: integer;
begin
  f := true;
  for j := 1 to n do
    begin
      for i := j to n do
        if a[i, j] + a[j, i] <> 0
          then
            begin
              f := false;
              break
            end;
      if not(f) then break
    end;
end;
 
procedure toeplitz;
var i, j: integer;
begin
  f := true;
  for j := 2 to n do
    begin
      for i := 2 to n do
        if a[i, j] <> a[i - 1, j - 1]
          then
            begin
              f := false;
              break
            end;
      if not(f) then break
    end;
end;
 
begin
  writeln('Enter elements of matrix, n = ', n, ':');
  for j := 1 to n do
    for i := 1 to n do
      begin
        write('a[', i, ', ', j, '] = ');
        readln(a[i, j])
      end;
  print;
  asim;
  if f
    then writeln('Antisymmetric')
    else writeln('No antisymmetric');
  toeplitz;
  if f
    then writeln('Toeplitz')
    else writeln('No Toeplitz');
  readln
end.
1
jaredqq
0 / 0 / 0
Регистрация: 02.10.2013
Сообщений: 6
02.12.2013, 18:25  [ТС] 3
Спасибо за помощь!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2013, 18:25

Является ли заданная целая квадратная матрица 8-го порядка магическим квадратом
2)Определить,является ли заданная целая квадратная матрица 8-го порядка...

Определить, содержит ли заданная целочисленная квадратная матрица порядка n все числа от 1 до n^2
Определить, является ли заданная квадратная матрица размера n*n состоящей из...

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


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

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

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