Проверить на симметричность

@Александр_456 · Регистрация: 14.01.2014

Author24 — интернет-сервис помощи студентам

Проверить целочисленную матрицу NxM на симметричность относительно строк.
Как объяснил преподаватель нужно сделать чтобы сравнивало первую строку с последней , вторую с предпоследней и так далее ... Сделать счетчик в который будет записывать число и прибавлять если буду равные при сравнении. и в конце надо будет условие , если все симметричны то написать симметрично если же нет то нет.

@volvo · 20.01.2014, 01:39

Pascal

const 
  n = 5; 
  m = 6;
  
var 
  a : array[1 .. n, 1 .. m] of integer;
  i, j, count : integer;
  Ok : boolean;
begin
  // тут ввод матрицы
  
  count := 0;
  for i := 1 to n div 2 do
  begin
    ok := true;
    for j := 1 to m do 
      Ok := Ok and (a[i, j] = a[n - i + 1, j]);
 
    // Ok = true, если сравниваемые строки равны
    if ok then Inc(Count);
  end;
  
  if count = n div 2 then writeln('Матрица симметрична')
  else writeln('Матрица несимметрична');
end.

@Александр_456 0 / 0 / 0 Регистрация: 14.01.2014 Сообщений: 4
		1
	Проверить на симметричность 19.01.2014, 20:21. Показов 3984. Ответов 1 Метки нет (Все метки) Проверить целочисленную матрицу NxM на симметричность относительно строк. Как объяснил преподаватель нужно сделать чтобы сравнивало первую строку с последней , вторую с предпоследней и так далее ... Сделать счетчик в который будет записывать число и прибавлять если буду равные при сравнении. и в конце надо будет условие , если все симметричны то написать симметрично если же нет то нет. 0

	20.01.2014, 01:39

Проверить на симметричность

Решение