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

QBasic

Войти
Регистрация
Восстановить пароль
 
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
#1

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

01.01.2017, 18:48. Просмотров 87. Ответов 0
Метки нет (Все метки)

Дана матрица размером 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
Дана матрица размером 4×6. Она заполнена случайными числами. Всего 48 чисел. То есть вдвое больше, чем элементов матрицы. Как это...

Сумма всех элементов массива - QBasic
Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2 равен 3. Помогите, пожалуйста,...

Сумма и произведение элементов матрицы - QBasic
скока тут просьб про массивы! видимо не у меня одной курсовая на носу =) не могу решить задачку: дана матрица 4х4 из натуральных...

Сумма крайних элементов матрицы - QBasic
Дана матрица. Требуется найти сумму крайних элементов матрицы. То есть тех, что составляют ее &quot;забор&quot; Я конечно знаю, как решается эта...

Сумма чётных и нечётных элементов одномерного массива - QBasic
CLS PRINT “ Операции с элементами массива” PRINT “ Создание массива” DIM X(10) DATA 5, -7, 9, -4, 12, 8, -6, 2, -3, 10 ...

Сумма элементов каждой строки двумерного массива - QBasic
Необходимо найти сумму элементов каждой строки двумерного массива, и определить в какой строке сумма наибольшая. CLS RANDOMIZE...

Седловые точки матрицы и сумма элементов строк - QBasic
Помогите плиz решить задачи на qbasic: 1) Дана матрица 5*5, числа в диапазоне от 1 до 20. Необходимо найти седловые точки. Распечатать...

Сумма четных элементов массива считается неверно - QBasic
CLS INPUT &quot;введите размер массива*&quot;; n DIM A%(n) PRINT &quot;введите массив&quot; FOR i = 1 TO n INPUT A(i) NEXT i s = 0 FOR i = 1 TO...

Определите, является ли сумма элементов матрицы четным числом - QBasic
1) Для заданной целочисленной матрицы А(N,М) определите, является ли сумма ее элементов четным числом, и выведите на печать соответствующий...

Определить, является ли сумма элементов массива простым числом - QBasic
Проверить,является ли сумма элементов массива простым числом Результат распечатать в виде: 1)исходный массив 2) число элементов ...

Дана матрица N*M, построить вектор из её положительных элементов - QBasic
помогите пожалуйста.

Дана матрица, найти количество элементов по условию - QBasic
Дана матрица размера M x N. В каждой строке найти количество элементов, меньших среднего арифметического всех элементов этой строки


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

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

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