Форум программистов, компьютерный форум CyberForum.ru

Матрица и случайная сумма из ее элементов - QBasic

Восстановить пароль Регистрация
 
echs
675 / 893 / 345
Регистрация: 23.10.2013
Сообщений: 4,076
Записей в блоге: 3
01.01.2017, 18:48     Матрица и случайная сумма из ее элементов #1
Дана матрица размером 3×3, состоящая из натуральных чисел на
интервале (1; 8). Требуется определить случайную сумму элементов
принадлежащих этой матрице по следующему алгоритму.
1. начало (для суммы) находится в левом верхнем углу.
2. конец вычислений будет, когда произойдет переход в правый
нижний угол.
3. переход определяется случайным образом с использованием
функции RND на 1 шаг вверх, вправо, вниз, влево.
4. если, допустим вверх идти некуда, то направление движения
повторно переопределяется.
5. Суммирование
при каждом шаге происходит суммирование по условию
1) если элемент нечетный, то он просто прибавляется
2) если четный, то прибавляется дважды.
программа прилагается
(кто ее поймет, того поздравляю с Новым годом!)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
REM
 
CLS
RANDOMIZE TIMER
CONST n = 3
DIM x(1 TO n, 1 TO n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO n
   x(i, j) = 8 * RND + 1
   PRINT x(i, j);
NEXT: PRINT
NEXT: PRINT
 
i = 1
j = 1
S = x(1, 1)
 
DO
   DO
      k = INT(4 * RND)
 
      SELECT CASE k
         CASE 0
            IF i > 1 THEN i = i - 1 ELSE 100
         CASE 1
            IF j < 3 THEN j = j + 1 ELSE 100
         CASE 2
            IF i < 3 THEN i = i + 1 ELSE 100
         CASE 3
            IF j > 1 THEN j = j - 1 ELSE 100
      END SELECT
      GOTO 200
100
   LOOP
200
   IF x(i, j) MOD 2 THEN
      S = S + x(i, j)
   ELSE
      S = S + 2 * x(i, j)
   END IF
LOOP UNTIL i + j = 6
 
PRINT "S ="; S
END
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.01.2017, 18:48     Матрица и случайная сумма из ее элементов
Посмотрите здесь:

Седловые точки матрицы и сумма элементов строк QBasic
Сумма и произведение элементов матрицы QBasic
Сумма четных элементов массива считается неверно QBasic
QBasic Определить, является ли сумма элементов массива простым числом
Сумма всех элементов массива QBasic
Определите, является ли сумма элементов матрицы четным числом QBasic
QBasic Дана матрица N*M, построить вектор из её положительных элементов
QBasic Определить номер строки матрицы, сумма элементов которой минимальна
Сумма элементов каждой строки двумерного массива QBasic
QBasic Сумма крайних элементов матрицы
QBasic Не стандартная матрица и ее сумма
Сумма чётных и нечётных элементов одномерного массива QBasic

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 15:32. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru