Заполнить квадратную матрицу порядка N

@DiMka_59 · Регистрация: 09.12.2012

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

Заполнить квадратную матрицу порядка N (порядок кратен 4), поделенную на 4 квадрата таким образом:
I II
III IV
целыми числами по следующему правилу: сумма индексов элемента делится на номер квадрата.

@ermolay · 08.01.2013, 20:19

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of real;
  n,i,j: byte;
begin
  repeat
    write('Введите размер массива n (n кратно 4): ');
    readln(n);
  until n mod 4=0;
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if (i<=n div 2)and(j<=n div 2) then a[i,j]:=i+j
      else if (i<=n div 2)and(j>n div 2) then a[i,j]:=(i+j)/2
      else if (i>n div 2)and(j<=n div 2) then a[i,j]:=(i+j)/3
      else a[i,j]:=(i+j)/4;
      write(a[i,j]:6:1);
    end;
    writeln;
  end;
end.

@DiMka_59 0 / 0 / 0 Регистрация: 09.12.2012 Сообщений: 43
		1
	Заполнить квадратную матрицу порядка N 08.01.2013, 18:25. Показов 1520. Ответов 1 Метки нет (Все метки) Заполнить квадратную матрицу порядка N (порядок кратен 4), поделенную на 4 квадрата таким образом: I II III IV целыми числами по следующему правилу: сумма индексов элемента делится на номер квадрата. 0

	08.01.2013, 20:19

Заполнить квадратную матрицу порядка N

Решение