Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Kath
21 / 1 / 0
Регистрация: 08.01.2011
Сообщений: 18
1

Отрицательные элементы вещественной матрицы заменить максимальным элементом.

11.01.2011, 11:46. Просмотров 836. Ответов 4
Метки нет (Все метки)

1.В первой строке активного листа заданы N значений одномерного массива X. Вывести во вторую строку те элементы, значения которых принадлежат диапазону [a; b].

2.Отрицательные элементы вещественной матрицы заменить максимальным элементом.

3.Определить, является ли заданное слово словом-перевертышем (шалаш — слово-перевертыш).

Пожалуйста, помогите с написанием программного кода!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.01.2011, 11:46
Ответы с готовыми решениями:

Положительные элементы матрицы заменить минимальным элементом (посмотрите код, почему-то не работает)
Вот такой код. Выдает какую-то ошибку. Кому не трудно, посмотрите, пожалуйста... Sub m_1() Min...

Заменить отрицательные элементы под главной диагональю матрицы А(5,5) их квадратами
Помогите пожалуйста: 1. Заменить отрицательные элементы под главной диагональю матрицы...

Отрицательные элементы матрицы, расположенные ниже побочной диагонали, заменить нулями
1.В вещественной матрице A все отрицательные элементы, расположенные ниже побочной диагонали...

Строку матрицы с максимальным по модулю элементом в К-ом столбце переставить с К-й строкой
задана матрица А размером n на n и число К. Строку с максимальным по модулю элементом в К-ом...

Найти сумму элементов массива между максимальным элементом и центральным элементом
Sub massiv() Dim a(50) As Integer, m As Integer, s As Integer, c As Integer i = 2 Do Until...

4
Busine2009
Заблокирован
11.01.2011, 12:25 2
По первой задаче:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub m_1()
Dim myArray(1 To 10) As Single
Dim i As Integer
Dim a, b As Single
a = 0
b = 10
For i = 1 To 10
    myArray(i) = Cells(1, i)
    If myArray(i) >= a And myArray(i) <= b Then
        Cells(2, i) = myArray(i)
    End If
Next i
End Sub
Задание 2:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub m_1()
Dim myArray(1 To 10) As Single
Dim i As Integer
Dim Max As Single
Max = myArray(1)
For i = 1 To 10
    myArray(i) = Cells(1, i)
    If myArray(i) > Max Then
        Max = myArray(i)
    End If
Next i
For i = 1 To 10
    If Sgn(myArray(i)) = -1 Then
        myArray(i) = Max
    End If
    Cells(2, i) = myArray(i)
Next i
End Sub
Задание 3:
Visual Basic
1
2
3
4
5
6
7
8
9
Sub m_1()
Dim Слово As String
Слово = "шалаш"
If Слово = StrReverse(Слово) Then
    MsgBox "Слово " & Слово & " является словом-перевёртышем"
Else
    MsgBox "Слово " & Слово & " не является словом-перевёртышем"
End If
End Sub
0
Kath
21 / 1 / 0
Регистрация: 08.01.2011
Сообщений: 18
11.01.2011, 13:09  [ТС] 3
Большое спасибо!! И, если можно, напишите обьяснение к каждой строчке, пожалуйста.
0
Busine2009
Заблокирован
11.01.2011, 13:54 4
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
Sub m_1()
'Объявление массива myArray и переменных i, a, b
Dim myArray(1 To 10) As Single 'Массив будет содержать дробные числа.
'на это указывает Single
Dim i As Integer ' Переменная будет содержать целые числа
Dim a, b As Single
'Задаём любой диапазон (представь себе горизонтальную координатную линию)
a = 0
b = 10
'For i ... Next  i - называется циклом
'В нашем случае цикл будет повторяться 10 раз
'После каждого цикла переменная i будет увеличиваться на 1
For i = 1 To 10
    'Заполнение массива из таблицы Excel
    'При первом проходе цикла это будет выглядеть так:
    'myArray(1) = Cells(1, 1) - что означает: помещение в первый элемент массива
    'информации из ячейки Cells(1, 1)
    myArray(i) = Cells(1, i)
    'Если значение элемента массива больше или равно переменной а
    'и если значение элемента массива меньше или равно переменной b, то
    If myArray(i) >= a And myArray(i) <= b Then
        'в ячейку второй строки поместить значение элемента массива
        Cells(2, i) = myArray(i)
    End If
Next i
End Sub
Добавлено через 7 минут
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
Sub m_1()
Dim myArray(1 To 10) As Single
Dim i As Integer
Dim Max As Single
'Нам не известно, где находится самый большой элемент,
'поэтому помещаем в переменную Max значение первого элемента массива.
'Затем будем сравнивать все элементы массива с переменной Max,
'и если элемент будет больше переменной Max, то
'в переменную Max будет помещено значение этого элемента.
Max = myArray(1)
For i = 1 To 10
    myArray(i) = Cells(1, i)
    'Если значение элемента массива больше переменной Max, то
    If myArray(i) > Max Then
        'в переменную Max помещаем значение этого элемента Массива
        Max = myArray(i)
    End If
Next i
For i = 1 To 10
    'С помощью инструмента Sgn определяем знак (+ или -) элемента массива.
    'Если Sgn = -1, то элемент имеет минус (если 1, то "+"; если 0 - то в элементе массива находится ноль).
    'И дальше читаеся: если элемент массива отрицательный, то
    If Sgn(myArray(i)) = -1 Then
        'в этот элемент массива помещаем значение из переменной Max.
        myArray(i) = Max
    End If
    Cells(2, i) = myArray(i)
Next i
End Sub
Добавлено через 3 минуты
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub m_1()
'Объявление переменной Слово.
'String означает, что в переменной будет находится текстовая информация (а не числа)
Dim Слово As String
'Помещение в переменную Слово текста
Слово = "шалаш"
'Инструмент StrReverse - переворачивает строку
'Если текст в переменной Слово совпадает с перевернутым текстом этого же слова, то
If Слово = StrReverse(Слово) Then
    'выводим информацию соответствующую.
    'MsgBox - это инструмент для вывода информации
    MsgBox "Слово " & Слово & " является словом-перевёртышем"
Else
    MsgBox "Слово " & Слово & " не является словом-перевёртышем"
End If
End Sub
0
Kath
21 / 1 / 0
Регистрация: 08.01.2011
Сообщений: 18
11.01.2011, 13:55  [ТС] 5
Спасибо!
0
11.01.2011, 13:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.01.2011, 13:55

Определить разность между средним арифметическим элементом главной диагонали и максимальным её элементом
Сформировать двух мерный массив случайных чисел а(1 to n, n) и определить разность между средним...

Заменить отрицательные элементы массива нулями
Заменить отрицательные элементы массива нулями.Помогите составить программу пожалуйста

Заменить отрицательные элементы массива нулями
Здраствуйте, нужна помощь.. Есть одномерный массив состоящий из n чиисел: Заменить...


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

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

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