Дан массив 4*4. Генерировать массив до тех пор пока сумма элементов каждой строки не будет одинакова

Категория: Basic
2011-10-07 16:32:27

Дан массив 4*4. Генерировать массив до тех пор пока сумма элементов каждой строки не будет одинакова (DO WHILE). Элементов от 1 до 15. Генерацию сделать через SLEEP чтобы можно было смотреть за процессом.

code: #basic
CLS
flag = 0
DO WHILE flag = 0
  ' Генерируем случайную матрицу
  LOCATE 1, 1
  RANDOMIZE TIMER
  FOR i = 1 TO 4
    SUM(i) = 0
    FOR j = 1 TO 4
      A(i, j) = INT(RND * 15 + 1)
      PRINT USING "####"; A(i, j);
      SUM(i) = SUM(i) + A(i, j)
    NEXT j
    PRINT "   s="; SUM(i)
  NEXT i
  ' Проверяем суммы по строкам
  IF SUM(1) = SUM(2) AND aum(2) = SUM(3) AND SUM(3) = SUM(4) THEN
    flag = 1
    PRINT "Матрица найдена!"
  END IF
SLEEP
LOOP

автор: ChipSeter

Поделиться:

Похожие статьи:

теги: сумма элементов, qbasic, студенты, массив, двумерный массив, генерировать массив