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

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

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

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

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

ОТЧЕТ

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

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

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

Вариант 6

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

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

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

Группы

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

2004

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

1. Словесное описание задачи. Вычислить значение величины М=(2n+1)! Проанализировать выполнение программы на примере n = 3.

2. Определение состава входных и выходных данных. Входные данные: - число n Выходные данные: - величина M

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

1. Р

   0

   3

   10

   1

   Начало

   n

   Конец

   

   i<=n

   

   нет

   да

   M

   12

   

   13

   

   2

   i=1

   

   M=M*A(i)

   9

   

   i<=n

   

   да

   нет

   

   7

   i=1

   

   8

   M=1

   

   5

   i=i+1

   

   11

   i=i+1

   

   A(i)

   6

   

   A(i)=2*i+1

   4

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

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

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

Dim A() As Single, n As Integer, i As Integer, M As Single

n = Text1

ReDim A(n) As Single

Print "Элементы факториала M=(2n+1)! при n=" & n

For i = 1 To n

A(i) = 2 * i + 1

Print A(i);

Next

Print

M = 1

For i = 1 To n

M = M * A(i)

Next

Print "Величина M=" & M

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

Задание №2

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

1. Словесное описание задачи. Найти сумму S элементов матрицы L размерности К*М. Найденное значение присвоить элементу второй строки третьего столбца матрицы. Проанализировать выполнение программы на примере К = 3, М = 4.

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

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

1. Р

   0

   8

   1

   Начало

   K, M

   

   j=j+1

   55

   

   j<=M

   

   нет

   да

   

   26

   i=1

   

   6

   L(i,j)

   13

   

   да

   

   L(i,j)

   7

   

   17

   i=i+1

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

35

Конец

i<=K

нет

да

L

20

i=i+1

9

46

j=1

j=1

12

i<=K

нет

15

S=S+L(i,j)

16

j=j+1

10

i=1

14

j<=M

да

нет

11

S=0

19

18

L(2,3)=S

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

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

Dim L() As Single, K As Integer, M As Integer, i As Integer, j As Integer, S As Single

K = Text1

M = Text2

ReDim L(K, M) As Single

For i = 1 To K

For j = 1 To M

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

Print L(i, j);

Next

Print

Next

S = 0

For i = 1 To K

For j = 1 To M

S = S + L(i, j)

Next

Next

Print

L(2, 3) = S

For i = 1 To K

For j = 1 To M

Print L(i, j);

Next

Print

Next

End Sub

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

8