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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 8

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

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

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

Группы ФМ-408

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

2004

Задание №1

1. Словесное описание задачи. Найти произведение модулей элементов с нечетными индексами одномерного массива К1 размерности N. Найденное значение присвоить последнему элементу вектора.

1. Определение состава входных и выходных данных. Входные данные: - размерность N вектора K1 - элементы вектора K1 Выходные данные: - элементы вектора K1 - элементы вектора K1 после найденного произведения элементов

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

1. Р

   0

   3

   10

   1

   Начало

   N

   Конец

   

   i<=N

   

   нет

   да

   K1

   13

   

   14

   

   2

   i=1

   

   P=P*Abs(K1(i))

   

   4

   K1(i)

   9

   

   i<=N

   

   да

   нет

   

   7

   i=1

   

   8

   P=1

   

   12

   K1(N)=P

   

   5

   i=i+1

   

   11

   i=i+2

   

   K1(i)

   6

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

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

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

Dim K1() As Single, N As Integer, i As Integer, P As Single

N = Text1

ReDim K1(N) As Single

Print "K1=";

For i = 1 To N

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

Print K1(i);

Next

Print

P = 1

For i = 1 To N Step 2

P = P * Abs(K1(i))

Next

K1(N) = P

Print "K1=";

For i = 1 To N

Print K1(i);

Next

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

Задание №2

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

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

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

1. Р

   0

   1

   Начало

   N

   

   26

   i=1

   

   6

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

35

8

Конец

i<=N

нет

да

S

18

19

i=i+1

j=j+1

9

55

j<=N

нет

да

46

j=1

P(i,j)

13

j=1

12

i<=N

да

нет

15

S=S+(P(i,j))^3

166

j=j+1

10

i=1

14

j<=N

да

нет

i=i+1

17

P(i,j)

7

11

S=0

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

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

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

N = Text1

ReDim P(N, N) As Single

For i = 1 To N

For j = 1 To N

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

Print P(i, j);

Next

Print

Next

S = 0

For i = 1 To N

For j = 1 To N

S = S + (P(i, j)) ^ 3

Next

Next

Print "Сумма кубов элементов матрицы равна " & S

End Sub

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

9