Преобразовать матрицу по правилу (3)

26.08.2016, 09:00. Показов 446. Ответов 0

Метки нет (Все метки)

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

Дана квадратная матрица заполненная случайными
целыми числами. Преобразовать эту матрицу по алгоритму.
1. Ищется минимальный элемент матрицы
2. К этому элементу прибавляется стоящий рядом
произвольный элемент матрицы
3. Вновь ищется минимальный элемент матрицы и вновь
увеличивается на величину произвольного рядом стоящего
элемента этой же матрицы.
4. Преобразование матрицы завершается только тогда, когда
один из элементов матрицы превысит число 2016.
5. Вывести на экран начальную матрицу и то, во что она
превратилась.

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
46
47
48
49
50
51
52
53
54
55
DECLARE FUNCTION M16! (x!())
DECLARE SUB MX (x!(), im!, jm!)
DECLARE SUB MX2 (x!(), im!, jm!)
CLS
RANDOMIZE TIMER
CONST n = 6
DIM x(n + 1, n + 1)
 
FOR i = 1 TO n
FOR j = 1 TO n
   x(i, j) = FIX(40 * RND)
   PRINT USING "####"; x(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
DO
   CALL MX(x(), im, jm)
   CALL MX2(x(), im, jm)
LOOP UNTIL M16(x()) > 2016
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING "######"; x(i, j);
NEXT j: PRINT
NEXT i
END
 
FUNCTION M16 (x())
   max = -1
   
   FOR i = 1 TO n
   FOR j = 1 TO n
      IF max < x(i, j) THEN max = x(i, j)
   NEXT j, i
   M16 = max
END FUNCTION
 
SUB MX (x(), im, jm)
   min = 3000
   
   FOR i = 1 TO n
   FOR j = 1 TO n
      IF min > x(i, j) THEN
         min = x(i, j)
         im = i
         jm = j
      END IF
   NEXT j, i
END SUB
 
SUB MX2 (x(), im, jm)
   i = im + 2 * INT(2 * RND) - 1
   j = jm + 2 * INT(2 * RND) - 1
   x(im, jm) = x(im, jm) + x(i, j)
END SUB

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

26.08.2016, 09:00

Ответы с готовыми решениями:

Преобразовать матрицу по правилу
Дана квадратная матрица А(). Требуется преобразовать эту матрицу так, чтобы каждый ее элемент стал суммой окружающих этот элемент...

Преобразовать матрицу по правилу
Дана действительная квадратная матрица порядка A(n). Преобразовать матрицу по правилу: строку с номером n сделать столбцом с номером n, а...

Преобразовать числовую строку по правилу
Дано число в виде строки S. Требуется каждый элемент этой строки заменить на 1. Если элемент четная цифра, то заменить на большую ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

26.08.2016, 09:00

Помогаю со студенческими работами здесь

Преобразовать массив по правилу: программа выдает нули
кажется что просто, но что бы не делал выводио нули =( вот я сделал преобрахование переменной Х в массив М по уравнению DIM...

Сформировать матрицу по правилу
программа на Бейсик

Получить матрицу по правилу
DIM a(i, j) AS INTEGER PRINT "i"; INPUT i PRINT "j"; INPUT j FOR i = 1 TO 12 FOR j = 1 TO 20 a(i, j) = i + 2 * j ...

Сформировать матрицу по правилу
Дана матрица A размерности 3*5. получить матрицу по правилу С(i,j)=a(i,j)*min(a(k,j)) т.е нам нужно элементы столбцов матрицы A...

Сформировать матрицу по правилу
составьте программу для данной матрице в qbasic оч нужно 1 0 ... 0 1 0 1 ... 1 0 . . ... . . 0 1 ... 1 0 1 0 ... 0 1

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

Наверх