Задать вопрос
20 июля, 09:53

Visual basic

1. Сформировать одномерный массив из восьми вещественных значений.

2. Сформировать двумерный массив из А строк и В столбцов.

3. Составить программу для определения максимального и минимального элементов двумерного массива.

4. Сформировать одномерный массив из 10 целых элементов. Найти сумму положительных и четных элементов массива.

+5
Ответы (1)
  1. 20 июля, 10:28
    0
    '1. Сформировать одномерный массив из восьми вещественных значений.

    Dim M (8) As Single, i As Integer, s As String

    For i = 1 To 8

    M (i) = Rnd * 20 - 10

    s = s + CStr (M (i)) + " "

    Next

    MsgBox s

    '2. Сформировать двумерный массив из А строк и В столбцов.

    Dim M () As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String

    A = 3

    B = 5

    ReDim M (A, B)

    For i = 1 To A

    For j = 1 To B

    M (i, j) = Rnd * 20 + 2

    s = s + CStr (M (i, j)) + " "

    Next

    s = s + vbCrLf

    Next

    MsgBox s

    '3. Составить программу для определения максимального и минимального элементов двумерного массива.

    Dim M () As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As String

    Dim Min As Single, Max As Single

    A = 3: B = 5

    Min = 100: Max = 0

    ReDim M (A, B)

    For i = 1 To A

    For j = 1 To B

    M (i, j) = Rnd * 20 + 2

    s = s + CStr (M (i, j)) + " "

    If Max < M (i, j) Then Max = M (i, j)

    If Min > M (i, j) Then Min = M (i, j)

    Next

    s = s + vbCrLf

    Next

    s = s + "Max = " & Max & vbCrLf

    s = s + "Min = " & Min & vbCrLf

    MsgBox s

    '4. Сформировать одномерный массив из 10 целых элементов. Найти сумму положительных и четных элементов массива.

    Dim M (10) As Integer, i As Integer, sum As Integer, s As String, s1 As String

    For i = 1 To 10

    M (i) = Rnd * 20 - 10

    s = s + CStr (M (i)) + " "

    If (M (i) > 0) And (M (i) Mod 2 = 0) Then s1 = s1 + CStr (M (i)) + " ": sum = sum + M (i)

    Next

    s = s + vbCrLf

    s = s + s1 + vbCrLf

    s = s + "sum = " & sum

    MsgBox s
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Visual basic 1. Сформировать одномерный массив из восьми вещественных значений. 2. Сформировать двумерный массив из А строк и В столбцов. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)
Дан двумерный массив Х из вещественных элементов размерностью n 1. В одномерный массив переписать отрицательные элементы двумерного массива, расположенные ниже главной диагонали 2.
Ответы (1)
Составить программу на языке Паскаль: 1) Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2) В массиве М из 10 целых чисел найти количество элементов равных 3.
Ответы (1)
Помогите решить задачи в паскале. 1) найти сумму положительных элементов массива. 2) найти сумму четных элементов массива. 3) найти сумму всех четных элементов массива, стоящих на четных местах.
Ответы (1)