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

21.01.2014, 18:34. **Показов** 996. **Ответов** 1

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

Заполнить порядковыми номерами квадратную матрицу NхN по спирали по часовой стрелке

Помогите кто чем может ))

@L_e_g_i_o_n · 21.01.2014, 19:53

QBasic/QuickBASIC

DEFINT A-S
INPUT "size matrix: ",n :?
DIM mas(1 TO n,1 TO n) AS INTEGER
i = 1 :j = 1 :k = 1 :m = n
DO
i = i - 1
  WHILE i < m
     i = i + 1  
     mas(i,j)= k
     k = k + 1
  WEND
  WHILE j < m 
     j = j + 1 
     mas(i,j) = k
     k = k + 1
  WEND
  WHILE i > (n - m + 1)
      i = i - 1 
      mas(i,j) = k
      k = k + 1
  WEND
  WHILE j > (n - m + 2) 
      j = j - 1
      mas(i,j) = k 
      k = k + 1
  WEND
m = m - 1  :i = i + 1
LOOP UNTIL m <= 0
'*********************************
FOR j = 1 TO n
 FOR i = 1 TO n
     PRINT USING "#####"; mas(i,j);
 NEXT i :PRINT:PRINT
NEXT j :PRINT
SLEEP

ANDRBU
		1
	Заполнить порядковыми номерами квадратную матрицу 21.01.2014, 18:34. Показов 996. Ответов 1 Метки нет (Все метки) Заполнить порядковыми номерами квадратную матрицу NхN по спирали по часовой стрелке Помогите кто чем может ))

Опции темы

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

Решение