Дана матрица. Составьте программу её заполнения в соответствии с приведенным шаблоном

@Вероника52 · Регистрация: 28.09.2016

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

Дана матрица. Составьте программу её заполнения в соответствии с приведенным шаблоном.

@xtro · 18.09.2018, 05:20

Pascal

const 
  n=9;  m=7;
var
  a:array[1..n,1..m] of integer;
  i,j,k,cx,cy:integer;
begin
  cy:=n div 2+n mod 2;
  cx:=m div 2+m mod 2;
  for i:=1 to n do for j:=1 to m do a[i,j]:=0;
  k:=0;
  for i:=cy to n do begin
    if (cx-k>=1) and (cx+k<=m) then
      for j:=cx-k to cx+k do begin
        a[i,j]:=k+1;
        a[cy-k,j]:=k+1;
      end;  
      k:=k+1;
  end; 
  for i:=1 to n do begin
    for j:=1 to m do write(a[i,j]:3);
    writeln;
  end;
end.

@volvo · 18.09.2018, 12:45

xtro, это не то, что требовалось в задании. Посмотри внимательно на матрицу, приведенную в первом посте. Она НЕ симметричная. Заполняется (сверху вниз) значениями 4, 3, 2, 1, 3, 2, 4

Добавлено через 1 час 5 минут

Pascal

      for j:=cx-k to cx+k do begin
        a[i,j]:=k+1+ord(k=1)-ord(k=2);
        a[cy-k,j]:=k+1;
      end;

, вот так будет показана именно та матрица, которая приведена выше.

@xtro · 18.09.2018, 13:05

volvo, спасибо, что поправили, я невнимательно читал условие

@Вероника52 0 / 0 / 0 Регистрация: 28.09.2016 Сообщений: 26
		1
	Дана матрица. Составьте программу её заполнения в соответствии с приведенным шаблоном 17.09.2018, 23:50. Показов 1468. Ответов 3 Метки нет (Все метки) Дана матрица. Составьте программу её заполнения в соответствии с приведенным шаблоном. 0

@xtro 233 / 32 / 19 Регистрация: 10.06.2016 Сообщений: 123
	18.09.2018, 13:05	4
	volvo, спасибо, что поправили, я невнимательно читал условие 0