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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 4

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Найти среднее арифметическое последних К элементов одномер­ного массива Z размерности N. Проанализировать выполнение программы на примере К=5. Z={2; -6; -3; 0; 2,1; 3; -4,1}

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

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

1. Р

   0

   3

   10

   1

   Начало

   N, K

   Конец

   

   i<=N

   

   нет

   да

   S

   13

   

   14

   

   2

   i=1

   

   S=S+Z(i)

   

   4

   Z(i)

   9

   

   i<=N-K+1

   

   да

   нет

   

   7

   S=0

   

   8

   i=1

   

   5

   i=i+1

   

   11

   i=i+1

   

   Z(i)

   6

   

   12

   S=S/K

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

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

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

Dim Z() As Single, N As Integer, K As Integer, i As Integer, S As Single

N = Text1

K = Text2

ReDim Z(N) As Single

Print "Z=";

For i = 1 To N

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

Print Z(i);

Next

Print

S = 0

For i = N - K + 1 To N

S = S + Z(i)

Next

S = S / K

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

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

Задание №2

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

1. Словесное описание задачи. Вычислить значение , где L - матрица размерности M*N; К, А - заданные числа.

2. Определение состава входных и выходных данных. Входные данные: - число A - число K - количество строк M матрицы L - количество столбцов N матрицы L - элементы матрицы L Выходные данные: - функция X

3. Математическое описание. M=1, 2, 3, ... K=1, 2, 3, ... (K<N)

1. Р

   0

   8

   1

   Начало

   A, K, M, N

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   L(i,j)

   13

   

   да

   

   L(i,j)

   7

   

   17

   i=i+1

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

35

Конец

i<=M

нет

да

P

19

i=i+1

9

46

j=1

j=1

12

i<=M

нет

15

X=X+(L(i,j)-A)

16

j=j+1

10

X=0

14

j<=K

да

нет

11

i=1

18

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

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

Dim A As Single, K As Integer, L() As Single, X As Single, M As Integer, N As Integer, i As Integer, j As Integer

A = Text1

K = Text2

M = Text3

N = Text4

ReDim L(M, N) As Single

For i = 1 To M

For j = 1 To N

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

Print L(i, j);

Next

Print

Next

X = 0

For i = 1 To M

For j = 1 To K

X = X + (L(i, j) - A)

Next

Next

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

End Sub

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

9