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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 22

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Вычислить скалярное произведение трех векторов размерности N. Проанализировать выполнение программы на примере векторов: А={2; 6; 3; -2}; В={1; -3; 2; 6}; С={0; 2; -4; 0}.

2. Определение состава входных и выходных данных. Входные данные: - размерность N векторов A, B, C - элементы векторов A, B, C Выходные данные: - P - скалярное произведение трех векторов

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

1. Р

   0

   3

   10

   1

   Начало

   N

   Конец

   

   i<=N

   

   нет

   да

   P

   12

   

   13

   

   2

   i=1

   

   P=P+A(i)*B(i)*C(i)

   

   4

   A(i), B(i), C(i)

   9

   

   i<=N

   

   да

   нет

   

   7

   i=1

   

   8

   P=0

   

   5

   i=i+1

   

   11

   i=i+1

   

   A(i), B(i), C(i)

   6

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

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

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

Dim A() As Single, B() As Single, C() As Single, N As Integer, i As Integer, P As Single

N = Text1

ReDim A(N) As Single, B(N) As Single, C(N) As Single

Print "A=";

For i = 1 To N

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

Print A(i);

Next

Print

Print "B=";

For i = 1 To N

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

Print B(i);

Next

Print

Print "C=";

For i = 1 To N

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

Print C(i);

Next

Print

P = 0

For i = 1 To N

P = P + A(i) * B(i) * C(i)

Next

Print "Векторное произведение P=" & P

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

Задание №2

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

1. Словесное описание задачи. Вычислить сумму элементов 1-го, 2-го, 4-го столбцов матрицы Q размерности М*N. Для отладки принять М=2, N=6. Значение элементов матрицы вы­брать самостоятельно.

2. Определение состава входных и выходных данных. Входные данные: - количество строк M матрицы Q - количество столбцов N матрицы Q - элементы матрицы Q Выходные данные: - сумма элементов 1-го, 2-го, 4-го столбцов матрицы Q

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

1. Р

   0

   8

   1

   Начало

   M, N

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   Q(i,j)

   13

   

   да

   

   Q(i,j)

   7

   

   18

   i=i+1

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

35

Конец

i<=M

нет

да

S

20

i=i+1

9

46

j=1

j=1

12

i<=M

нет

16

S=S+Q(i,j)

176

j=j+1

10

i=1

14

j<=N

да

нет

11

S=0

19

15

j=1 or 2 or 4

да

нет

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

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

Dim Q() As Single, M As Integer, N As Integer, i As Integer, j As Integer, S As Single

M = Text1

N = Text2

ReDim Q(M, N) As Single

For i = 1 To M

For j = 1 To N

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

Print Q(i, j);

Next

Print

Next

S = 0

For i = 1 To M

For j = 1 To N

If j = 1 Or j = 2 Or j = 4 Then

S = S + Q(i, j)

End If

Next

Next

Print "Сумма S=" & S

End Sub

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

9