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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 7

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Вычислить значение величины: Для отладки программы значения N, X, Y, Z выбрать самостояте­льно.

2. Определение состава входных и выходных данных. Входные данные: - размерность N векторов - элементы векторов X, Y, Z Выходные данные: - функция M

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

1. Р

   0

   3

   10

   1

   Начало

   N

   Конец

   

   i<=N

   

   нет

   да

   M

   12

   

   13

   

   2

   i=1

   

   M=M*(X(i)^2+Y(i)^2+Z(i)^2)

   

   4

   X(i), Y(i), Z(i)

   9

   

   i<=N

   

   да

   нет

   

   7

   M=1

   

   8

   i=1

   

   5

   i=i+1

   

   11

   i=i+1

   

   X(i), Y(i), Z(i)

   6

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

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

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

Dim X() As Single, Y() As Single, Z() As Single, N As Integer, i As Integer, M As Single

N = Text1

ReDim X(N) As Single, Y(N) As Single, Z(N) As Single

Print "X="

For i = 1 To N

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

Print X(i);

Next

Print

Print "Y="

For i = 1 To N

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

Print Y(i);

Next

Print

Print "Z="

For i = 1 To N

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

Print Z(i);

Next

Print

M = 1

For i = 1 To N

M = M * (X(i) ^ 2 + Y(i) ^ 2 + Z(i) ^ 2)

Next

Print "Функция M=" & M

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

Задание №2

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

1. Словесное описание задачи. Определить среднее арифметическое элементов на главной диаго­нали матрицы.

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

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

1. Р

   0

   8

   1

   Начало

   N

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   S(i,j)

   

   да

   

   S(i,j)

   7

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

35

Конец

i<=N

нет

да

S1

17

i=i+1

9

46

j=1

12

i<=N

нет

13

S1=S1+S(i,i)

10

S1=0

11

i=1

16

14

i=i+1

15

S1=S1/N

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

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

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

N = Text1

ReDim S(N, N) As Single

For i = 1 To N

For j = 1 To N

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

Print S(i, j);

Next

Print

Next

S1 = 0

For i = 1 To N

S1 = S1 + S(i, i)

Next

S1 = S1 / N

Print "Арифметическая сумма S1=" & S1

End Sub

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

9