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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 18

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

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

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

Группы

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

2004

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

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

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

3. Математическое описание.

1. Р

   0

   3

   10

   1

   Начало

   L

   Конец

   

   i<=L

   

   нет

   да

   N

   13

   

   14

   

   2

   i=1

   

   S=S+N(i)

   

   4

   N(i)

   9

   

   i<=L

   

   да

   нет

   

   7

   S=0

   

   8

   i=2

   

   5

   i=i+1

   

   11

   i=i+2

   

   N(i)

   6

   

   12

   N(1)=S

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

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

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

Dim N() As Single, L As Integer, i As Integer, S As Single

L = Text1

ReDim N(L) As Single

Print "N=";

For i = 1 To L

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

Print N(i);

Next

Print

S = 0

For i = 2 To L Step 2

S = S + N(i)

Next

N(1) = S

Print "N=";

For i = 1 To L

Print N(i);

Next

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

Задание №2

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

1. Словесное описание задачи. Определить значение величины , где k*n размерность матрицы А. Проанализировать выполнение программы на примере

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

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

1. Р

   0

   8

   1

   Начало

   K, N

   

   j=j+1

   55

   

   j<=N

   

   нет

   да

   

   26

   i=1

   

   6

   A(i,j)

   13

   

   да

   

   A(i,j)

   7

   

   17

   i=i+1

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

35

Конец

i<=K

нет

да

L

19

i=i+1

9

46

j=1

j=1

12

i<=K

нет

15

L=L*A(i,j)^(1/3)

16

j=j+1

10

L=1

14

j<=N

да

нет

11

i=1

18

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

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

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

K = Text1

N = Text2

ReDim A(K, N) As Single

For i = 1 To K

For j = 1 To N

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

Print A(i, j);

Next

Print

Next

L = 1

For i = 1 To K

For j = 1 To N

L = L * A(i, j) ^ (1 / 3)

Next

Next

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

End Sub

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

9