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

QBasic

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

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

01.01.2017, 18:48. Просмотров 92. Ответов 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
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.01.2017, 18:48
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Матрица и случайная сумма из ее элементов (QBasic):

Не стандартная матрица и ее сумма - QBasic
Дана матрица размером 4×6. Она заполнена случайными числами. Всего 48 чисел. То есть вдвое больше, чем элементов матрицы. Как это...

Матрица! Сумма элементов строки - C++
Под С В данной действительной матрице порядка n найти сумму элементов строки, в которой располагается элемент с наименьшим значением. ...

Матрица. Перестановка и сумма элементов - C++
Задача, состоящая из двух частей: 1) Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных...

Матрица; сумма крайних элементов - C++
Помогите =) Создать квадратную матрицу, потом осуществить обход только крайних ее элементов, вычисляет их сумму, и вывести на экран. ...

Матрица (сумма элементов, отличных от нуля) - C++
Данная целочисленная квадратная матрица. Определить сумму элементов отличных от нуля.

Матрица: поиск, сумма, замена элементов - C (СИ)
Не записывает в новый массив Б результат + выводит полную чушь и слишком много лишнего на выводе. Не понимаю как исправить:( Помогите...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.01.2017, 18:48
Привет! Вот еще темы с ответами:

Матрица. Сумма элементов каждого столбца. - Turbo Pascal
Введите с клавиатуры целочисленные элементы матрицы 3*3 и вычислите сумму элементов каждого столбца. Напишите пожалуйста программу))

Матрица. Сумма элементов всех строк - C#
Есть программа, которая считает сумму элементов всех строк. using System; class Cicly2 { static void Main() { ...

Матрица,четные строки,сумма элементов и тд - Pascal
помогите пожалуйста, решите задачку... задание- Дана целочисленная матрица A из N строк и N столбцов(N&lt;=30, N вводится). Если...

Сумма элементов, минимум... Квадратная матрица - C++
не понимаю как справиться с данной задачей


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

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

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