Сочетание разветвляющегося и циклического вычислительных процессов

Усложненные задачи

Найти значение суммы или произведения в зависимости от заданного условия. Значения переменных выбрать самостоятельно.

Задания для решения на практических занятиях:

1.

2.

Варианты индивидуальных заданий

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.

Образец выполнения задания

Найти значение суммы или произведения в зависимости от заданного условия. Значения переменных выбрать самостоятельно.

1. Входными данными являются переменные b, и n.

2. Выходными данными – значение Y.

3. На форме спроэктированы следующие элементы управления:

Label (Введите n, Введите b, Y=, Исходные данные, Результат),

TextBox (для ввода и вывода данных),

CommandButton (Найти Y, Выход),

Image (для помещения на форму формулы)

При проектировании данной формы использованы свойства элементов управления:

Alignment - для выравнивания текста,

Caption (для элементов управления Label, CommandButton),

Text (для элемента TextBox),

Font – для изменения размера и начертания шрифта,

ForeColor - для изменения цвета шрифта.

Icon – для размещения пиктограммы в стоке заголовка формы.

 

 

4. Программный код:

Dim N As Integer, B As Single, Y As Single

Dim i As Integer, k As Integer, p As Single

 

Private Sub Command1_Click()

If IsNumeric(Text1) = True And IsNumeric(Text2) = True Then

B = Text1.Text

N = Text2.Text

If B < 0 And N > 0 And N = Int(N) Then

Y = 0

For k = 1 To N

Y = Y + 1 / (2 * k + 1) ^ 2 * B ^ 2

Next

ElseIf B > 0 And N = 0 Then

p = 1

For i = 1 To 3

p = p * Log(i * B) / Log(10)

Next

Y = Log(B + p)

Else

Y = 0

End If

Text3.Text = Y

Else

MsgBox "Вы ввели не число! Повторите ввод."

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

Exit Sub

End If

End Sub

 

Private Sub Command2_Click()

End

End Sub

6. Результат выполнения программы:

 

 

Задание 5

Задачи с одномерным массивом

Составить программу расчета задачи с одномерным массивом, используя элементы управления ComboBox или ListBox.

Задания для решения на практических занятиях:

Задание 1.

Определить произведение отрицательных чисел массива A(n), стоящих на четных позициях. Если таких элементов нет, вывести на экран дисплея сообщение: «Отрицательных элементов в массиве нет».

Задание 2.

В числовом массиве Z(n) определить максимальный элемент массива и его порядковый номер. Вывести на экран дисплея результат.

Задание 3.

Для заданного целочисленного массива М(n) вычислить произведение и количество отрицательных нечетных чисел, расположенных на четных позициях. Результат вывести на экран дисплея.

Задание 4.

Из элементов массива X(n) преобразовать массив путем деления каждого четного элемента массива на значение переменной А. Полученный массив вывести на экран.

Варианты индивидуальных заданий

Задание 1.

Определить произведение положительных четных чисел массива В(n). Если таких элементов нет, вывести на экран дисплея сообщение: «Положительных четных элементов в массиве нет».

Задание 2.

Определить произведение отрицательных чисел массива A(n), стоящих на четных позициях. Если таких элементов нет, вывести на экран дисплея сообщение: «Отрицательных элементов в массиве нет».

Задание 3.

Определить сумму и количество нечетных чисел массива М(n). Если таких элементов нет, вывести на экран дисплея сообщение: «Нечетных элементов в массиве нет».

Задание 4.

В массиве чисел К(n) определить сумму и количество чисел, кратных 5. Если таких элементов нет, вывести на экран дисплея сообщение: «Элементов кратных 5 в массиве нет».

Задание 5.

В массиве чисел X(n) определить количество чисел, кратных 2, и чисел, не кратных 3. Если таких элементов нет, вывести на экран дисплея сообщение: «Чисел, кратных 2 и чисел не кратных 3 в массиве нет».

Задание 6.

Имеется массив чисел С(n), определить количество и произведение элементов массива, которые находятся в диапазоне 0 £ С(I) £ 7. Если таких элементов нет, вывести на экран дисплея сообщение: «Элементов из диапазона (0: 7) в массиве нет».

Задание 7.

В заданном массиве А(n) определить среднее арифметическое значение чисел, кратных трем. Если таких элементов нет, вывести на экран дисплея сообщение: «Элементов кратных 3 в массиве нет».

Задание 8.

Определить среднее арифметическое значение элементов массива F(n), которые удовлетворяют требованию -3 £ F(I) £ 5. Если таких элементов нет, вывести на экран дисплея сообщение: «Элементов, удовлетворяющих требованию, в массиве нет».

Задание 9.

В числовом массиве А(n) определить минимальный элемент массива и его порядковый номер. Результат вывести на экран дисплея.

Задание 10.

Определить минимальный элемент числового массива K(n) и количество элементов, равных минимальному элементу. Вывести на экран дисплея результат.

Задание 11.

Определить произведение нечетных элементов массива P(n), стоящих на четных позициях. Если таких элементов нет, на экран дисплея вывести сообщение: «Нечетных элементов стоящих на четных позициях в массиве нет».

Задание 12.

Определить среднее арифметическое значение элементов массива В(n), кратных восьми. Если таких элементов нет, на экран дисплея вывести сообщение: «Элементов кратных 8 в массиве нет».

Задание 13.

В числовом массиве Z(n) среди положительных элементов определить максимальный элемент массива. Вывести на экран дисплея результат.

Задание 14.

Определить количество отрицательных элементов в массиве А(n) и на их место записать нули. Если таких элементов нет, на экран дисплея вывести сообщение: «Отрицательных элементов в массиве нет».

Задание 15.

