Заполнить действительную матрицу размерностью (6*5) случайными числами из диапазона [-3;2]

@June Karou · Регистрация: 02.05.2017

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

Заполнить действительную матрицу размерностью (6*5) случайными числами из диапазона [-3;2]. Вывести на экран новую матрицу, в которой на месте отрицательных элементов первоначальной матрицы расположить не равные 0, а остальные элементы вывести без изменений. Замененные элементы оформить рамкой.

Помогите пожалуйста решить задание.

@MyExcel_17 · 03.05.2017, 23:21

Сообщение от June Karou

размерностью (6*5) случайными числами из диапазона [-3;2]. Вывести на экран новую матрицу

June Karou, примерно так.

Пособие по "китайской грамоте". Краткие обозначения для типа данных: Integer (%), Long (&), Currency (@), Single (!), Double (#) and String ($).

Visual Basic
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
Sub JuneKarou1()
Dim i%, j%, N%, M%, f%
Cells.Clear
N = Int(InputBox("Введите количество строк", "Ввод данных", 6))
M = Int(InputBox("Введите количество столцов", "Ввод данных", 5))
ReDim A(1 To N, 1 To M) As Single
For i = 1 To N
  For j = 1 To M
   A(i, j) = (5 * Rnd) + (-3)
  Next j
Next i
Cells(1, 1).Resize(N, M) = A
 
ReDim B(1 To N, 1 To M) As Single
For i = 1 To N
  For j = 1 To M
   B(i, j) = A(i, j)
   Cells(N + 3, 1) = B(i, j)
  Next j
Next i
Worksheets("Лист1").Cells(9, 1).Resize(N, M).Value = B
 
f = 0
For i = 1 To N
  For j = 1 To M
    If A(i, j) < 0 Then
    A(i, j) = 1#
    Cells(i, j).Value = 1#
    Cells(i, j).Font.Color = vbRed
    Cells(i, j).Borders.Weight = xlMedium
    f = f + 1
    End If
  Next j
Next i
 
End Sub

@June Karou · 04.05.2017, 16:15 **[ТС]**

Спасибо за помощь)

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@June Karou 0 / 0 / 0 Регистрация: 02.05.2017 Сообщений: 16

	Заполнить действительную матрицу размерностью (65) случайными числами из диапазона [-3;2] 03.05.2017, 21:24. Показов* 1260. Ответов 2 Метки нет (Все метки) Заполнить действительную матрицу размерностью (6*5) случайными числами из диапазона [-3;2]. Вывести на экран новую матрицу, в которой на месте отрицательных элементов первоначальной матрицы расположить не равные 0, а остальные элементы вывести без изменений. Замененные элементы оформить рамкой. Помогите пожалуйста решить задание. 0

@June Karou 0 / 0 / 0 Регистрация: 02.05.2017 Сообщений: 16
	04.05.2017, 16:15 [ТС]
	Спасибо за помощь) 0

Опции темы