Заполнение матрицы по правилу

@sucrew · Регистрация: 08.10.2014

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

Заполнить матрицу n на n следующим образом

Pascal

1 1 0 0 0 0 1 1 
1 1 0 0 0 0 1 1 
0 0 1 1 1 1 0 0 
0 0 1 1 1 1 0 0 
0 0 1 1 1 1 0 0 
0 0 1 1 1 1 0 0 
1 1 0 0 0 0 1 1 
1 1 0 0 0 0 1 1

@Puporev · 28.12.2015, 14:56

Pascal

const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
repeat
write('Размер матрицы четное число от 2 до ',nmax,' n=');
readln(n);
until (n in [2..nmax])and(n mod 2=0);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
i:=1;
while i<n do
 begin
  {главная диагональ}
  a[i,i]:=1;
  a[i+1,i]:=1;
  a[i,i+1]:=1;
  a[i+1,i+1]:=1;
  {побочная диагональ}
  a[i,n-i+1]:=1;
  a[i,n-i]:=1;
  a[i+1,n-i]:=1;
  a[i+1,n-i+1]:=1;
  i:=i+2;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

	28.12.2015, 14:56