Определить произведение положительных элементов массива и их количество. При отсутствии положительных чисел вывести на экран дисплея «Положительных чисел в массиве нет».

Задание 16.

Вычислить количество элементов целочисленного массива V(n), кратных семи. При отсутствии таких элементов вывести на экран дисплея «Элементов, кратных 7, нет».

Задание 17.

Для числового массива Z(n) определить среднее арифметическое значение минимального и максимального элементов. Результат вывести на экран дисплея.

Задание 18.

Для заданного массива А(n) вычислить сумму и количество элементов, удовлетворяющих условию 2 £ А(I) £ 10. Результат вывести на экран дисплея.

Задание 19.

Определить сумму и произведение положительных чисел, стоящих на четных позициях в массиве В(n). Результат вывести на экран дисплея.

Задание 20.

В массиве C(n) определить среднее арифметическое значение положительных элементов и среднее арифметическое значение отрицательных элементов. Результат вывести на экран дисплея.

Задание 21.

В массиве В(n) определить отдельно количество отрицательных чисел, количество положительных чисел и чисел, равных нулю. Результат вывести на экран дисплея.

Задание 22.

Определить сумму положительных четных чисел массива В(n). В случае отсутствия положительных четных чисел вывести на экран дисплея «Положительных четных чисел в массиве нет».

Задание 23.

Определить среднее арифметическое значение чисел массива А(n), стоящих на четных позициях, и среднее арифметическое значение чисел массива А(n), стоящих на нечетных позициях. Результат вывести на экран дисплея.

Задание 24.

Определить сумму положительных элементов массива В(n), стоящих на позициях, кратных трем. Результат вывести на экран дисплея.

Задание 25.

Задан массив целых чисел С(n). Вычислить произведение максимального и минимального элементов. Результат вывести на экран дисплея.

Задание 26.

В массиве чисел В(n) все положительные элементы заменить на нулевые значения и определить среднее арифметическое значение отрицательных элементов массива. Результат вывести на экран дисплея.

Задание 27.

В массиве чисел С(n) числа, стоящие на четных позициях, заменить на нули и определить среднее значение чисел, стоящих на нечетных позициях. Вывести на экран дисплея результат вычисления.

Задание 28.

В числовом массиве А(n) определить индексы минимального и максимального элементов. Определить разность между минимальным и максимальным элементами. Результат вывести на экран дисплея.

Задание 29.

Для заданного целочисленного массива М(n) вычислить произведение и количество отрицательных нечетных чисел, расположенных на четных позициях. Результат вывести на экран дисплея.

Задание 30.

Задан целочисленный массив А(n). Вычислить сумму и количество чисел, делящихся без остатка на 5. Если таких чисел нет, на экран дисплея необходимо выдать сообщение «Чисел, делящихся без остатка на 5, в массиве нет».

Задание 31.

В заданном массиве А(n), разделить все элементы массива А(n) на пятый элемент массива А(n). В преобразованном массиве вычислить сумму элементов, стоящих на нечетных позициях. Результат вывести на экран дисплея

Задание 32.

Задан массив чисел Х(n). Посчитать количество отрицательных чисел и вывести на экран дисплея индекс первого отрицательного элемента и индекс последнего отрицательного элемента.

Задание 33.

Имеется целочисленный массив B(n). Преобразовать заданный массив путем умножения каждого элемента массива на максимальный элемент этого массива. Вывести на экран дисплея преобразованный массив и максимальный элемент этого массива.

Задание 34.

Задан массив чисел А(n). Преобразовать заданный массив путем деления каждого четного элемента массива на 2. Вычислить среднее арифметическое значение элементов преобразованного массива. Вывести на экран дисплея. преобразованный массив и полученный результат.

Задание 35.

В массиве С(n) определить количество элементов равных нулю и на их место записать число 5. Вычислить среднее арифметическое значение элементов, равных 5. Вывести на экран дисплея преобразованный массив и результат вычисления.

Задание 36.

Задан массив чисел Х(n). Вычислить и вывести на экран дисплея среднее арифметическое значение первого и последнего отрицательного элемента заданного массива.

Образец выполнения задания

Задан массив чисел Х(n). Найти сумму положительных чисел, стоящих на четных позициях.

1. Входными данными являются числа массива X(n).

2. Выходными данными – значение суммы чисел S.

3. Проектируем форму:

На форме спроектированы следующие элементы управления:

Label (Сумма чисел равна)

ComboBox (для ввода массива чисел),

CommandButton (Добавить, Удалить, Очистить, Расчет, Выход).

При проектировании данной формы использованы свойства элементов управления:

Alignment - для выравнивания текста,

Caption (для элементов управления Label, CommandButton),

Text (очистка элемента TextBox и ComboBox),

Font – для изменения размера и начертания шрифта.

4. Программный код:

Dim i As Integer

Dim s As Single

 

Private Sub Command1_Click()

If IsNumeric(Combo1.Text) = True Then

Combo1.AddItem Combo1.Text

Else

MsgBox "Ошибка! Введите число!", vbCritical

End If

Combo1.Text = ""

Combo1.SetFocus

End Sub

 

Private Sub Command2_Click()

If Combo1.ListIndex >= 0 Then

Combo1.RemoveItem Combo1.ListIndex

Else

MsgBox "Ошибка! Вы не выбрали элемент!"

End If

End Sub

 

Private Sub Command3_Click()

Combo1.Clear

Text1.Text = ""

End Sub

 

Private Sub Command4_Click()

s = 0

For i = 0 To Combo1.ListCount - 1 Step 2

If Combo1.List(i) > 0 Then

s = s + Combo1.List(i)

End If

Text1.Text = s

Next

End Sub

 

Private Sub Command5_Click()

End

End Sub

 

5. Результат выполнения программы:

 

Задание 6