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

«ПРОГРАММНЫЙ ЭЛЕМЕНТ ЗАПОЛНЕНИЕ»

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

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

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

1.2 Описание постановки задачи

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

Входные данные: X1 – переменная вещественного типа, Xk – переменная вещественного типа, dX – переменная вещественного типа.

Выходные данные: {S} – массив вещественных чисел

1.3 Математическое описание задачи: Si=Sin²X где X1≤X≤Xk c шагом dX i=1, 2, … n где n=(Xk-X1)/dX+1

1.4 Схема алгоритма решения задачи:

1.5 Листинг кода программы:

Private Sub Command1_Click() Dim S() As Single, X As Single, X1 As Single, Xk As Single, dX As Single, i As Integer Const Pi = 3.14159 X1 = InputBox("X1=Pi*_") Xk = InputBox("Xk=Pi*_") dX = InputBox("dX=Pi/_") Print "X1=" & X1 & "*Pi Xk=" & Xk & "*Pi dX=Pi/" & dX X1 = X1 * Pi Xk = Xk * Pi dX = Pi / dX n = (Xk - X1) / dX + 1 ReDim S(1 To n) X = X1 i = 1 Do While i <= n S(i) = Sin(X) ^ 2 X = X + dX i = i + 1 Loop For i = 1 To n Print S(i) Next End Sub

1.6 Выполнение проекта:

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

Транспонировать матрицу B размерности n. Напечатать матрицу B и полученную матрицу BT.

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

2.2 Описание постановки задачи

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

Входные данные: n – переменная целого типа, {B} – массив вещественных чисел.

Выходные данные: {BT} – массив вещественных чисел.

2.3 Математическое описание задачи:

BTji=Bij где i=1, 2, … n; j=1, 2, … n

2.4 Схема алгоритма решения задачи:

2.5 Листинг кода программы:

Private Sub Command1_Click() Dim B() As Single, BT() As Single, n As Integer, i As Integer, j As Integer n = InputBox("n=") ReDim B(1 To n, 1 To n), BT(1 To n, 1 To n) Print "B=" i = 1 Do While i <= n j = 1 Do While j <= n B(i, j) = InputBox("B(" & i & ", " & j & ")=") Print B(i, j), j = j + 1 Loop Print i = i + 1 Loop Print "BT=" i = 1 Do While i <= n j = 1 Do While j <= n BT(i, j) = B(j, i) Print BT(i, j), j = j + 1 Loop Print i = i + 1 Loop End Sub

2.6 Выполнение проекта: