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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 9

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Вычислить значение функции:

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

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

1. Р

   0

   3

   10

   1

   Начало

   X, M

   Конец

   

   i<=M

   

   нет

   да

   Y

   12

   

   13

   

   2

   i=1

   

   Y=Y+C(i)*X^i

   

   4

   C(i)

   9

   

   i<=M

   

   да

   нет

   

   7

   i=1

   

   8

   Y=0

   

   5

   i=i+1

   

   11

   i=i+1

   

   C(i)

   6

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

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

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

Dim C() As Single, X As Single, M As Integer, i As Integer, Y As Single

X = Text1

M = Text2

ReDim C(M) As Single

Print "C=";

For i = 1 To M

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

Print C(i);

Next

Print

Y = 0

For i = 1 To M

Y = Y + C(i) * X ^ i

Next

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

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

Задание №2

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

1. Словесное описание задачи. Найти произведение элементов четных строк матрицы В размернос­ти L*M. Полученное значение присвоить элементу матрицы, распо­ложенному в четвертой строке третьего столбца. Проанализировать выполнение программы на примере:

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

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

1. Р

   0

   8

   1

   Начало

   L, M

   

   j=j+1

   55

   

   j<=M

   

   нет

   да

   

   26

   i=1

   

   6

   B(i,j)

   13

   

   да

   

   B(i,j)

   7

   

   17

   i=i+2

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

35

Конец

i<=L

нет

да

B

20

i=i+1

9

46

j=1

j=1

12

i<=L

нет

15

P=P*B(i,j)

16

j=j+1

10

i=2

14

j<=M

да

нет

11

P=1

19

18

B(4,3)=P

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

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

Dim B() As Single, L As Integer, M As Integer, i As Integer, j As Integer, P As Single

L = Text1

M = Text2

ReDim B(L, M) As Single

For i = 1 To L

For j = 1 To M

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

Print B(i, j);

Next

Print

Next

P = 1

For i = 2 To L Step 2

For j = 1 To M

P = P * B(i, j)

Next

Next

Print

B(4, 3) = P

For i = 1 To L

For j = 1 To M

Print B(i, j);

Next

Print

Next

End Sub

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

9