создать программу которая создает матрицу случайных чисел, затем формирует из нее матрицу с возрастающей последовательностью...

@Nothengem · Регистрация: 06.04.2012

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

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

Вот этот код:

Pascal

function incr(var X: integer): integer;
begin
  incr := X; inc(X);
end;
 
const
  n = 5;
var
  n2,i,j,k,w : integer;
  a: array[1 .. n, 1 .. n] of word;
begin
  w := 1; n2 := n div 2;
 
  if n mod 2 = 1 then a[n2 + 1, n2 + 1] := incr(w);
 
  for k := 0 to n2 - 1 do begin
 
    for j := n2-k+1 to n-n2+k+1 do a[n2-k,j] := incr(w);
    for i := n2-k+1 to n-n2+k+1 do a[i,n-n2+k+1] := incr(w);
    for j := n-n2+k downto n2-k do a[n-n2+k+1,j] := incr(w);
    for i := n-n2+k downto n2-k do a[i,n2-k] := incr(w);
 
  end;
 
  for i := 1 to n do begin
    for j := 1 to n do write(a[i,j]:4);
    writeln;
  end;
  readln
  uses windows; sleep(50)
end.

Задача такая, необходимо создать программу которая создает матрицу случайных чисел, затем формирует из нее матрицу с возрастающей последовательностью а затем связать матрицу с кодом написанным выше, я пока пытаясь это сделать, но без успешно и не пойму как связать все это во едино. Расчитываю на вашу помощ ибо туговато у меня. Язык Turbo Pascal.

	06.04.2012, 21:44