Форум программистов, компьютерный форум, киберфорум
Комментарии
Войти
Регистрация
Восстановить пароль
  1. Старый комментарий
    Аватар для canadamoscow
    Матрица NxM по спирали
    Pascal
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    
    ##
    var (n,m) := (5,6);
    var a := new integer[n,m];
    var (i,j,ii,jj,k) := (0,0,0,1,0); 
    for var c := 1 to n*m do begin
      a[i,j] := c;
      if (ii=-1) and (i-1=k) then k+=1; //переход в след.спираль
      if k<>min(i+ii,j+jj,n-1-i-ii,m-1-j-jj) then //выход зв спираль?
         (ii,jj):= ii=0? (jj,0):(0,-ii); //поворот направо
      (i,j) := (i+ii,j+jj);
    end;
    a.Println
    Запись от canadamoscow размещена 25.07.2021 в 15:05 canadamoscow вне форума
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.