Консультация № 109883
17.11.2007, 19:05
0.00 руб.
0 1 1
пожалуйста помогите
нужно написать программа,которая бы отвечала является ли заданная пользователем квадратная матрица симметричной и теплицевой!
Теплицева матрица-элементы,лежащие на главной диагонали равны,симметричная матрица-"Матрица"="Матрица транспонированная".
Заранее благодарю!

Обсуждение

давно
Старший Модератор
31795
6196
21.11.2007, 17:51
общий
это ответ
Здравствуйте, German1989!

Смотрите приложение.
Удачи!

Приложение:
program q109883; const m=10; var a:array[1..m,1..m]of integer; b,c:boolean; i,j,n:integer; begin write(‘input N(max=‘,m:2,‘):‘); readln(n); if n<=m then begin {вводим матрицу} for i:=1 to n do for j:=1 to n do begin write(‘input number a[‘,i:2,‘,‘,j:2,‘]:=‘); readln(a[i,j]); end; {начинаем проверку} b:=true; c:=true; for i:=1 to n-1 do begin {проверка теплицевой матрицы} if a[i,i]<>a[i+1,i+1] then b:=false; for j:=i+1 to n do {проверка симметричной матрицы} if a[i,j]<>a[j,i] then c:=false; end; {вывод сообщения теплицевой} if b then write(‘теплицевая‘) else write(‘не теплицевая‘); write(‘ и ‘); {вывод сообщения симметричная} if c then writeln(‘симметричная‘) else writeln(‘не симметричная‘); end else writeln(‘неверное число:‘,n:3); end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа