Заполнение 16-вариант / Программный элемент Заполнение

ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение

высшего образования

«Петербургский государственный университет путей сообщения

Императора Александра I»

(ФГБОУ ВО ПГУПС)

Факультет «Промышленное и гражданское строительство»

Кафедра «Информатика и информационная безопасность»

Отчет по лабораторной работе

по дисциплине

«Информатика»

на тему: «Программный элемент “Заполнение”»

Форма обучения – очная

Вариант: 16

Выполнил обучающийся Курс 1 Группа бтб-709	__________________ подпись, дата	Турапов Ж.М.
Руководитель	__________________ подпись, дата	Яковлева Н.А

Санкт-Петербург

2017

Программный элемент Заполнение

1. Пересчитать вектор М размерности К по правилу:

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

М={2; 4; 6; 8;}

2. Заполнить матрицу F размерности 21*3 значениями x (первый столбец), 1nХ (второй столбец), 1gХ (третий столбец). Значение Х меняется от 0,5 до 10,5 с шагом 0,5;

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

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

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

Пересчитать вектор М размерности К по правилу:

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

М={2; 4; 6; 8;}

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

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

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

K – количество элементов вектора, целого типа

M=[Mi], i=1,K – вектор, вещественного типа

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

M=[Mi], i=1,K – вектор, вещественного типа

1.3 Разработка математической модели

i=1…K

M_i = iM_i²

для всех i

1.4 Составление схемы алгоритма

1.5 Программный код

Private Sub Command1_Click()

Dim M() As Single, K As Integer, i As Integer

K = InputBox("K=")

Print "M"

ReDim M(1 To K)

For i = 1 To K

M(i) = InputBox("M(" & i & ")")

Print M(i);

Next

Print

Print "M после"

For i = 1 To K

M(i) = i * M(i) ^ 2

Print M(i);

Next

End Sub

1.6 Отладка

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

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

Заполнить матрицу F размерности 21*3 значениями x (первый столбец), 1nХ (второй столбец), 1gХ (третий столбец). Значение Х меняется от 0,5 до 10,5 с шагом 0,5;

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

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

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

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

xn – начальное, вещественного типа

xk – конечное, вещественного типа

dx – шаг, вещественного типа

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

xn – начальное, вещественного типа

xk – конечное, вещественного типа

dx – шаг, вещественного типа

F=[Fij], i=1,n, j=1,3 – матрица, вещественного типа

3. Разработка математической модели

j = 1 … 3

x = xn

i = 1 … n

F_i,j = x, если j = 1

F_i,j = Lnx, иначе если j = 2

F_i,j = Lgx, иначе

x = x + dx

для всех i и j

2.4 Составление схемы алгоритма

2.5 Программный код

Private Sub Command1_Click()

Dim F() As Single, i As Integer, j As Single, x As Single, xn As Single, xk As Single, dx As Single

xn = InputBox("xn=")

xk = InputBox("xk=")

dx = InputBox("dx=")

Print "xn=" & xn & " xk=" & xk & " dx=" & dx

n = (xk - xn) / dx + 1

x = xn

Print "F"

ReDim F(1 To n, 1 To 3)

For i = 1 To n

For j = 1 To 3

If j = 1 Then

F(i, j) = x

ElseIf j = 2 Then

F(i, j) = Log(x)

Else

F(i, j) = Log(x) / Log(10)

End If

Print Format(F(i, j), "0.0") & " ";

Next

x = x + dx

Print

Next

End Sub

2.6 Отладка