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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 20

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Вычислить среднее арифметическое элементов с нечетными индек­сами одномерного массива Х размерности L. Найденное значение присвоить третьему элементу вектора. Проанализировать выполнение программы на примере: Х={2; 6; 1; -2; 0}

2. Определение состава входных и выходных данных. Входные данные: - размерность L массива X - элементы вектора X Выходные данные: - среднее арифметическое элементов с нечетными индек­сами

3. Математическое описание. n – количество нечетных индексов L=1, 2 , 3, ...

1. Р

   0

   3

   11

   1

   Начало

   L

   Конец

   

   i<=L

   

   нет

   да

   X

   16

   

   17

   

   2

   i=1

   

   S=S+X(i)

   

   4

   X(i)

   10

   

   i<=L

   

   да

   нет

   

   7

   S=0

   

   8

   n=0

   

   5

   i=i+1

   

   13

   i=i+2

   

   X(i)

   6

   

   9

   i=1

   

   12

   n=n+1

   

   14

   S=S/n

   

   15

   X(3)=S

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

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

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

Dim X() As Single, L As Integer, i As Integer, S As Single, n As Integer

L = Text1

ReDim X(L) As Single

Print "X=";

For i = 1 To L

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

Print X(i);

Next

Print

S = 0

n = 0

For i = 1 To L Step 2

S = S + X(i)

n = n + 1

Next

S = S / n

X(3) = S

Print "X=";

For i = 1 To L

Print X(i);

Next

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

Задание №2

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

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

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

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

1. Р

   0

   8

   1

   Начало

   N

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   B(i,j)

   

   да

   

   13

   P=P*B(i,i)

   

   B(i,j)

   7

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

35

Конец

i<=N

нет

да

P

16

i=i+1

9

46

j=1

12

i<=N

нет

10

P=1

11

i=1

15

14

i=i+1

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

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

Dim B() As Single, N As Integer, i As Integer, j As Integer, P As Single

N = Text1

ReDim B(N, N) As Single

For i = 1 To N

For j = 1 To N

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

Print B(i, j);

Next

Print

Next

P = 1

For i = 1 To N

P = P * B(i, i)

Next

Print "Произведение P=" & P

End Sub

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

9