Question

VISUAL BASIC Написать процедуру для кнопки «Преобразовать», состоящую из следующей последовательности действий: Вычислить количество нулевых элементов массива X(M) и присвоить полученное значение переменной ColNul. Те из элементов массива Y(N), значения которых равны произведению двух предыдущих умножить на количество нулевых элементов массива Х(М).

Answer 1

Ответ:

В современной школе информатика – достаточно сложный предмет для усвоения учащимися. Основное препятствие для полноценного изучения информатики – нехватка времени. Мною проанализировано много учебных планов и методик преподавания информатики и для общеобразовательных классов, и для профильных с углубленным изучением информатики. Вывод неутешителен. Предлагаемые материалы основываются на гораздо большем годовом количестве учебных часов, чем то, которым мы реально располагаем. Следствием расхождения между рекомендуемым и реальным объемом учебных часов является невозможность использовать в процессе обучения какой-то один учебник информатики. Это неудобно как ученикам, так и преподавателю. Выходом из этой ситуации является разработка собственной методики преподавания информатики с ориентацией на творческую деятельность учащихся и тестовый контроль, которая, не уменьшая объем материала, позволяла бы сократить время на его усвоение учениками и уложиться в отведенное количество часов.

Основываясь на своем опыте работы с учащимися старшего звена, я выделила несколько основных тем, без усвоения которых невозможно успешное изучение всего курса информатики, и разработала собственную методику их преподавания. Я пользуюсь ей уже несколько лет, что позволяет добиваться хороших результатов в освоении учениками моего предмета. С методикой преподавания одной из таких тем я и хочу познакомить вас.

Секрет могущества ЭВМ – высокая скорость и большая память. Для записи алгоритмов, работающих с большими объемами информации, в алгоритмическом языке существуют специальные табличные величины (или просто таблицы). Исполнение многих алгоритмов было бы просто невозможно, если бы соответствующие объекты не были каким-либо образом организованы: упорядочены, классифицированы, занумерованы и так далее. Итак, нужно уметь организовать не только действия, но и те объекты, над которыми эти действия производятся.

Необходимо отметить, что таблицы (массивы) как основное средство представления однородной информации неизбежно используются во всех реальных компьютерных программах. На табличном принципе основана и архитектура современных ЭВМ: память машины можно рассматривать как большой массив байтов, адреса которых располагаются по возрастанию.

Answer 2

Для написания процедуры на Visual Basic, которая выполнит указанные вами действия, вам потребуется создать массивы X и Y, а затем написать код для кнопки "Преобразовать". Предположим, что у вас уже есть массивы X(M) и Y(N) и переменные ColNul и M:

vb.netCopy code
Private Sub Преобразовать_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' Вычислить количество нулевых элементов массива X(M) и присвоить полученное значение переменной ColNul
    Dim ColNul As Integer = 0
    For i As Integer = 0 To M - 1
        If X(i) = 0 Then
            ColNul += 1
        End If
    Next

    ' Преобразовать элементы массива Y(N), значения которых равны произведению двух предыдущих,
    ' умножив на количество нулевых элементов массива X(M)
    For i As Integer = 2 To N - 1
        If Y(i) = Y(i - 1) * Y(i - 2) Then
            Y(i) *= ColNul
        End If
    Next

    ' Вывести обновленные значения массива Y(N) на экран, если это необходимо
    ' Например, в TextBox1.Text
    For i As Integer = 0 To N - 1
        TextBox1.Text += Y(i).ToString() + " "
    Next
End Sub

В этом коде предполагается, что у вас есть кнопка "Преобразовать" с именем Button1, массивы X и Y уже объявлены и заполнены данными, а переменная M содержит количество элементов в массиве X. Процедура начнет с вычисления количества нулевых элементов в массиве X, а затем изменит элементы массива Y, соответствующие условию. Результаты могут быть выведены, например, в текстовое поле TextBox1.