Старые отчёты / ФЫР / информатика!!!!!!!!! / 4.14

МИНИСТЕРСТВО ПУТЕЙ СООБЩЕНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ПУТЕЙ СООБЩЕНИЯ

Кафедра «ИНФОРМАТИКА И ИНФОРМАЦИОННАЯ БЕЗОПАСНОСТЬ»

ОТЧЕТ

о выполненной лабораторной работе № 4

по дисциплине «Информатика»:

Структура «Накопление»

Вариант 14

Выполнил студент

Дневного отделения

Факультет ЭСУ

Группы

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

2004

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

1. Словесное описание задачи. Вычислить значение функции: где К - вектор размерности N. Найденное значение присвоить элементу вектора с индексом J. Проанализировать выполнение программы на примере: К = {2; 4; 3; -1; 2; 1}, J=4.

2. Определение состава входных и выходных данных. Входные данные: - размерность N вектора K - элементы вектора K Выходные данные: - пересчитанный вектор K

3. Математическое описание. N=1, 2, 3, ...

1. Р

   0

   3

   10

   1

   Начало

   N, J

   Конец

   

   i<=N

   

   нет

   да

   K

   13

   

   14

   

   2

   i=1

   

   L=L*(K(i)/i)

   

   4

   K(i)

   9

   

   i<=N

   

   да

   нет

   

   7

   L=1

   

   8

   i=1

   

   5

   i=i+1

   

   11

   i=i+1

   

   K(i)

   6

   

   12

   K(J)=L

   азработка схемы алгоритма.

2. Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim K() As Single, N As Integer, i As Integer, J As Integer, L As Single

N = Text1

J = Text2

ReDim K(N) As Single

Print "K="

For i = 1 To N

K(i) = InputBox("Введите элемент вектора K под номером " & i)

Print K(i);

Next

Print

L = 1

For i = 1 To N

L = L * (K(i) / i)

Next

K(J) = L

Print "K="

For i = 1 To N

Print K(i);

Next

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

Задание №2

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

1. Словесное описание задачи. Найти среднее арифметическое элементов матрицы В размерности М*М. Для отладки программы матрицу выбрать самостоятельно.

2. Определение состава входных и выходных данных. Входные данные: - количество строк (столбцов) квадратной матрицы B - элементы матрицы B Выходные данные: - среднее арифметическое элементов матрицы B

3. Математическое описание. M=1, 2, 3, ...

1. Р

   0

   8

   1

   Начало

   M

   

   j=j+1

   55

   

   j<=M

   

   нет

   да

   

   26

   i=1

   

   6

   B(i,j)

   13

   

   да

   

   B(i,j)

   7

   

   17

   i=i+1

   азработка схемы алгоритма.

35

Конец

i<=M

нет

да

S1

20

i=i+1

9

46

j=1

j=1

12

i<=M

нет

15

S1=S1+B(i,j)

16

j=j+1

10

S1=1

14

j<=M

да

нет

11

i=1

19

18

S1=S1/(M^2)

3 Разработка визуальной части.

4 Разработка кода приложения. Private Sub Command1_Click()

Dim B() As Single, M As Integer, i As Integer, j As Integer, S1 As Single

M = Text1

ReDim B(M, M) As Single

For i = 1 To M

For j = 1 To M

B(i, j) = InputBox("Введите элемент матрицы B под номером " & i & "," & j)

Print B(i, j);

Next

Print

Next

S1 = 0

For i = 1 To M

For j = 1 To M

S1 = S1 + B(i, j)

Next

Next

S1 = S1 / (M ^ 2)

Print "Среднее арифметическое S1=" & S1

End Sub

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

9