Программный элемент накопление / 26

Задание №1

1. Постановка задачи:

   1. Словесное описание задачи:

Вычислить значение функции

Проанализировать выполнение программы при x=2.

2. Состав входных и выходных данных:

Входные данные:

X – переменная вещественного типа.

Выходные данные:

F – переменная вещественного типа.

2. Математическая модель задачи:

3. Схема алгоритма:

4. Код приложения:

Private Sub Command1_Click() Dim F As Single, k As Integer, X As Single X = InputBox("X=", "Input") F = 0 For k = 1 To 4 F = F + X ^ k / k Next F = Sqr(F) Print "F=" & F & " при X=" & X End Sub

5. Отладка программы:

Задание №2

1. Постановка задачи:

   1. Словестное описание задачи:

Вычислить произведение элементов L-й и K-й строк матрицы P размерности M×N. Для отладки программы контрольный пример выбрать самостоятельно.

2. Состав входных и выходных данных:

Входные данные:

M – переменная целого типа,

N – переменная целого типа,

P={p_ij}, где i= j= – массив вещественных чисел,

L – переменная целого типа,

K – переменная целого типа.

Выходные данные:

Pr – переменная вещественного типа.

2. Математическая модель задачи:

3. Схема алгоритма:

4. Код приложения:

Private Sub Command1_Click() Dim P() As Single, Pr As Single, i As Integer, j As Integer, M As Integer, N As Integer, L As Integer, K As Integer M = InputBox("M=", "Input") N = InputBox("N=", "Input") ReDim P(1 To M, 1 To N) For i = 1 To M For j = 1 To N P(i, j) = InputBox("P(" & i & ", " & j & ")=", "Input") Next Next L = InputBox("L=", "Input") K = InputBox("K=", "Input") Pr = 1 For j = 1 To N Pr = Pr * P(L, j) * P(K, j) Next Print "P=" For i = 1 To M For j = 1 To N Print P(i, j); Next Print Next Print "L=" & L & " K=" & K Print "Pr=" & Pr End Sub

5. Отладка программы: