окно вида формулы-Form Layout. Вариант 24. Словесное описание

• Название: Словесное описание
• Анкор: окно вида формулы-Form Layout
• Дата: 24.10.2022
• Размер: 96 Kb.
• Имя файла: Вариант 24.doc
• Тип: Документы; #750784

Чеченин Д.О. ЭТ-401 Вариант 24

Программный элемент «ЗАПОЛНЕНИЕ»

1. 
   Словесное описание
   

Заполнись одномерный массив С размерности 13 значениями функции Cos ²X, где Х меняется от О до 2 с шагом /6.

Полученный массив напечатать в столбец.

2. 
   Математическое описание
   

1. 
   Входные данные: С- вещественные, x- вещественные, -целое
   

2. 
   Выходные данные: С()
   

2. 
   Алгоритмизация
   

2. 
   Программирование
   

Private Sub Command1_Click()

Dim x As Single

Dim i As Integer

Dim C() As Single

ReDim C(1 To 13)

Const pi As Single = 3.14

i = 1

Do While i <= 13

C(i) = Cos(x) ^ 2

i = i + 1

x = x + pi / 6

If x > 2 * pi Then

x = 0

End If

Loop

For i = 1 To 13

Print C(i);

Print

Next

End Sub

2. 
   Отладочный пример
   

1. 
   Словесное описание.
   

Пересчитать элементы матрицы Q по правилу:

Q_ij = |Q_ij| + 10

Для контроля напечатать вторую строку исходной матрицы и вновь полученную матрицу. Матрицу Q задать самостоятельно.

2. 
   Математическое описание.
   
   1. 
      Входные данные: Q(); M; L - вещественные, i-целое, N-целое
      
   2. 
      Выходные данные: Q(i,j)- вещественные
      

3. 
   Алгоритмизация
   

4. 
   Программирование
   

Private Sub Command1_Click()

Dim M As Integer

Dim L As Integer

Dim i As Integer

Dim j As Integer

Dim Q() As Single

M = InputBox("Введите M")

L = InputBox("Введите L")

ReDim Q(1 To M, 1 To L)

For i = 1 To M

For j = 1 To L

Q(i, j) = InputBox("Введите элементы массива ")

Next

Next

i = 2

For j = 1 To L

Print Q(2, j);

Next

For i = 1 To M

For j = 1 To L

Q(i, j) = Abs(Q(i, j)) + 10

Next

Next

Print

i = 2

For j = 1 To L

Print Q(2, j);

Next

End Sub

5. 
   Отладочный пример