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

Задание №1

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

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

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

, где N – размерность вектора Z и Q

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

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

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

Z={z_i}, i= – массив вещественных чисел,

Q={q_i}, i= – массив вещественных чисел.

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

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

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

G

i<=N

G=G+Z(i)^3+Q(i)^3

i=i+1

i=1

G=0

Q, Z

N, Q, Z

Конец

Начало

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

да

нет

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

Private Sub Command1_Click()

Dim G As Single, Z() As Single, Q() As Single, N As Integer, i As Integer

N = InputBox("Введите размерность векторов Z и Q")

ReDim Z(1 To N), Q(1 To N)

For i = 1 To N

Z(i) = InputBox("Z(" & i & ")=")

Print " Z(" & i & ")=" & Z(i);

Next

Print

For i = 1 To N

Q(i) = InputBox("Q(" & i & ")=")

Print " Q(" & i & ")=" & Q(i);

Next

Print

G = 0

For i = 1 To N

G = G + Z(i) ^ 3 + Q(i) ^ 3

Next

Print "G=" & G

End Sub

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

Задание №2

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

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

Определить произведение элементов чётных столбцов произвольной матрицы.

Проанализировать выполнение программы на примере:

A=

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

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

N – переменная вещественного типа,

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

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

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

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

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

i=1

Начало

n, m, A

A

P=1

j=2

P=P*a_(i,j)

P

Конец

да

j<=m

нет

да

i=i+1

i<=n

j=j+2

нет

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

Private Sub Command1_Click() Dim n As Integer, m As Integer, i As Integer, j As Integer, a() As Single, p As Single n = InputBox("Введите количество строк") m = InputBox("Введите количество столбцов") ReDim a(1 To n, 1 To m) For i = 1 To n For j = 1 To m a(i, j) = InputBox("а(" & i & "," & j & ")=") Print " а(" & i & "," & j & ")=" & a(i, j); Next Print Next p = 1 For j = 2 To m Step 2 For i = 1 To n p = p * a(i, j) Next Next Print "P=" & p End Sub

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