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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 12

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

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

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

Группы ФМ-408

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

2004

Задание №1

1. Словесное описание задачи. Вычислить значение функции x, N и элементы массива выбрать самостоятельно.

1. Определение состава входных и выходных данных. Входные данные: - X - количество элементов массива - элементы массива Выходные данные: - значение функции Z

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

1. Р

   0

   4

   9

   1

   Начало

   x, N

   Конец

   

   i<=N

   

   нет

   да

   Z

   117

   

   12

   

   36

   i=1

   

   Z=Z+A(i)*x^(1/i)

   

   26

   Z=0

   

   5

   A(i)

   85

   

   i<=N

   

   да

   нет

   

   76

   i=1

   

   i=i+1

   6

   

   i=i+1

   10

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

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

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

Dim A() As Single, N As Integer, X As Integer, i As Integer, Z As Single

X = Text1

N = Text2

ReDim A(N) As Single

Print "Массив A=";

For i = 1 To N

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

Print A(i);

Next

Print

Z = 0

For i = 1 To N

Z = Z + X ^ (1 / N) * A(i)

Next

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

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

Задание №2

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

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

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

1. Р

   0

   4

   7

   1

   Начало

   N

   

   i<=N

   

   нет

   да

   

   j=j+1

   8

   5

   

   j<=N

   

   нет

   да

   

   2

   i=1

   

   3

   j=1

   

   6

   A(i,j)

   

   9

   P=1

   

   i=i+1

   

   i=2

   10

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

Конец

P

17

18

11

j=1

12

i<=N

да

нет

14

P=P*A(i,j)

156

j=j+1

13

j<=N

да

нет

i=i+2

16

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

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

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

N = Text1

ReDim A(N, N) As Single

For i = 1 To N

For j = 1 To N

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

Print A(i, j);

Next

Print

Next

P = 1

For i = 2 To N Step 2

For j = 1 To N

P = P * A(i, j)

Next

Next

Print "Произведение P=" & P

End Sub

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

8