Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
GoldFox
0 / 0 / 0
Регистрация: 28.11.2010
Сообщений: 7
1

помогите мне пожалуйста вот с этой гадостью

28.11.2010, 02:36. Просмотров 496. Ответов 2
Метки нет (Все метки)

Привет всем!! я тоже новичок!!
помогите мне пожалуйста вот с этой гадостью, ОЧЕНЬ-ОЧЕНЬ НАДО, заранее большое человеческое спасибо !!!!


1. Составить программу преобразования матрицы размера 5x5,разделив каждый элемент матрицы на ее минимальный элемент.
2. Составить программу преобразования матрицы А размера 5x5, разделив четные элементы на 5.
3. Составить программу вычисления количества отрицательных элементов матрицы размера 5x5.
4. Составить программу, меняющую местами максимальный и минимальный элементы матрицы А размера 5x5.
5. Составить программу преобразования матрицы А размера 5x5, заменив нулевые элементы на 5.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2010, 02:36
Ответы с готовыми решениями:

Пожалуйста объясните мне коротко суть программы
можете написать что для чего предназначен, какая команда за что отвечает и что происходит буду...

какие накрутки еще можно сделать в этой программе? подскажите, пожалуйста!)
Я выполнила задание по информатике согласно условию задачи, но этого недостаточно для высокой...

помогите пожалуйста!
вычислить s=(sin^2 (xy+e^x))/(1.31+|x/y|*2.05) где x=5mn^1/5 y=ln(√n/m+1.7)...

Помогите пожалуйста найти ошибку
Всем привет! Помогите, пожалуйста, найти ошибку! Нужно чтобы функция обрабатывала выбранный...

Проблема с массивами помогите пожалуйста понять бейсик
Проблема вся в том, что basic мы почти не проходили) Как проиницализировать массив объектов... ...

2
Busine2009
Заблокирован
28.11.2010, 13:26 2
GoldFox,
Visual Basic
1
2
Option Explicit
Option Base 1
1.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub m_1()
Dim myArray(5, 5) As Double
Dim i As Long
Dim j As Long
Dim vМинимальноеЗначение As Double
vМинимальноеЗначение = myArray(1, 1)
For i = 1 To 5
    For j = 1 To 5
        If vМинимальноеЗначение > myArray(i, j) Then
            vМинимальноеЗначение = myArray(i, j)
        End If
    Next j
Next i
For i = 1 To 5
    For j = 1 To 5
        myArray(i, j) = myArray(i, j) / vМинимальноеЗначение
    Next j
Next i
End Sub
3.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub m_2()
Dim myArray(5, 5) As Double
Dim i As Long
Dim j As Long
Dim vКоличествоОтрицательныхЧисел As Double
For i = 1 To 5
    For j = 1 To 5
        If Sgn(myArray(i, j)) = -1 Then
            vКоличествоОтрицательныхЧисел = vКоличествоОтрицательныхЧисел + 1
        End If
    Next j
Next i
vКоличествоОтрицательныхЧисел
End Sub
5.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub m_3()
Dim myArray(5, 5) As Double
Dim i As Long
Dim j As Long
For i = 1 To 5
    For j = 1 To 5
        If myArray(i, j) = 0 Then
            myArray(i, j) = 5
        End If
    Next j
Next i
End Sub
.
Если скажешь, что такое чётные элементы двумерного массива, то может и 2 задачу смогу решить.
1
XoFfiCEr
исследователь
323 / 101 / 3
Регистрация: 18.03.2010
Сообщений: 1,079
Записей в блоге: 2
28.11.2010, 13:49 3
1. как то так
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
Sub Matrix()
Dim i As Byte
Dim j As Byte
Dim r As Byte
Dim Matrix(4, 4) As Byte
For i = 0 To 4                          'заполняем
For j = 0 To 4                          'матрицу
r = Int(Rnd() * 256)                    'случайными
Matrix(i, j) = r                        'значениями
Next j                                  'для
Next i                                  'примера
r = 255
For i = 0 To 4                          'поиск
For j = 0 To 4                          'минимального
If Matrix(i, j) < r Then                'значения
    r = Matrix(i, j)                    
End If                                  'матрице
Next j
Next i                                  '
If r=0 Then
     Exit Sub
End If
For i = 0 To 4                          '
For j = 0 To 4                          '
Matrix(i, j) = Int(Matrix(i, j) / r)    'записываем
Next j
Next i
End Sub
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2010, 13:49

TURBO-BASIC помогите пожалуйста решить контрольную
помогите пожалуйста решить контрольную

Пожалуйста ,помогите !!!Очень нуждаюсь в вашей помощи
Помогите пожалуйста!!! 1)Дана строка .Найти количество слов ,начинающихся с заданной буквы...

Помогите пожалуйста решить 2 задачки, очень нодо!
1) посчитать кол-во вхождений в строку цифр с 0 до 4 2) Удалить все слова, содержащие латинскую...


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

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

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