Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lazarus База данных, без навигатора http://www.cyberforum.ru/lazarus/thread1269439.html
надо создать базу данных ( список студентов) в lazarus. Но редактирование должно происходить без навигатора
Lazarus База данных в lazarus Здравствуйте, при редактировании базы данных с помощью компоненты TDBEdit, возникает вот такая ошибка: "dataset is read only". http://www.cyberforum.ru/lazarus/thread1269126.html
Lazarus Динамическое расширение канвы при выходе фигуры за ее край
Задача-строится граф и при выходе одной или нескольких вершин графа за край канвы необходимо, чтобы они не пропадали а канва расширялась и можно было с помощью мыши прокрутить ее вниз или в строну....
Lazarus Lazarus MsWord SaveAs Error
Всем Доброго вечера. Уже 2 дня мучаюсь непонимаю что не так, не получается в lazarus-е сохранить word документ как текст, в delphi все без проблем, тут же непонятки. Не нравится ему FileFormat ...
Lazarus Переделать программы с Паскаля в Lazarus с формой http://www.cyberforum.ru/lazarus/thread1268188.html
Есть решенные задачи в паскале как сделать эти же задачи но в лазарусе объясните пожалуйста 1 program p uses crt; var result:real A:integer const reda=18; zhelezo=10; begin
Lazarus Динамические структуры данных: "Стек", объектно-ориентированный подход Всем привет, помогите пожалуйста написать код в объектно-ориентированном подходе, СТЕК, введение данных Имя, Фамилия, год, чтобы вводилось в таблицу, к примеру, StringGrid.. подробнее
11223344556677
1 / 0 / 0
Регистрация: 28.04.2014
Сообщений: 28
07.10.2014, 14:35  [ТС] 0

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

07.10.2014, 14:35. Просмотров 971. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.10.2014, 14:35
Готовые ответы и решения:

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

Определить является ли заданная матрица n-го порядка симметричной относительно побочной диагонали
procedure TForm1.Button2Click(Sender: TObject); var i,j:integer; f:boolean; begin ...

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

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

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

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